home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1843.dms / in.adf / Mandelbrot / MandelMeasure.jf < prev    next >
Encoding:
Text File  |  1992-03-31  |  811 b   |  36 lines
  1. \ Copyright 1989 NerveWare
  2. \ No portion of this code may used for commercial purposes,
  3. \ nor may any executable version of this code be disributed for 
  4. \ commercial purposes without the author's express written permission.
  5. \ This code is shareware, all rights reserved.
  6.  
  7. \ Nick Didkovsky
  8. \ measure the time it takes to generate one Mandelbrot screen
  9. \ MOD: not compiling istime cell+ as literal, so this can clone  2/21/89
  10.  
  11. include? loadtime ju:measure
  12.  
  13. anew task-mandelmeasure
  14.  
  15. : SET.MANDEL.START.TIME ( -- )
  16.   wastime loadtime
  17. ;
  18.  
  19. : SET.MANDEL.FINISH.TIME ( -- double-time1 double-time2)
  20.   istime loadtime
  21.   wastime cell+  d@
  22.   istime  cell+  d@
  23. ;
  24.  
  25. : MANDEL.RESULTS 
  26.   >newline ." This region was calculated in " .timediff
  27. ;
  28.  
  29. : REPORT.MANDEL.TIME
  30.   set.mandel.finish.time
  31.   >ticks >secs
  32.   mandel.results
  33. ;
  34.  
  35.   
  36.