home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / useful / dist / dev / lang / ace / prgs / benchmarks / lines.b < prev    next >
Text File  |  1994-01-10  |  356b  |  24 lines
  1. '..time how long it takes to draw 10,000 random lines.
  2.  
  3. screen 1,640,200,2,2
  4.  
  5. palette 0,0,0,0
  6. palette 1,1,1,1
  7. palette 2,0,1,0
  8.  
  9. color 2
  10.  
  11. time0=timer
  12. for i%=1 to 10000
  13.   line (int(rnd*640!),int(rnd*200!))-(int(rnd*640!),int(rnd*200!))
  14. next
  15. time1=timer
  16.  
  17. locate 2,1
  18. color 1,0
  19. print "Time elapsed:";time1-time0;"seconds."
  20.  
  21. while inkey$="":wend
  22.  
  23. screen close 1
  24.