startshape ALPHA

// try seeds XYR, PUM, PXT

rule ALPHA {
CIRCLE { s 2 }
FROND {}
FROND { r 45 }
FROND { r 30 }
}

rule FROND {
SQUARE { r 45 }
SPLIT {}
FROND { x 0.1 y 0.1 s 0.99 r .7 }
}

rule SPLIT 20 {
}

rule SPLIT .1 {
GROWTH {}
}

rule SPLIT .1 {
GROWTH1 {}
}

rule GROWTH {
SQUARE { r 45 }
GROWTH { x 0.5 y 0.5 s 0.99 r .7 }
}

rule GROWTH1 {
SQUARE { r 45 }
GROWTH1 { x 0.5 y 0.5 s 0.99 r -.5 }
}