home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / graphics / fractal_1 / !Fractal / Scripts / Spheres < prev    next >
Text File  |  1993-03-09  |  458b  |  21 lines
  1. Script
  2. \ Creates 72 spheres at 5° increments, using the current image.
  3. \ By saving the output you can create a rotating sphere demo
  4. Fractal=Fault  \ Sample fractal
  5. Data Initial
  6. Draw
  7. Select Palette,Presets,Landscape
  8. \ Transform to sphere
  9. Fractal=Riemann
  10. Data Initial
  11. Data Image Scale=4
  12. 3d_elevation = -40
  13. rot=0; suffix=1
  14. while rot<360
  15.   3d_rot=rot
  16.   Draw
  17.   rot=rot+5
  18.   suffix=suffix+1
  19.   \ Save_image "arcfs#Spheres:$."+suffix     \ Uncomment to save
  20. endwhile
  21.