aUCBLogo Demos and Tests / colorstest

to colorstest
   disableLineSmooth
;   setScreenRange -16 -12 16 12
   setScreenRange -400 -300 400 300
   setPenSize [0 0]
   cs
   rt 90
   repeat 16
   [   setfc repcount-1
      (fbox 20)
      fd 20
   ]
end

to fbox [:size 100]
   repeat 4 [fd :size rt 90]
   pu  rt 45 fd 3  pd
    fill
   pu  bk 3 lt 45  pd
end