home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1843.dms / in.adf / Mandelbrot / fastwritepixel.jf < prev    next >
Encoding:
Text File  |  1992-03-31  |  506 b   |  17 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. \ Super quick plotting
  8.  
  9. anew task_FastWritePixel
  10.  
  11. : FastWritePixel ( x y color -- draws point in current rastport)
  12.   >r gr-currport @ dup r>
  13.   callvoid graphics_lib SetAPen
  14.   -rot
  15.   callvoid graphics_lib WritePixel
  16. ;  
  17.