home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1843.dms / in.adf / Mandelbrot / fastline.jf < prev    next >
Encoding:
Text File  |  1992-03-31  |  638 b   |  32 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. \ Nick Didkovsky
  7.  
  8. anew task_line
  9.  
  10. : FAST.MOVE ( x y -- )
  11.   gr-currport @ -rot
  12.   callvoid graphics_lib Move
  13. ;
  14.  
  15. : FAST.DRAW ( x y color -- )
  16.   >r gr-currport @ dup r>
  17.   callvoid graphics_lib SetAPen
  18.   -rot
  19.   callvoid graphics_lib Draw
  20. ;
  21.  
  22. \ 1.20 seconds
  23. : BENCH.LINES ( -- )
  24.   open.mandelscreen
  25.   200 0 do
  26.     0 i fast.move
  27.      320 i 1 fast.draw
  28.   loop
  29.  close.mandelscreen
  30. ;
  31.  
  32.