15 lines
400 B
Plaintext
Executable File
15 lines
400 B
Plaintext
Executable File
background{b -.95 sat 1 h 270}
|
|
startshape init
|
|
rule init{turn{sat -1 b 1 a -.995 |sat -1}}
|
|
rule turn{
|
|
CIRCLE{x 1.77 y .13 s .5} SQUARE{x .5 y -.05 s 1 .1 sat
|
|
-1}
|
|
turn{ |sat .05 sat 1| a .1 z 1 r -2.072 s 0.299}
|
|
turn{ |sat .05 sat 1| a .1 z 1 x 1 r 45.928 s
|
|
(1/sqrt(.85)*0.299)}
|
|
turn{ |sat .05 sat -1 h 144 z 1 x
|
|
(1+1/sqrt(.85)*cos(48)) y (1/sqrt(.85)*sin(48)) r -48 s
|
|
(sqrt(.85))}
|
|
}
|
|
|