# =========================================================================== # # From: # # www.contextfreeart.org/gallery2/#design/4084 # # HEIGHT: 600 # WIDTH: 600 # # =========================================================================== #

startshape spirale[b 1]

shape spirale rule { flocon [b 1 s .9] spirale [ s .80 x .30 r 37 ] }

shape flocon rule {

quatre_sommets []
quatre_sommets [r 180]
quatre_sommets [r 30]
quatre_sommets [r 210]
flocon [z 50 s .67 r 30 h 90 sat .1]

}

rule {

quatre_sommets []
quatre_sommets [r 180]
flocon [z 50 s .67 r 30 h 36 sat .3]

}

rule {

quatre_sommets []
quatre_sommets [r 180]
quatre_sommets [r 30]
quatre_sommets [r 210]
flocon [z 50 s .6 r 30 h 150 sat .5]

}

rule {

quatre_sommets []
quatre_sommets [r 180]
flocon [z 50 s .6 r 30]

}

// suite rule {

quatre_sommets []
quatre_sommets [r 180]
quatre_sommets [r 30]
quatre_sommets [r 210]
flocon [z 50 s .8 r 30]

}

rule {

quatre_sommets []
quatre_sommets [r 180]
flocon [z 50 s .8 r 30]

}

rule {

quatre_sommets []
quatre_sommets [r 180]
quatre_sommets [r 30]
quatre_sommets [r 210]
flocon [z 50 s .9 r 30]

}

rule {

quatre_sommets []
quatre_sommets [r 180]
flocon [z 50 s .9 r 30]

}

shape quatre_sommets rule {

tower[]
little_tower[r 180 y .291265 s .5 ]
little_tower[r 60 x .25 y -.141745 s .5 ]
little_tower[r -60 x -.25 y -.141745 s .5 ]

}

shape tower rule {

TRIANGLE []
tower [z 1 s 0.99 b -0.0099]

}

shape little_tower rule {

TRIANGLE []
little_tower [z 1 s 0.98 b -0.0098 ]

}

# runcfdg $CFDG/escargot_fleur.cfdg