home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / graphics / fractal_1 / !Fractal / Scripts / Koch < prev    next >
Text File  |  1993-03-09  |  377b  |  15 lines
  1. Script
  2. \ Version of Koch10 with colour & multi-plots
  3. Fractal=L-System
  4. Off L-System,Auto Scale
  5. Data Clear_Rules, Name='Koch10'
  6. Data Axiom='F+F+F+F' , Angles=4
  7. Data Rule='F=F-F+F+F-F>1'
  8. Data x0=-90, y0=-130,width=220, height=176
  9. Data Iter=2; Draw
  10. Off Image,Redraw,Clear
  11. Data Iter=3; Draw
  12. Data Iter=4; Draw
  13. On Image,Redraw,Clear
  14. Select Palette,Presets,Logical
  15. Select Effects,Cycle