cfdg/snowflake.cfdg

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))}
}