home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / graphics / fractal_1 / !Fractal / Scripts / NewtSphere < prev    next >
Text File  |  1993-03-09  |  598b  |  20 lines
  1. Script
  2. \ Creates 72 spheres at 5° increments, using the Newton function.
  3. \ By saving the output you can create a rotating sphere demo
  4. Fractal=Riemann \ Select Riemann to set defaults
  5. Data Initial    \ You could set globe scale to 0.9
  6. Fractal=Newton   \ Can also be Julia or Mandelbrot
  7. Data Initial
  8. Select Newton,Plot Iters
  9. 3d_elevation = -50
  10. 3d_riemann on   \ Turn on riemann plotting
  11. rot=0; suffix=1
  12. while rot<360
  13.   3d_rot=rot
  14.   Draw
  15.   Select Palette,Presets,Landscape  \ Gives better display
  16.   rot=rot+5
  17.   suffix=suffix+1
  18.   \ Save_image "arcfs#Spheres:$."+suffix     \ Uncomment to save
  19. endwhile
  20.