CF::MinimumSize = 8
thick = 0.9
startshape big
shape beam{
loop 4 [[ s thick b select(randint(3),0,1,0.5)]]SQUARE[]
}
shape big {
loop 5 [y select(randint(3),1, 1.1, 1.2)]big_x[s select(randint(3),1, 1.3, 1.15) select(randint(3),1, 1.35, 1.15)]
}
shape big_x {
loop 4 [x select(randint(3),1, 1.2,1.1)] frac[s select(randint(3),1, 1.35, 1.15) select(randint(3),1, 1.3, 1.15)]
}
shape frac rule {
beam[] frac[ x select(randint(2),-0.25,0.25) y -0.25 s
select(randint(3),-0.45,0.5,0.55) r select(randint(3),0,90,2) ]
frac[ x (0.25*thick) y (select(randint(2),-0.25,0.25)*thick) s
select(randint(3),-0.45,0.5,0.55) r select(randint(3),0,90,88) ] }