home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff239.lzh / JGoodies / Mandelbrot / fastwritepixel.jf < prev    next >
Text File  |  1989-08-21  |  506b  |  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.