home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
graphuti
/
lparser2.zip
/
TREE01.LS
< prev
next >
Wrap
Text File
|
1993-10-12
|
348b
|
18 lines
# --- L-System Parser/Mutator --- Lj Lapre ---
#
# Elaboration of example d on page 56
# with double the amount of branches
#
10
30
20
#
FAL
#
A=F[&'(.7)!BL]>(137)[&'(.6)!BL]>(137)'(.9)!(.9)A
B=F[-'(.7)!(.9)$CL]'(.9)!(.9)C
C=F[+'(.7)!(.9)$BL]'(.9)!(.9)B
#
L=~cc{+(45)f(.5)-(45)f(1)-(45)f(.5)+(45)|+(45)f(.5)-(45)f(1)-(45)f(.5)}
@