home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / fractal112 / !Fractal / Resources / Tiling < prev   
Text File  |  1993-07-20  |  5KB  |  198 lines
  1. L-System
  2. L-Sprites
  3.  
  4. Name=CircularTile
  5. Iter=3
  6. Angles=24
  7. Axiom=X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X
  8. X=[F+F+F+F[---X-Y]+++++F++++++++F-F-F-F]
  9. Y=[F+F+F+F[---Y]+++++F++++++++F-F-F-F]
  10.  
  11. Name=DoublePenrose
  12. Iter=3
  13. Angles=10
  14. Axiom=[X][Y]++[X][Y]++[X][Y]++[X][Y]++[X][Y]
  15. W=YF++ZF----XF[-YF----WF]++
  16. X=+YF--ZF[---WF--XF]+
  17. Y=-WF++XF[+++YF++ZF]-
  18. Z=--YF++++WF[+ZF++++XF]--XF
  19. F=
  20.  
  21. Name=KitesAndDarts
  22. Iter=4
  23. Angles=10
  24. Axiom=Wf+Xf+Wf+Xf+Wf+Xf+Wf+Xf+Wf+X
  25. W=[F][++@1.618033989F][++f---@.618033989f|X-Y|f|W]
  26. X=[F+++@1.618033989F][++@.618033989fZ|X|-f|W]
  27. Y=[+F][@1.618033989F][+f@.618033989|Y+X]
  28. Z=[-F][@1.618033989F][@.618033989f--Wf|+Z]
  29. F=
  30.  
  31. Name=KitesAndDartsColor
  32. Iter=4
  33. Angles=10
  34. Axiom=Wf+Xf+Wf+Xf+Wf+Xf+Wf+Xf+Wf+X
  35. W=[c99F][++@1.618033989c143F][++f---@.618033989f|X-Y|f|W]
  36. X=[c99F+++@1.618033989c143F][++@.618033989fZ|X|-f|W]
  37. Y=[+c99F][@1.618033989c143F][+f@.618033989|Y+X]
  38. Z=[-c99F][@1.618033989c143F][@.618033989f--Wf|+Z]
  39. F=
  40.  
  41. Name=Kites&Darts
  42. Iter=5
  43. Angles=10
  44. Axiom=k
  45. k=+[@.618034a]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
  46. a=[@.618034k]+F@.618034[|a]----F+F----[a]@I.618034F
  47. F=f
  48.  
  49. Name=Kites&Darts2
  50. Iter=4
  51. Angles=10
  52. Axiom=[k]++[k]++[k]++[k]++[k]
  53. k=+[@.618034a]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
  54. a=[@.618034k]+F@.618034[|a]----F+F----[a]@I.618034F
  55. F=f
  56.  
  57. Name=Kites&Darts3
  58. Iter=4
  59. Angles=10
  60. Axiom=[a]++[a]++[a]++[a]++[a]
  61. k=+[@.618034a]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
  62. a=[@.618034k]+F@.618034[|a]----F+F----[a]@I.618034F
  63. F=f
  64.  
  65. Name=Kites&DartsColor
  66. Iter=4
  67. Angles=10
  68. Axiom=c143[k]++[k]++[k]++[k]++[k]
  69. k=+[@.618034a[f---@.618c99F][--f+++@.618c99F]]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
  70. a=[@.618034k]+F@.618034[|a][|f++@.382c99F]----F+F----[a][f--@.382c99F]@I.618034F
  71. F=f
  72.  
  73. Name=Losanges
  74. Iter=4
  75. Angles=10
  76. Axiom=x
  77. x=@.618034+F[|y]--F[|x][|+@.618034f@I.618034x]---[x]F--[y]F
  78. y=@.618034++[x]F|+F[|y]-[y]F|+F[|x]
  79. F=f
  80.  
  81. Name=Penrose1
  82. Iter=3
  83. Angles=10
  84. Axiom=+WF--XF---YF--ZF
  85. W=YF++ZF----XF[-YF----WF]++
  86. X=+YF--ZF[---WF--XF]+
  87. Y=-WF++XF[+++YF++ZF]-
  88. Z=--YF++++WF[+ZF++++XF]--XF
  89. F=
  90.  
  91. Name=Penrose1Color
  92. Iter=4
  93. Angles=10
  94. Axiom=+Wc99F--Xc143F---Yc143F--Zc99F
  95. W=Yc143F++Zc99F----Xc143F[-Yc143F----Wc99F]++
  96. X=+Yc143F--Zc99F[---Wc99F--Xc143F]+
  97. Y=-Wc99F++Xc143F[+++Yc143F++Zc99F]-
  98. Z=--Yc143F++++Wc99F[+Zc99F++++Xc143F]--Xc143F
  99. F=
  100.  
  101. Name=Penrose1Forced
  102. Iter=4
  103. Angles=10
  104. Axiom=+Wc64Fc108F--Xc67Fc64F---Yc64Fc67F--Zc108Fc64F
  105. W=Yc64Fc67F++Zc108Fc64F----Xc67Fc64F[-Yc64Fc67F----Wc64Fc108F]++
  106. X=+Yc64Fc67F--Zc108Fc64F[---Wc64Fc108F--Xc67Fc64F]+
  107. Y=-Wc64Fc108F++Xc67Fc64F[+++Yc64Fc67F++Zc108Fc64F]-
  108. Z=--Yc64Fc67F++++Wc64Fc108F[+Zc108Fc64F++++Xc67Fc64F]--Xc67Fc64F
  109. F=
  110. c=
  111.  
  112. Name=Penrose2
  113. Iter=3
  114. Angles=10
  115. Axiom=++ZF----XF-YF----WF
  116. W=YF++ZF----XF[-YF----WF]++
  117. X=+YF--ZF[---WF--XF]+
  118. Y=-WF++XF[+++YF++ZF]-
  119. Z=--YF++++WF[+ZF++++XF]--XF
  120. F=
  121.  
  122. Name=Penrose3
  123. Iter=3
  124. Angles=10
  125. Axiom=[X]++[X]++[X]++[X]++[X]
  126. W=YF++ZF----XF[-YF----WF]++
  127. X=+YF--ZF[---WF--XF]+
  128. Y=-WF++XF[+++YF++ZF]-
  129. Z=--YF++++WF[+ZF++++XF]--XF
  130. F=
  131.  
  132. Name=Penrose4
  133. Iter=3
  134. Angles=10
  135. Axiom=[Y]++[Y]++[Y]++[Y]++[Y]
  136. W=YF++ZF----XF[-YF----WF]++
  137. X=+YF--ZF[---WF--XF]+
  138. Y=-WF++XF[+++YF++ZF]-
  139. Z=--YF++++WF[+ZF++++XF]--XF
  140. F=
  141.  
  142. Name=Penta
  143. Iter=4
  144. Angles=20
  145. Axiom=[x]++++[x]++++[x]++++[x]++++[x]
  146. x=@.618034++f[@1.1755-------F][|y]----f[|x][|++@.618034f@I.618034x]------[x]f----[y]f
  147. y=@.618034++++[x]f|++f[|y]--[y]f|++f[|x]
  148. F=f
  149.  
  150. Name=PentaColor
  151. Iter=3
  152. Angles=20
  153. Axiom=c143[x]++++[x]++++[x]++++[x]++++[x]
  154. x=@.618034++F[c99@1.1755-------F][|y]----F[|x][|++@.618034f@I.618034x]------[x]F----[y]F
  155. y=@.618034++++[x]F|++F[|y]--[y]F|++F[|x]
  156. F=f
  157.  
  158. Name=PentaPlexity
  159. Iter=3
  160. Angles=10
  161. Axiom=F++F++F++F++F
  162. F=F++F++F|F-F++F
  163.  
  164. Name=SpiralTile
  165. Iter=4
  166. Angles=16
  167. Axiom=X++X++X++X++|f|X++X++X++X
  168. X=[c143FX+++++@.7653668647c99F@I.7653668647[-----Y]+++++c143F]
  169. Y=[c143F+++++@.7653668647c99F@I.7653668647[-----Y]+++++c143F]
  170.  
  171. Name=Stars&PentasColor
  172. Iter=4
  173. Angles=20
  174. Axiom=c143k
  175. k=++[@.618034[f-c99@.5878[F]------FF++++F]a]F@.618034------[--k]F--F------[--k]@I.618034F[@.618034|a]
  176. a=[@.618034k]++F@.618034[|[fc99@.5878+++++++F]a]--------F++F--------[c99f@.5878-------F][a]@I.618034F
  177. F=f
  178.  
  179. Name=Stars&Pentas1
  180. Iter=3
  181. Angles=20
  182. Axiom=[k]++++[k]++++[k]++++[k]++++[k]
  183. k=++[@.618034[f-@.5878[F]------FF++++F]a]f@.618034------[--k]f--f------[--k]@I.618034f[@.618034|a]
  184. a=[@.618034k]++f@.618034[|[f@.5878+++++++F]a]--------f++f--------[f@.5878-------F][a]@I.618034f
  185. F=f
  186.  
  187. Name=Stars&Pentas2
  188. Iter=3
  189. Angles=10
  190. Axiom=u
  191. u=@.381966[v]F[|y][-u]++F|+[v]F[|y]++F|+[v]F[|y]++F|+[v]F[|y]++F|+[v]F[|y]++F
  192. v=@.381966[v]F[|y]++F|+[v]F[|y]-[u]F-F|+[v]F[|y]++F
  193. w=@.381966f++[u]F|+F-F|+[v]F[|y]
  194. y=@.381966[x][y][w]F[|!y]++F++[y][w]F[|!y]++F++[z]F
  195. x=@.381966f++f++[!x][!z]F--[!z]F--[!z]F--[!z]F--[!z]F
  196. z=@.381966[z][x]F++[z]F++[w][y]F[|!y]++F++[z]F
  197. F=f
  198.