home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / fractal112 / !Fractal / Scripts / Fault_7 < prev    next >
Encoding:
Text File  |  1993-03-09  |  416 b   |  21 lines
  1. Script
  2. \ Composite Cone Fault.
  3. Fractal Fault
  4. Off     Fault,Up/Down
  5. Select  Fault,Type,Cone
  6. On      Image,Redraw,Clear
  7. faults=50; size=300; step=24;
  8. Data    No. Faults=faults,Shape Size=size,Step=step ; draw;
  9. Off     Image,Redraw,Clear
  10.  
  11. while step>2
  12.   faults=faults+30
  13.   size=size-25
  14.   step=step-2
  15.   Data No. Faults=faults,Shape Size=size,Step=step
  16.   draw
  17. endwhile
  18.  
  19. On Palette,Presets,Landscape
  20. On Image,Redraw,Clear
  21.