boxy towers

set maxdepth 50 {s 1 rx -90 z -10} base rule base { {sat 0 s 100 100 0.25} box {sat 0.8 hue 40} plant } rule plant md 10 { seg {rz 36 x 5} plant } rule seg { unit next } rule next w 5 { {z 1} seg } rule next w 0 { {z 1 s 1 1 0.5} seg } rule next w 1 { {rx 90 s 0.5} seg {rx -90 rz 180 z 1 s 0.75} seg } rule unit { {s 4 2 0.75 y 0.5} box {s 2 2 0.15} box {s 1 2 0.5 x -1 y -0.75 b 0} box {s 1 1 2 sat 0} box {s 0.1 0.1 10 b 0} box }