home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1843.dms / in.adf / Mandelbrot / mandelbitmap.jf < prev    next >
Encoding:
Text File  |  1992-03-31  |  1010 b   |  43 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. \ MOD: free.mandelbitmap safely frees now            2/17/89
  9.  
  10. getmodule includes
  11.  
  12. include? xybitmap.nd BitMap_support
  13. include? open.mandelscreen variscreen.jf
  14.  
  15. anew task-mandel_bitmap
  16.  
  17. \ ************************** MANDELBROT BITMAP STUFF *************************
  18.  
  19. 0 value mandelbitmap
  20.  
  21. : FREE.MANDELBITMAP ( -- )
  22.   mandelbitmap ?dup IF free.bitmap 0 -> mandelbitmap THEN
  23. ;
  24.  
  25. : LOAD.MANDELBITMAP ( -- )
  26.   " mandel.iff" $iff>bitmap.nd ?dup 
  27.   if -> mandelbitmap 
  28.   else ." Load.mandelbitmap failed!" cr abort 
  29.   then
  30. ;
  31.  
  32. : RESTORE.MANDEL
  33.   0 0 mandelbitmap xybitmap
  34.   Mscreen-ptr @ true showtitle()
  35. ;
  36.   
  37. : LOAD.BM.TO.SCREEN ( -- )
  38.   load.mandelbitmap
  39.   open.mandelscreen
  40.   0 0 mandelbitmap xybitmap
  41.   Mscreen-ptr @ true showtitle()
  42. ;
  43.