# =========================================================================== # # 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