# # 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]
}