startshape rose background { hue 197 sat 0.6 b -0.5 }
rule rose {
20* { r .5 } draw [ z 2 a -.95 r -5 y -1.5 flip 90 s 10 3 hue 0.0 sat 0.4 b 0.3 ] stem { y .5 hue 124 sat 0.9 b 0.5 }
}
rule stem {
part[ ] stem [ y 1 ]
}
rule stem .2 {
stemloop [ ]
}
rule stem .1 {
stemloop [ flip 90]
}
rule stemloop {
part [ ] part [ y .5 x 1 r -90 s 1 2] part [ x 2 r -180] part [ y -.5 x 1.5 r 90] part [ x 1 ] stem [ y 1 x 1]
}
rule stem .2 { bud [ s 4 z 1 b .3 |hue -119.2 hue 1| ]}
rule bud {
draw [ s 1 .5 ] bud [ s .95 z .1 b .02 ]
}
rule bud { bud [ y .01 ] } rule bud { bud [ y -.01 ] } rule bud 4 { bud [ x .04 ] } rule bud 4 { bud [ x -.04 ] } rule bud 4 { bud [ r -3 ] } rule bud 4 { bud [ r 3 ] } rule bud 4 { bud [ b .1 ] } rule bud 4 { bud [ b -.05 ] }
rule bud .01 { }
rule part { draw [ ] }
rule part .35 {
leaf [ x -.25 s .5 r 90 ] draw [ ]
}
rule part .05 {
bud [ r 30 s 2 z 1 b .3 |hue -119.2 hue 1| ] draw [ ]
}
rule leaf {
ljoint [ ] draw [ ]
}
rule ljoint { leaf [ y .5 x .5 r -90 ] } rule ljoint { leaf [ y .5 x -.5 r 90 ] } rule ljoint { }
rule draw {
SQUARE [ z -1 s .3 1 a -.9 b 1 sat -1] SQUARE [ s .1 1] SQUARE [ x .06 s .01 1 b 1 sat -1]
}