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= n "f= f [press a key to continue, s=saveScreen])
   while [Key?] [ignore readChar]
   ch=readChar
   if ch=="s [saveScreen "test_median_figures.png]
end