home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / fractal3 / Fractal030 / FracDemos / Sphere
Encoding:
Text File  |  1992-04-21  |  794 b   |  26 lines
  1. Script
  2. \ This script creates the sprites to run the !Sphere demo. To run the demo
  3. \ you'll need a 2Mb machine, or 4Mb for mode 15 sprites. You'll also need
  4. \ ArcFSR/w or Compression to save the sprites onto a floppy.
  5. \ The sprites must be saved to a file called Spheres in the !Sphere directory.
  6. \ Creates 72 spheres at 5° increments, using the current image.
  7. \ The ArcFs file Spheres must be open. The images will be numbered 1 to 72.
  8. \ First draw a fractal image in landscape palette
  9. Fractal=Fault
  10. Select Fault,Type,Cone
  11. Select Image,Mode,13
  12. Data Initial; Draw
  13. Select Effects,Palette,Landscape
  14. \ Transform to sphere
  15. Fractal=Riemann
  16. Data Initial
  17. 3d_elevation = -40
  18. rot=0; suffix=1
  19. while rot<360
  20.   3d_rot=rot
  21.   Draw
  22.   Save_image "arcfs#Spheres:$."+suffix
  23.   rot=rot+5
  24.   suffix=suffix+1
  25. endwhile
  26.