# # Evolution 2 #

background {b -1}

startshape INIT

# First call our planet rule INIT {

PLANET {sat 1 h 0 b 1}

}

# invoked by planet rule RADIUS{

CIRCLE {s 5 a -0.95 z -10}
CIRCLE {s 4 a -0.95 z -10}
CIRCLE {s 3 a -0.95 z -10}
CIRCLE {s 2 a -0.95 z -10}

}

# Our planet calls RADIUS below rule PLANET {

CIRCLE[z 50]
RADIUS[]
NEWPLANET[h 5 z 1]

}

# This is the main part. rule NEWPLANET { PLANET[x 2.5 s 0.75 r 46] } rule NEWPLANET { PLANET[x 2.5 s 0.75 r -46] } rule NEWPLANET { PLANET[x 2.5 s 1.00 r 46] } rule NEWPLANET { PLANET[x 2.5 s 1.00 r -46] } rule NEWPLANET {

PLANET[x -2.5 s 0.75 r 46]
PLANET[x  2.5 s 0.75 r 46]

}

rule NEWPLANET {

PLANET[x -2.5 s 0.75 r -46]
PLANET[x  2.5 s 0.75 r -46]

}

rule NEWPLANET 0.005{

PLANET[x -2.5 s 5 r 46]
PLANET[x 2.5 s 5 r -46]

}