/*
   Sympodial tree-like structure of Aono and Kunii.
   Figure 2.7a pg 59
 */
#define maxgen 10

#define r1 0.9	    /* contraction ratio 1 */
#define r2 0.7	    /* contraction ratio 2 */
#define a1 10	    /* branching angle 1 */
#define a2 60	    /* branching angle 2 */
#define wr 0.707    /* width decrease rate */

START : /(90)A(1,10)

p1 : A(l,w) -> !(w)F(l)[&(a1)B(l*r1,w*wr)]/(180)[&(a2)B(l*r2,w*wr)]
p2 : B(l,w) -> !(w)F(l)[+(a1)$B(l*r1,w*wr)][-(a2)$B(l*r2,w*wr)]
