aUCBLogo Demos and Tests / rboxdemo

to rBoxDemo [:n 360][:l 600]
   clearScreen
;   setpensize [0 0]
   make "t timefine
   repeat :n
   [
      make "i repcount/:n
      setpc rgb 1-:i 2*:i-1 :i
      pu fd 200/:n rt 360/:n pd (rbox :l 2)
      if (mod repcount 20)==0 [updateGraph]
   ]
   pr timefine-:t
;   saveScreenVector "test.pdf
end