1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
|
############################################################################
#
# File: linddefs.icn
#
# Subject: Procedure to produce table of L-systems
#
# Author: Ralph E. Griswold
#
# Date: November 22, 1997
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# This procedure produces a table of L-systems.
#
############################################################################
#
# Links: lindrec
#
############################################################################
link lindrec
procedure linddefs()
local linden
linden := table()
linden["fibbush"] := lsys_0l("", table(), 0, 90)
linden["fibbush"].rewrite["A"] := "[B/////'B///////'B]"
linden["fibbush"].rewrite["B"] := "[&IL!A]"
linden["fibbush"].rewrite["I"] := "FL"
linden["fibbush"].rewrite["F"] := "F/////I"
linden["fibbush"].rewrite["L"] := "['''^^{-F+F+F-|-F+F+F}]"
linden["fibbush"].gener := 3
linden["fibbush"].length := 3
linden["fibbush"].axiom := "A"
linden["fibbush"].angle := 22.5
linden["ebush"] := lsys_0l("", table(), 0, 90)
linden["ebush"].rewrite["P"] := "I+[P+O]--//[--L]I[++L]-[PO]++PO"
linden["ebush"].rewrite["I"] := "FS[//&&L][//^^L]FS"
linden["ebush"].rewrite["S"] := "SFS"
linden["ebush"].rewrite["L"] := "['{+f-ff-f+|+f-ff-f}]"
linden["ebush"].rewrite["O"] := "[&&&D`/W////W////W////W////W]"
linden["ebush"].rewrite["D"] := "FF"
linden["ebush"].rewrite["W"] := "[`^F][{&&&&-f+f|-f+f}]"
linden["ebush"].axiom := "P"
linden["ebush"].angle := 18.0
linden["ebush"].gener := 3
linden["ebush"].length := 3
linden["bush"] := lsys_0l("", table(), 0, 90)
linden["bush"].rewrite["F"] := "FF-[-F+F+F]+[+F-F-F]"
linden["bush"].axiom := "++++F"
linden["bush"].angle := 22.5
linden["cesaro"] := lsys_0l("", table(), 0, 90)
linden["cesaro"].rewrite["X"] := "----F!X!++++++++F!X!----"
linden["cesaro"].rewrite["F"] := ""
linden["cesaro"].gener := 10
linden["cesaro"].length := 3
linden["cesaro"].axiom := "FX"
linden["cesaro"].angle := 10.58823529
linden["curve1"] := lsys_0l("", table(), 0, 90)
linden["curve1"].rewrite["F"] := "FF-F-F-F-F-F+F"
linden["curve1"].axiom := "F-F-F-F-"
linden["curve1"].angle := 90.0
linden["curve2"] := lsys_0l("", table(), 0, 90)
linden["curve2"].rewrite["F"] := "FF-F+F-F-FF"
linden["curve2"].axiom := "F-F-F-F-"
linden["curve2"].angle := 90.0
linden["curve3"] := lsys_0l("", table(), 0, 90)
linden["curve3"].rewrite["F"] := "F-FF--F-F"
linden["curve3"].axiom := "F-F-F-F-"
linden["curve3"].angle := 90.0
linden["curve4"] := lsys_0l("", table(), 0, 90)
linden["curve4"].rewrite["X"] := "YF+XF+Y"
linden["curve4"].rewrite["Y"] := "XF-YF-X"
linden["curve4"].axiom := "YF"
linden["curve4"].angle := 60.0
linden["curve4"].gener := 5
linden["dragon"] := lsys_0l("", table(), 0, 90)
linden["dragon"].rewrite["X"] := "-FX++FY-"
linden["dragon"].rewrite["Y"] := "+FX--FY+"
linden["dragon"].rewrite["F"] := ""
linden["dragon"].axiom := "FX"
linden["dragon"].angle := 45.0
linden["dragon"].gener := 10
linden["dragon1"] := lsys_0l("", table(), 0, 90)
linden["dragon1"].rewrite["r"] := "-Fl-r"
linden["dragon1"].rewrite["l"] := "l+rF+"
linden["dragon1"].axiom := "Fl"
linden["dragon1"].gener := 14
linden["dragonc"] := lsys_0l("", table(), 0, 90)
linden["dragonc"].rewrite["X"] := "X-YF-"
linden["dragonc"].rewrite["Y"] := "+FX+Y"
linden["dragonc"].axiom := "X"
linden["dragonc"].angle := 90.0
linden["dragonc"].gener := 10
linden["fass1"] := lsys_0l("", table(), 0, 90)
linden["fass1"].rewrite["R"] := "-LFLF+RFRFR+F+RF-LFL-FR"
linden["fass1"].rewrite["L"] := "LF+RFR+FL-F-LFLFL-FRFR+"
linden["fass1"].axiom := "-L"
linden["fass1"].angle := 90.0
linden["fass2"] := lsys_0l("", table(), 0, 90)
linden["fass2"].rewrite["R"] := "-LFLFLF+RFR+FL-F-LF+RFR+FLF+RFRF-LFL-FRFR"
linden["fass2"].rewrite["L"] := "LFLF+RFR+FLFL-FRF-LFL-FR+F+RF-LFL-FRFRFR+"
linden["fass2"].axiom := "-L"
linden["fass2"].angle := 90.0
linden["flake3"] := lsys_0l("", table(), 0, 90)
linden["flake3"].rewrite["X"] := "++FXFY--FX--FY"
linden["flake3"].rewrite["Y"] := "FYFX+++FYFX++FX++FYFX|+FX--FY--FXFY++"
linden["flake3"].rewrite["F"] := ""
linden["flake3"].axiom := "FX"
linden["flake3"].angle := 30.0
linden["flake3"].gener := 10
linden["hilbert"] := lsys_0l("", table(), 0, 90)
linden["hilbert"].rewrite["X"] := "-YF+XFX+FY-"
linden["hilbert"].rewrite["Y"] := "+XF-YFY-FX+"
linden["hilbert"].axiom := "X"
linden["hilbert"].angle := 90.0
linden["hilbert"].gener := 10
linden["island1"] := lsys_0l("", table(), 0, 90)
linden["island1"].rewrite["F"] := "FFFF-F+F+F-F[-FF+F+FF+F]FF"
linden["island1"].axiom := "F+F+F+F"
linden["island1"].angle := 90.0
linden["island2"] := lsys_0l("", table(), 0, 90)
linden["island2"].rewrite["F"] := "F+F-FF-F-FF++FF-F+FF+F+FF--FFF"
linden["island2"].axiom := "F+F+F+F"
linden["island2"].angle := 90.0
linden["island2"].gener := 4
linden["island2"].length := 2
linden["koch1"] := lsys_0l("", table(), 0, 90)
linden["koch1"].rewrite["F"] := "F+F--F+F"
linden["koch1"].axiom := "F--F--F"
linden["koch1"].angle := 60.0
linden["koch1"].gener := 4
linden["koch1"].length := 4
linden["koch2"] := lsys_0l("", table(), 0, 90)
linden["koch2"].rewrite["F"] := "-F+++F---F+"
linden["koch2"].axiom := "F---F---F---F"
linden["koch2"].angle := 30.0
linden["koch2"].gener := 6
linden["koch2"].length := 4
linden["koch3"] := lsys_0l("", table(), 0, 90)
linden["koch3"].rewrite["F"] := "F-F+F+FF-F-F+F"
linden["koch3"].axiom := "F-F-F-F"
linden["koch3"].angle := 90.0
linden["koch3"].gener := 6
linden["koch3"].length := 4
linden["koch4"] := lsys_0l("", table(), 0, 90)
linden["koch4"].rewrite["F"] := "+F--F++F-"
linden["koch4"].axiom := "F++++F++++F"
linden["koch4"].angle := 30.0
linden["koch4"].gener := 5
linden["koch4"].length := 3
linden["koch5"] := lsys_0l("", table(), 0, 90)
linden["koch5"].rewrite["F"] := "F+F-F-FFF+F+F-F"
linden["koch5"].axiom := "F+F+F+F"
linden["koch5"].angle := 90.0
linden["koch6"] := lsys_0l("", table(), 0, 90)
linden["koch6"].rewrite["F"] := "F-FF+FF+F+F-F-FF+F+F-F-FF-FF+F"
linden["koch6"].axiom := "F+F+F+F"
linden["koch6"].angle := 90.0
linden["koch7"] := lsys_0l("", table(), 0, 90)
linden["koch7"].rewrite["F"] := "F+F-F+F+F"
linden["koch7"].axiom := "F+F+F+F"
linden["koch7"].gener := 4
linden["koch8"] := lsys_0l("", table(), 0, 90)
linden["koch8"].rewrite["F"] := "F+F--F+F"
linden["koch8"].axiom := "F"
linden["koch8"].angle := 60.0
linden["lakeisle"] := lsys_0l("", table(), 0, 90)
linden["lakeisle"].rewrite["F"] := "F-f+FF-F-FF-Ff-FF+f-FF+F+FF+Ff+FFF"
linden["lakeisle"].rewrite["f"] := "ffffff"
linden["lakeisle"].axiom := "F-F-F-F"
linden["lakeisle"].gener := 2
linden["leaf1"] := lsys_0l("", table(), 0, 90)
linden["leaf1"].rewrite["H"] := "J"
linden["leaf1"].rewrite["P"] := "X"
linden["leaf1"].rewrite["X"] := "F[+AAAA]FY"
linden["leaf1"].rewrite["E"] := "H"
linden["leaf1"].rewrite["B"] := "E"
linden["leaf1"].rewrite["J"] := "Y"
linden["leaf1"].rewrite["O"] := "P"
linden["leaf1"].rewrite["A"] := "N"
linden["leaf1"].rewrite["Y"] := "F[-BBBB]FX"
linden["leaf1"].rewrite["N"] := "O"
linden["leaf1"].axiom := "X"
linden["leaf1"].angle := 45.0
linden["leaf1"].gener := 10
linden["leaf2"] := lsys_0l("", table(), 0, 90)
linden["leaf2"].rewrite["X"] := "A"
linden["leaf2"].rewrite["B"] := "F[-Y]FA"
linden["leaf2"].rewrite["A"] := "F[+X]BF"
linden["leaf2"].rewrite["Y"] := "B"
linden["leaf2"].axiom := "A"
linden["leaf2"].angle := 45.0
linden["leaf2"].gener := 14
linden["peano1"] := lsys_0l("", table(), 0, 90)
linden["peano1"].rewrite["F"] := "F-F+F+F+F-F-F-F+F"
linden["peano1"].axiom := "F-F-F-F"
linden["peano1"].angle := 90.0
linden["peano2"] := lsys_0l("", table(), 0, 90)
linden["peano2"].rewrite["X"] := "XY-F-FXY++F++FXY"
linden["peano2"].rewrite["Y"] := "-F-FXY"
linden["peano2"].axiom := "FXY++F++FXY++F"
linden["peano2"].angle := 45.0
linden["peano2"].gener := 4
linden["peano2"].length := 7
linden["peano3"] := lsys_0l("", table(), 0, 90)
linden["peano3"].rewrite["X"] := "XFYFX+F+YFXFY-F-XFYFX"
linden["peano3"].rewrite["Y"] := "YFXFY-F-XFYFX+F+YFXFY"
linden["peano3"].axiom := "X"
linden["peano3"].angle := 90.0
linden["penrose1"] := lsys_0l("", table(), 0, 90)
linden["penrose1"].rewrite["X"] := "+YF--ZF[---WF--XF]+"
linden["penrose1"].rewrite["Z"] := "--YF++++WF[+ZF++++XF]--XF"
linden["penrose1"].rewrite["W"] := "YF++ZF----XF[-YF----WF]++"
linden["penrose1"].rewrite["Y"] := "-WF++XF[+++YF++ZF]-"
linden["penrose1"].rewrite["F"] := ""
linden["penrose1"].axiom := "+WF--XF---YF--ZF"
linden["penrose1"].angle := 36.0
linden["penrose2"] := lsys_0l("", table(), 0, 90)
linden["penrose2"].rewrite["X"] := "+YF--ZF[---WF--XF]+"
linden["penrose2"].rewrite["Z"] := "--YF++++WF[+ZF++++XF]--XF"
linden["penrose2"].rewrite["W"] := "YF++ZF----XF[-YF----WF]++"
linden["penrose2"].rewrite["Y"] := "-WF++XF[+++YF++ZF]-"
linden["penrose2"].rewrite["F"] := ""
linden["penrose2"].axiom := "++ZF----XF-YF----WF"
linden["penrose2"].angle := 36.0
linden["penrose2"].gener := 5
linden["penrose2"].length := 10
linden["penrose3"] := lsys_0l("", table(), 0, 90)
linden["penrose3"].rewrite["X"] := "+YF--ZF[---WF--XF]+"
linden["penrose3"].rewrite["Z"] := "--YF++++WF[+ZF++++XF]--XF"
linden["penrose3"].rewrite["W"] := "YF++ZF----XF[-YF----WF]++"
linden["penrose3"].rewrite["Y"] := "-WF++XF[+++YF++ZF]-"
linden["penrose3"].rewrite["F"] := ""
linden["penrose3"].axiom := "[X]++[X]++[X]++[X]++[X]"
linden["penrose3"].angle := 36.0
linden["penrose3"].gener := 5
linden["penrose3"].length := 10
linden["penrose4"] := lsys_0l("", table(), 0, 90)
linden["penrose4"].rewrite["X"] := "+YF--ZF[---WF--XF]+"
linden["penrose4"].rewrite["Z"] := "--YF++++WF[+ZF++++XF]--XF"
linden["penrose4"].rewrite["W"] := "YF++ZF----XF[-YF----WF]++"
linden["penrose4"].rewrite["Y"] := "-WF++XF[+++YF++ZF]-"
linden["penrose4"].rewrite["F"] := ""
linden["penrose4"].axiom := "[Y]++[Y]++[Y]++[Y]++[Y]"
linden["penrose4"].angle := 36.0
linden["penrose4"].gener := 5
linden["penrose4"].length := 10
linden["penrosed"] := lsys_0l("", table(), 0, 90)
linden["penrosed"].rewrite["X"] := "+YF--ZF[---WF--XF]+"
linden["penrosed"].rewrite["Z"] := "--YF++++WF[+ZF++++XF]--XF"
linden["penrosed"].rewrite["W"] := "YF++ZF----XF[-YF----WF]++"
linden["penrosed"].rewrite["Y"] := "-WF++XF[+++YF++ZF]-"
linden["penrosed"].rewrite["F"] := ""
linden["penrosed"].axiom := "[X][Y]++[X][Y]++[X][Y]++[X][Y]++[X][Y]"
linden["penrosed"].angle := 36.0
linden["penrosed"].length := 40
linden["plant01"] := lsys_0l("", table(), 0, 90)
linden["plant01"].rewrite["F"] := "F[+F]F[-F]F"
linden["plant01"].axiom := "F"
linden["plant01"].angle := 25.71428571
linden["plant01"].gener := 10
linden["plant02"] := lsys_0l("", table(), 0, 90)
linden["plant02"].rewrite["F"] := "F[+F]F[-F][F]"
linden["plant02"].axiom := "F"
linden["plant02"].angle := 20.0
linden["plant03"] := lsys_0l("", table(), 0, 90)
linden["plant03"].rewrite["F"] := "FF-[-F+F+F]+[+F-F-F]"
linden["plant03"].axiom := "F"
linden["plant03"].angle := 22.5
linden["plant03"].gener := 4
linden["plant04"] := lsys_0l("", table(), 0, 90)
linden["plant04"].rewrite["X"] := "F[+X]F[-X]+X"
linden["plant04"].rewrite["F"] := "FF"
linden["plant04"].axiom := "X"
linden["plant04"].angle := 20.0
linden["plant04"].gener := 5
linden["plant05"] := lsys_0l("", table(), 0, 90)
linden["plant05"].rewrite["X"] := "F[+X][-X]FX"
linden["plant05"].rewrite["F"] := "FF"
linden["plant05"].axiom := "X"
linden["plant05"].angle := 25.71428571
linden["plant05"].gener := 5
linden["plant06"] := lsys_0l("", table(), 0, 90)
linden["plant06"].rewrite["X"] := "F-[[X]+X]+F[+FX]-X"
linden["plant06"].rewrite["F"] := "FF"
linden["plant06"].axiom := "X"
linden["plant06"].angle := 22.5
linden["plant06"].gener := 5
linden["plant07"] := lsys_0l("", table(), 0, 90)
linden["plant07"].rewrite["X"] := "X[-FFF][+FFF]FX"
linden["plant07"].rewrite["Z"] := "ZFX[+Z][-Z]"
linden["plant07"].axiom := "Z"
linden["plant07"].angle := 25.71428571
linden["plant07"].gener := 5
linden["plant08"] := lsys_0l("", table(), 0, 90)
linden["plant08"].rewrite["S"] := "[+++Z][---Z]TS"
linden["plant08"].rewrite["H"] := "-Z[+H]L"
linden["plant08"].rewrite["Z"] := "+H[-Z]L"
linden["plant08"].rewrite["L"] := "[-FFF][+FFF]F"
linden["plant08"].rewrite["T"] := "TL"
linden["plant08"].axiom := "SLFFF"
linden["plant08"].angle := 18.0
linden["plant08"].gener := 6
linden["plant08"].length := 8
linden["plant09"] := lsys_0l("", table(), 0, 90)
linden["plant09"].rewrite["X"] := "X[-FFF][+FFF]FX"
linden["plant09"].rewrite["Y"] := "YFX[+Y][-Y]"
linden["plant09"].axiom := "Y"
linden["plant09"].angle := 25.71428571
linden["plant09"].gener := 5
linden["plant10"] := lsys_0l("", table(), 0, 90)
linden["plant10"].rewrite["F"] := "F[+FF][-FF]F[+FF][-FF]F"
linden["plant10"].axiom := "F"
linden["plant10"].angle := 36.0
linden["plant10"].gener := 3
linden["plant11"] := lsys_0l("", table(), 0, 90)
linden["plant11"].rewrite["F"] := "F[+F[+F][-F]F][-F[+F][-F]F]F[+F][-F]F"
linden["plant11"].axiom := "F"
linden["plant11"].angle := 30.0
linden["plant11"].gener := 3
linden["plant11"].length := 10
linden["quadgos"] := lsys_0l("", table(), 0, 90)
linden["quadgos"].rewrite["R"] := "+FLFL-FR-FR+FL+FLFR+FL-FRFR-FL-FR+FLFRFR-FL-FRFL+FL+FR-FR-FL+FL+FRFR"
linden["quadgos"].rewrite["L"] := "FLFL-FR-FR+FL+FL-FR-FRFL+FR+FLFLFR-FL+FR+FLFL+FR-FLFR-FR-FL+FL+FRFR-"
linden["quadgos"].rewrite["F"] := ""
linden["quadgos"].axiom := "-FR"
linden["quadgos"].angle := 90.0
linden["quadkoch"] := lsys_0l("", table(), 0, 90)
linden["quadkoch"].rewrite["F"] := "F+FF-FF-F-F+F+FF-F-F+F+FF+FF-F"
linden["quadkoch"].axiom := "FX++FX++FX++FX++FX"
linden["quadkoch"].angle := 90.0
linden["quartet"] := lsys_0l("", table(), 0, 90)
linden["quartet"].rewrite["H"] := "-"
linden["quartet"].rewrite["B"] := "FB+FA-FB-JFBFA"
linden["quartet"].rewrite["J"] := "+"
linden["quartet"].rewrite["A"] := "FBFA+HFA+FB-FA"
linden["quartet"].rewrite["F"] := ""
linden["quartet"].axiom := "FB"
linden["quartet"].angle := 90.0
linden["quartet"].gener := 8
linden["sier1"] := lsys_0l("", table(), 0, 90)
linden["sier1"].rewrite["X"] := "+FXF-FXF-FXF+"
linden["sier1"].rewrite["F"] := "FXF"
linden["sier1"].axiom := "F"
linden["sier1"].angle := 120.0
linden["sier1"].gener := 5
linden["sier2"] := lsys_0l("", table(), 0, 90)
linden["sier2"].rewrite["X"] := "--FXF++FXF++FXF--"
linden["sier2"].rewrite["F"] := "FF"
linden["sier2"].axiom := "FXF--FF--FF"
linden["sier2"].angle := 60.0
linden["sier2"].gener := 5
linden["sier3"] := lsys_0l("", table(), 0, 90)
linden["sier3"].rewrite["F"] := "F[-F]F"
linden["sier3"].axiom := "F-F-F"
linden["sier3"].angle := 120.0
linden["sier3"].gener := 5
linden["siersqar"] := lsys_0l("", table(), 0, 90)
linden["siersqar"].rewrite["F"] := "FF+F+F+F+FF"
linden["siersqar"].axiom := "F+F+F+F"
linden["siersqar"].angle := 90.0
linden["siersqar"].gener := 4
linden["snoflake"] := lsys_0l("", table(), 0, 90)
linden["snoflake"].rewrite["F"] := "F-F+F+F-F"
linden["snoflake"].axiom := "+F"
linden["snoflake"].gener := 4
linden["space1"] := lsys_0l("", table(), 0, 90)
linden["space1"].rewrite["X"] := "YFXFY+F+YFXFY-F-XFYFX"
linden["space1"].rewrite["Y"] := "YFXFY-F-XFYFX+F+YFXFY"
linden["space1"].axiom := "X"
linden["space1"].gener := 3
linden["sphinx"] := lsys_0l("", table(), 0, 90)
linden["sphinx"].rewrite["X"] := "+FF-YFF+FF--FFFXF--YFFFYFFF"
linden["sphinx"].rewrite["G"] := "GG"
linden["sphinx"].rewrite["Y"] := "-FF+XFF-FF++FFFYF++XFFFXFFF"
linden["sphinx"].rewrite["F"] := "GG"
linden["sphinx"].axiom := "X"
linden["sphinx"].angle := 60.0
linden["sphinx"].gener := 5
linden["sqgasket"] := lsys_0l("", table(), 0, 90)
linden["sqgasket"].rewrite["X"] := "+FXF+FXF+FXF+FXF"
linden["sqgasket"].rewrite["F"] := "FF"
linden["sqgasket"].axiom := "X"
linden["sqgasket"].angle := 90.0
linden["sqgasket"].gener := 5
linden["square"] := lsys_0l("", table(), 0, 90)
linden["square"].rewrite["F"] := "FF+F+F+F+FF"
linden["square"].axiom := "F+F+F+F"
linden["square"].angle := 90.0
linden["tile"] := lsys_0l("", table(), 0, 90)
linden["tile"].rewrite["X"] := "[F+F+F+F[---X-Y]+++++F++++++++F-F-F-F]"
linden["tile"].rewrite["Y"] := "[F+F+F+F[---Y]+++++F++++++++F-F-F-F]"
linden["tile"].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"
linden["tile"].angle := 15.0
linden["tile"].length := 10
linden["tree"] := lsys_0l("", table(), 0, 90)
linden["tree"].rewrite["X"] := "[-FX]+FX"
linden["tree"].axiom := "+++FX"
linden["tree"].angle := 30.0
linden["tree"].gener := 8
linden["tree"].length := 10
linden["tree1"] := lsys_0l("", table(), 0, 90)
linden["tree1"].rewrite["X"] := "[-FX]+FX"
linden["tree1"].axiom := "+++FX"
linden["tree1"].angle := 30.0
linden["tree1"].gener := 5
linden["tree1"].length := 8
linden["tree2"] := lsys_0l("", table(), 0, 90)
linden["tree2"].rewrite["X"] := "+FY"
linden["tree2"].rewrite["Y"] := "-FX"
linden["tree2"].rewrite["F"] := "FF-[XY]+[XY]"
linden["tree2"].axiom := "++++F"
linden["tree2"].angle := 22.5
return linden
end
|
