aUCBLogo Demos and Tests / filledrboxdemo

to filledrBoxDemo [n 100][l 200]
   disableLineSmooth
   repeat n
   [   pu fd l/2 pd
      (rbox l 2)
      pu bk l/2 pd
      rt 360/n
   ]
   pu ht
   white=rgb 1 1 1
   repeat n*2
   [   i=repcount/(n*2)
      repeat l
      [   j=repcount/l
         setfc rgb i-j i j-i
         fd l*j
         if pixel==white [(fill FILL_SMALL)]
         bk l*j
      ]
      rt 360/(n*2)
      if keyP [stop]
   ]
   pd
;   epspict "test.ps
end