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]

}