home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / MISC / FRACTALS.ZIP / FP.ZIP / DEMO.FPL next >
Encoding:
Text File  |  1990-11-27  |  6.0 KB  |  261 lines
  1. FRACDEF F1 3 4 0 1 60 1 -120 1 60 1 
  2. FRACDEF F2 4 8 0 1 90 1 -90 1 -90 1 0 1 90 1 90 1 -90 1 
  3. 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 
  4. FRACDEF F4 3 9 0 1 90 1 -90 1 -90 1 -90 1 90 1 90 1 90 1 -90 1 
  5. 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 
  6. 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 
  7. FRACDEF F9 3 5 0 1 90 1 -90 1 -90 1 90 1 
  8. FRACDEF F10 2 6 0 1 30 1 180 0 -240 1 180 0 -150 1 
  9. O1:
  10. LSYSDEF F1 90 F+F+F+F 1 F FF+F+F+F+FF
  11. O2:
  12. LSYSDEF TREE1 -22 F 1 F FF+[+F-F-F]-[-F+F+F]
  13. O3:
  14. LSYSDEF TREE2 -26 G 2 G GFX[+G][-G] X X[-FFF][+FFF]FX
  15. O4:
  16. LSYSDEF TREE3 -18 SLFFF 5 S [+++G][---G]TS G +H[-G]L H -G[+H]L T TL L [-FFF][+FFF]F
  17. O5:
  18. LSYSDEF DRAGON -90 X 2 X X+YF+ Y -FX-Y
  19. O6:
  20. LSYSDEF FLAKE 60 F++F++F 1 F F-F++F-F
  21. O9:
  22. LSYSDEF HILBERT 90 X 2 X -YF+XFX+FY- Y +XF-YFY-FX+
  23. O11:
  24. LSYSDEF TRIAG 60 FXF--FF--FF 2 X --FXF++FXF++FXF-- F FF
  25. O13:
  26. LSYSDEF KOCH1 90 F+F+F+F 1 F F+F-F-FFF+F+F-F
  27. O43:
  28. MOVETO 02500 09000
  29. TSTYLE 50 0 0 0 0 0 0 32 2 0 0 0 0 0 255 "Helv"
  30. TEXT "Fractals are Everywhere!"
  31. O44:
  32. MOVETO 00837 07800
  33. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  34. TEXT "Fractals are the rare and unusual, self-similar geometric patterns"
  35. O45:
  36. MOVETO 00837 07000
  37. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  38. TEXT "found in nature: in tree branches, in contours of a coast line,"
  39. O46:
  40. MOVETO 00837 06200
  41. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  42. TEXT "in peaks of mountains, in veins on leaves, in cumulus clouds."
  43. O47:
  44. MOVETO 01524 00020
  45. LSTYLE 0 0 255 0 0
  46. TURNTO 88
  47. LSYS TREE3 4 800
  48. O48:
  49. MOVETO 08541 00100
  50. LSTYLE 0 0 255 255 0
  51. TURNTO 116
  52. LSYS TREE2 4 200
  53. O51:
  54. MOVETO 03906 00032
  55. LSTYLE 0 0 0 255 0
  56. TURNTO 80
  57. LSYS TREE1 3 200
  58. O53:
  59. MOVETO 03047 00592
  60. LSTYLE 0 0 0 255 255
  61. TURNTO 89
  62. LSYS TREE2 3 400
  63. O54:
  64. MOVETO 08884 01609
  65. LSTYLE 0 0 0 0 255
  66. TURNTO 88
  67. LSYS TREE3 3 800
  68. O55:
  69. CLEAR
  70. O31:
  71. MOVETO 00880 09000
  72. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  73. TEXT "Fractal Paint allows you to draw with standard drawing tools such as:"
  74. O32:
  75. MOVETO 00950 07500
  76. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  77. TEXT "Lines:"
  78. O33:
  79. MOVETO 00950 06000
  80. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  81. TEXT "Rectangles:"
  82. O34:
  83. MOVETO 00950 04500
  84. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  85. TEXT "Rounded Rectangles:"
  86. O35:
  87. MOVETO 00950 03000
  88. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  89. TEXT "Circles:"
  90. O36:
  91. MOVETO 00950 01500
  92. TSTYLE 35 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  93. TEXT "Text:"
  94. O37:
  95. MOVETO 03519 06794
  96. LSTYLE 0 0 0 255 0
  97. LINETO 06674 07311
  98. O38:
  99. MOVETO 04506 07484
  100. LSTYLE 0 0 0 255 0
  101. LINETO 07940 06852
  102. O39:
  103. MOVETO 03777 06322
  104. LSTYLE 0 0 0 255 0
  105. PATTERN 1 0 0 1
  106. RECT 06180 05287
  107. O40:
  108. MOVETO 04700 04656
  109. LSTYLE 0 0 0 255 0
  110. PATTERN 1 0 0 1
  111. RNDR 07833 03666 783 -222
  112. O41:
  113. MOVETO 03348 03277
  114. LSTYLE 0 0 0 255 0
  115. PATTERN 1 0 0 1
  116. ELLI 06245 02185
  117. O42:
  118. MOVETO 03197 01500
  119. TSTYLE 40 0 0 0 0 0 0 32 2 0 255 0 255 255 255 "Helv"
  120. TEXT "Some text"
  121. CLEAR
  122. O24:
  123. MOVETO 02682 01207
  124. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  125. TEXT "The Sierpinski Box (Level = 4)"
  126. O21:
  127. MOVETO 00579 09770
  128. LSTYLE 0 0 0 0 0
  129. TURNTO -90
  130. LSYS F1 4 100
  131. CLEAR
  132. MOVETO 00200 00500
  133. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  134. TEXT "A Fractal Tree (Level = 6)"
  135. MOVETO 05000 00100
  136. LSTYLE 0 0 0 0 0
  137. TURNTO 90
  138. FRAC F10 9900 6
  139. CLEAR
  140. MOVETO 00200 00500
  141. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  142. TEXT "A Fractal Tree (L-System, Level = 5)"
  143. MOVETO 04399 00316
  144. LSTYLE 0 0 0 0 0
  145. TURNTO 90
  146. LSYS TREE1 5 80
  147. CLEAR
  148. MOVETO 00200 00500
  149. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  150. TEXT "A Fractal Tree (L-System, Level = 6)"
  151. MOVETO 05000 00400
  152. LSTYLE 0 0 0 0 0
  153. TURNTO 90
  154. LSYS TREE2 6 80
  155. CLEAR
  156. MOVETO 00200 00500
  157. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  158. TEXT "A Fractal Tree (L-System, Level = 9)"
  159. MOVETO 05000 00500
  160. LSTYLE 0 0 0 0 0
  161. TURNTO 90
  162. LSYS TREE3 9 250
  163. CLEAR
  164. MOVETO 02500 00900
  165. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  166. TEXT "A Dragon Curve (L-System, Level = 14)"
  167. MOVETO 07000 07000
  168. LSTYLE 0 0 0 0 0
  169. TURNTO 91
  170. LSYS DRAGON 14 40
  171. CLEAR
  172. MOVETO 00200 01000
  173. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  174. TEXT "A Koch Island (Level = 3)"
  175. MOVETO 02500 08000
  176. LSTYLE 0 0 0 0 0
  177. TURNTO 0
  178. FRAC F2 5500 3
  179. MOVETO 08000 08000
  180. LSTYLE 0 0 0 0 0
  181. TURNTO -90
  182. FRAC F2 5500 3
  183. MOVETO 08000 02500
  184. LSTYLE 0 0 0 0 0
  185. TURNTO -180
  186. FRAC F2 5500 3
  187. MOVETO 02500 02500
  188. LSTYLE 0 0 0 0 0
  189. TURNTO 90
  190. FRAC F2 5500 3
  191. CLEAR
  192. MOVETO 00200 01000
  193. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  194. TEXT "A Koch Island (Level = 3)"
  195. MOVETO 00000 05000
  196. LSTYLE 0 0 0 0 0
  197. TURNTO 0
  198. FRAC F5 10000 3
  199. CLEAR
  200. MOVETO 00200 00500
  201. TSTYLE 40 0 0 0 0 0 0 16 2 0 0 0 255 255 255 "Helv"
  202. TEXT "A Koch Island (L-System, Level = 3)"
  203. MOVETO 01000 04800
  204. LSTYLE 0 0 0 0 0
  205. TURNTO 0
  206. LSYS KOCH1 3 80
  207. CLEAR
  208. O21:
  209. MOVETO 01787 09081
  210. TURNTO 0
  211. LSYS HILBERT 6 100
  212. MOVETO 02468 01839
  213. TSTYLE 40 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  214. TEXT "The Hilbert Curve (Level = 6)"
  215. CLEAR
  216. O20:
  217. MOVETO 02200 09000
  218. TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  219. TEXT "ComputerSmiths Presents"
  220. O21:
  221. MOVETO 03500 08000
  222. TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  223. TEXT "Fractal Paint"
  224. O22:
  225. MOVETO 03500 07000
  226. TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  227. TEXT "Version 1.0"
  228. O23:
  229. MOVETO 02900 06000
  230. TSTYLE 50 0 900 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  231. TEXT "Shareware Edition"
  232. O24:
  233. MOVETO 07296 00489
  234. LSTYLE 0 0 0 0 255
  235. TURNTO 90
  236. LSYS TREE1 4 131
  237. O25:
  238. MOVETO 01202 04828
  239. LSTYLE 0 0 0 255 255
  240. TURNTO -85
  241. LSYS FLAKE 3 168
  242. O27:
  243. MOVETO 02124 03477
  244. LSTYLE 0 0 0 255 0
  245. TURNTO -78
  246. LSYS FLAKE 3 79
  247. O28:
  248. MOVETO 02618 02931
  249. LSTYLE 0 0 255 255 0
  250. TURNTO -77
  251. LSYS FLAKE 3 39
  252. O30:
  253. MOVETO 00536 09626
  254. LSTYLE 0 0 255 255 0
  255. TURNTO -34
  256. LSYS TRIAG 3 217
  257. O34:
  258. MOVETO 06000 00900
  259. TSTYLE 40 0 0 0 0 0 0 32 2 0 0 0 255 255 255 "Helv"
  260. TEXT "Press F4 to run the Demo"
  261.