aUCBLogo Demos and Tests / test_median_figures


to test_median_figures
   
WindowMode
   
setPenSize 0
   
ht
   
mf 4 1 1000 false
   
mf 3 1 1000 false
   
mf 4 2 1000 false
   
mf 4 100 100000 false
   
mf 1000 10 10000000 true
end

to mf n f imax rand
   
(median_figures n f imax rand)
   
(pr "n= "f= [press a key to continues=saveScreen])
   
while [Key?] [ignore readChar]
   
ch=readChar
   
if ch=="s [saveScreen "test_median_figures.png]
end