root =
l 0 FILL : ss 400 bouquet
quality = 750
bouquet =
r 36 (ss 1.3 flower5)
: r 15 flower6
flower6 =
demiflower6
: flip 90 demiflower6
flower5 =
demiflower5
: flip 90 demiflower5
demiflower6 =
collect (
for i in 0..12
r (i * 30) (petal6 quality))
demiflower5 =
collect (
for i in 0..5
r (i * 72) (petal5 quality))
petal5 i =
if i == 0
EMPTY
else
s 1 0.0001 SQUARE
: ss 0.005 (tx -0.5 (l 0 CIRCLE))
: tx 0.5 (r 144.04 (ss 0.998 (tx 0.5 (lshift (1 / quality * 0.6) (petal5 (i - 1))))))
petal6 i =
if i == 0
EMPTY
else
s 1 0.0001 SQUARE
: tx -0.5 (ss 0.01 (l 0 CIRCLE))
: tx 0.5 (r 120.21 (ss 0.996 (tx 0.5 (lshift (1 / quality) (petal6 (i - 1))))))