
set ypos = calc winhigh - 80
set corners = 3

repeat 5 [   // loop for rows (shapes)..

  set xpos = 70
  set rotate = 0
  logo fillcolor = randomcolor

  repeat 7 [   // loop for columns (rotations)..
    pu
    moveto :xpos :ypos
    pd
    polygon 40 :corners :rotate
    fillshape
    incr xpos by 100
    incr rotate by 8
    ]
 
  decr ypos by 150
  incr corners by 1
  ]
