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) ] }