; Configure the number of bands to draw. Make "radius 6 Make "count 0 CS Repeat :radius [ Make "segs :count SetPenColour SUM :count 1 Repeat 6 [ Repeat :segs [ Repeat 2 [ Forward 20 Right 60 ] Forward 20 PenUp Back 20 PenDown Left 120 ] Forward 20 Right 60 ] ; Move out to the next band. PenUp Left 120 Repeat 2 [ Forward 20 Right 60 ] PenDown Make "count SUM :count 1 ]

Run