You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
780 B
53 lines
780 B
dot_size = 0.15 |
|
CF::Size = [s 80 x -8] |
|
CF::Background = [b -0.9 h 230 sat 0.75] |
|
|
|
startshape galaxy[b 1] |
|
|
|
shape galaxy { |
|
dot[s 10] |
|
loop 9[] { |
|
distance = 4..30 |
|
ring(distance)[] |
|
planet_rotation = 1..360 |
|
trans[[r planet_rotation x distance]] { |
|
CIRCLE[s 0.2..0.8] |
|
trans [r -planet_rotation] { |
|
marker[] |
|
} |
|
} |
|
} |
|
} |
|
|
|
shape ring(distance) { |
|
loop (360)[r 1..6] |
|
dot[x distance] |
|
} |
|
|
|
shape marker { |
|
loop 8[x 0.2 y 0.2] { |
|
dot[] |
|
} finally { |
|
script[x 1 y 0.6] |
|
loop 96[x 0.2] { |
|
dot[] |
|
} |
|
} |
|
} |
|
|
|
shape script { |
|
loop 4..20[x 1] |
|
char[a -0.25] |
|
} |
|
|
|
shape char |
|
rule { } |
|
rule 4 { SQUARE[s 0.5 0.5] } |
|
rule { SQUARE[s 0.5 0.25] } |
|
rule { char[y 0.5] } |
|
|
|
shape dot { |
|
CIRCLE[s dot_size a 0.5] |
|
loop 1..2[x rand::normal(0,1) rand::normal(0,1)] |
|
SQUARE[s 1..2 a -0.998] |
|
} |