background{b -1} startshape init rule init{turn[b 1 a -1 sat 1 h 310]} rule turn{
SQUARE[x .5 y -.05 s 1 .1] CIRCLE[x 1.77 y .13 s .5] turn[z 1 r -2.07028 s 0.298966 a .1 h 90 sat -.3] turn[z 1 x 1 r 45.9297 s .324258 a .1 sat .1] turn[z 1 x 1.72574 y .806014 r -48 s .922]
}
/* C…
/\@ / \ / \D____E
A____B/@…
variables: @ angle = 48 degress $ scale = lengthCD/lengthAB = .922
constraints: lengthDE = lengthAB lengthBC*lengthCD = lengthAB^2
A=(0,0) B=(1,0) C=( 1+cos(@)/$ , (sin(@)/$ ) D=( 1+cos(@)*(1/$+$) , sin(@)*(1/$-$) ) E=D+(1,0)
Adjustment parameter values: turn1: r1=angleAB-angleAE s1=lengthAB/lengthAE turn2: r2=@+r1 s2=s1/$ turn3: x3=lengthAB*(1+cos(@)/$) y3=sin(@)/$ r3=-@
s3=$
Descent: turn1 builds AB turn2 builds BC turn3 builds CG */