home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
WA
/
WA417.ZIP
/
DEMO.FPL
next >
Wrap
Text File
|
1990-11-27
|
6KB
|
261 lines
FRACDEF F1 3 4 0 1 60 1 -120 1 60 1
FRACDEF F2 4 8 0 1 90 1 -90 1 -90 1 0 1 90 1 90 1 -90 1
FRACDEF F3 4 14 0 1 90 0 0 0 0 1 -90 1 0 1 -90 1 -90 1 0 1 90 0 0 0 90 1 0 1 0 1
FRACDEF F4 3 9 0 1 90 1 -90 1 -90 1 -90 1 90 1 90 1 90 1 -90 1
FRACDEF F5 6 20 0 1 90 0 0 1 -90 1 0 1 -90 1 -90 1 0 1 90 0 90 1 0 1 0 1 -90 1 -90 1 90 1 90 1 0 1 90 1 0 1 -90 1
FRACDEF F7 6 18 0 1 90 1 0 1 -90 1 0 1 -90 1 -90 1 90 1 90 1 0 1 -90 1 -90 1 90 1 90 1 0 1 90 1 0 1 -90 1
FRACDEF F9 3 5 0 1 90 1 -90 1 -90 1 90 1
FRACDEF F10 2 6 0 1 30 1 180 0 -240 1 180 0 -150 1
O1:
LSYSDEF F1 90 F+F+F+F 1 F FF+F+F+F+FF
O2:
LSYSDEF TREE1 -22 F 1 F FF+[+F-F-F]-[-F+F+F]
O3:
LSYSDEF TREE2 -26 G 2 G GFX[+G][-G] X X[-FFF][+FFF]FX
O4:
LSYSDEF TREE3 -18 SLFFF 5 S [+++G][---G]TS G +H[-G]L H -G[+H]L T TL L [-FFF][+FFF]F
O5:
LSYSDEF DRAGON -90 X 2 X X+YF+ Y -FX-Y
O6:
LSYSDEF FLAKE 60 F++F++F 1 F F-F++F-F
O9:
LSYSDEF HILBERT 90 X 2 X -YF+XFX+FY- Y +XF-YFY-FX+
O11:
LSYSDEF TRIAG 60 FXF--FF--FF 2 X --FXF++FXF++FXF-- F FF
O13:
LSYSDEF KOCH1 90 F+F+F+F 1 F F+F-F-FFF+F+F-F
O43:
MOVETO 02500 09000
TSTYLE 50 0 0 0 0 0 0 32 2 0 0 0 0 0 255 "Helv"
TEXT "Fractals are Everywhere!"
O44:
MOVETO 00837 07800
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Fractals are the rare and unusual, self-similar geometric patterns"
O45:
MOVETO 00837 07000
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "found in nature: in tree branches, in contours of a coast line,"
O46:
MOVETO 00837 06200
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "in peaks of mountains, in veins on leaves, in cumulus clouds."
O47:
MOVETO 01524 00020
LSTYLE 0 0 255 0 0
TURNTO 88
LSYS TREE3 4 800
O48:
MOVETO 08541 00100
LSTYLE 0 0 255 255 0
TURNTO 116
LSYS TREE2 4 200
O51:
MOVETO 03906 00032
LSTYLE 0 0 0 255 0
TURNTO 80
LSYS TREE1 3 200
O53:
MOVETO 03047 00592
LSTYLE 0 0 0 255 255
TURNTO 89
LSYS TREE2 3 400
O54:
MOVETO 08884 01609
LSTYLE 0 0 0 0 255
TURNTO 88
LSYS TREE3 3 800
O55:
CLEAR
O31:
MOVETO 00880 09000
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Fractal Paint allows you to draw with standard drawing tools such as:"
O32:
MOVETO 00950 07500
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Lines:"
O33:
MOVETO 00950 06000
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Rectangles:"
O34:
MOVETO 00950 04500
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Rounded Rectangles:"
O35:
MOVETO 00950 03000
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Circles:"
O36:
MOVETO 00950 01500
TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Text:"
O37:
MOVETO 03519 06794
LSTYLE 0 0 0 255 0
LINETO 06674 07311
O38:
MOVETO 04506 07484
LSTYLE 0 0 0 255 0
LINETO 07940 06852
O39:
MOVETO 03777 06322
LSTYLE 0 0 0 255 0
PATTERN 1 0 0 1
RECT 06180 05287
O40:
MOVETO 04700 04656
LSTYLE 0 0 0 255 0
PATTERN 1 0 0 1
RNDR 07833 03666 783 -222
O41:
MOVETO 03348 03277
LSTYLE 0 0 0 255 0
PATTERN 1 0 0 1
ELLI 06245 02185
O42:
MOVETO 03197 01500
TSTYLE 40 0 0 0 0 0 0 32 2 0 255 0 255 255 255 "Helv"
TEXT "Some text"
CLEAR
O24:
MOVETO 02682 01207
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "The Sierpinski Box (Level = 4)"
O21:
MOVETO 00579 09770
LSTYLE 0 0 0 0 0
TURNTO -90
LSYS F1 4 100
CLEAR
MOVETO 00200 00500
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Fractal Tree (Level = 6)"
MOVETO 05000 00100
LSTYLE 0 0 0 0 0
TURNTO 90
FRAC F10 9900 6
CLEAR
MOVETO 00200 00500
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Fractal Tree (L-System, Level = 5)"
MOVETO 04399 00316
LSTYLE 0 0 0 0 0
TURNTO 90
LSYS TREE1 5 80
CLEAR
MOVETO 00200 00500
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Fractal Tree (L-System, Level = 6)"
MOVETO 05000 00400
LSTYLE 0 0 0 0 0
TURNTO 90
LSYS TREE2 6 80
CLEAR
MOVETO 00200 00500
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Fractal Tree (L-System, Level = 9)"
MOVETO 05000 00500
LSTYLE 0 0 0 0 0
TURNTO 90
LSYS TREE3 9 250
CLEAR
MOVETO 02500 00900
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Dragon Curve (L-System, Level = 14)"
MOVETO 07000 07000
LSTYLE 0 0 0 0 0
TURNTO 91
LSYS DRAGON 14 40
CLEAR
MOVETO 00200 01000
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Koch Island (Level = 3)"
MOVETO 02500 08000
LSTYLE 0 0 0 0 0
TURNTO 0
FRAC F2 5500 3
MOVETO 08000 08000
LSTYLE 0 0 0 0 0
TURNTO -90
FRAC F2 5500 3
MOVETO 08000 02500
LSTYLE 0 0 0 0 0
TURNTO -180
FRAC F2 5500 3
MOVETO 02500 02500
LSTYLE 0 0 0 0 0
TURNTO 90
FRAC F2 5500 3
CLEAR
MOVETO 00200 01000
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Koch Island (Level = 3)"
MOVETO 00000 05000
LSTYLE 0 0 0 0 0
TURNTO 0
FRAC F5 10000 3
CLEAR
MOVETO 00200 00500
TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
TEXT "A Koch Island (L-System, Level = 3)"
MOVETO 01000 04800
LSTYLE 0 0 0 0 0
TURNTO 0
LSYS KOCH1 3 80
CLEAR
O21:
MOVETO 01787 09081
TURNTO 0
LSYS HILBERT 6 100
MOVETO 02468 01839
TSTYLE 40 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "The Hilbert Curve (Level = 6)"
CLEAR
O20:
MOVETO 02200 09000
TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "ComputerSmiths Presents"
O21:
MOVETO 03500 08000
TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Fractal Paint"
O22:
MOVETO 03500 07000
TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Version 1.0"
O23:
MOVETO 02900 06000
TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Shareware Edition"
O24:
MOVETO 07296 00489
LSTYLE 0 0 0 0 255
TURNTO 90
LSYS TREE1 4 131
O25:
MOVETO 01202 04828
LSTYLE 0 0 0 255 255
TURNTO -85
LSYS FLAKE 3 168
O27:
MOVETO 02124 03477
LSTYLE 0 0 0 255 0
TURNTO -78
LSYS FLAKE 3 79
O28:
MOVETO 02618 02931
LSTYLE 0 0 255 255 0
TURNTO -77
LSYS FLAKE 3 39
O30:
MOVETO 00536 09626
LSTYLE 0 0 255 255 0
TURNTO -34
LSYS TRIAG 3 217
O34:
MOVETO 06000 00900
TSTYLE 40 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
TEXT "Press F4 to run the Demo"