aUCBLogo Demos and Tests / filledrboxdemo


to filledrBoxDemo [100][200]
   
disableLineSmooth
   
repeat n
   
[   pu fd l/pd
      
(rbox l 2)
      
pu bk l/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