# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
18 # recursion level
10 # basic angle
200 # starting thickness
C # axiom
#-------------------------------------- Creature
C=LBW
#-------------------------------------- Body
B=[[''aH]|[g]]
a=Fs+;'a # upper part
g=Ft+;'g # lower part
s=[::cc!!!!&&[FFcccZ]^^^^FFcccZ] # upper spikes
t=[c!!!!&[FF]^^FF] # lower spikes
#-------------------------------------- Lungs
L=O # 8 recursions delay
O=P
P=Q
Q=R
R=U
U=X
X=Y
Y=V
V=[cc!!!&&&&&&&&&[Zp]|[Zp]]
p=h>>>>>>>>>>>>h>>>>>>>>>>>gt;h
h=[++++!F'''p]
#-------------------------------------- Head
H=[cccci[>>>>>dcFFF][<<<<<ecFFF]]
d=Z!&Z!&:'d # left
e=Z!^Z!^:'e # right
i=-:"i
#-------------------------------------- Wing
W=[%[!!cb][<<<!!cb][>>>!!cb]]
b=Fl!+Fl+;'b # arc
l=[-cc{--z++z++z--|--z++z++z}]
#-------------------------------------- End
@
5
22.5
10
c(12)s
l=[c(4)+F-F-F+|t(12)+F-F-F]
r=F{t(12)--l}[t(-12)++l]F
s=c(12)r&[s]--[--l]r[++l]>[u]+<u
u=c(1)r^[u]++[--l]r[++l]<[s]->s
@
5
22.5
10
c(12)t
l=[c(4)s+F-F-F+|+F-F-F]
r=F{--l}[++l]F
t=c(12)r&[t]--[--l]r[++l]>[u]+<u
u=c(1)r^[u]++[--l]r[++l]<[t]->t
@
# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
20
5
10
# axiom:
&(90)+(90)a
# transformation rules
a=F{t(12)c(43)+(45)l}[c(25)-(45)l]^;c(2)t(-12)a
# apical delay
l=j
j=h
h=s
s=d
d=x
x=a
#
F='(1.17)F'(.855) # internode elongation rate
@
3
26
c(12)FX
F(.5)=Fg{~(10)cX}~(10)F-^Z
F=Z~(10)Xg~(10)F-^Z
Z(.5)=F~(10)c(2)Xc(2)~(10)Z
Z=F~(10)c(12)Xc(12)~(10)Z
X(.5)='(.8){c(42)+F>X}[>F-X]c(62)F[F&X][F^X]
X='(.8){c(52)+F&X}[>F-X]c(75)F[F^X][F<X]
@
# Bush, Adrian Mariano
4
22.5
c(6)FX
X=F[-XL&F+XL][+<F-F^XL]
L(.5)={t(12)c(48)f(5)+(120)f(5)+(120)f(5)}
L={t(-12)c(4)f(5)+(120)f(5)+(120)f(5)}
@
4
22.500000
10.000000
c(6)FX
X=F[+XL&Z+XL][+<F-F^XL]
L(.5)={t(12)c(48)f(5)+(120)f(5)+(120)f(5)}
L={t[F](-12)c(4)f(5)+(120)f(5)[{]+(120)f(5)}{t(12)c(48)f(5)+(120)f(5)+(120)f(5)}
@
6 # recursion level
15.00 # angle
10.00 # thickness
F # axiom
F=cFgF
g={c(12)t(-24)~F>+^F&-F}ggg
@ # end
# circular tile, Adrian Mariano 3 15 #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 #transformation rules X=[c(12)F+\F+F/+F[---X-Y]+++++F++++++++F-F-F-F] Y=[c(57)F+F+F+F[---Y]+++++F++++++++\F-F/-*10T(-24)F-FT]
10 # recursion level
45.000000 #basic angle
10.000000 #thickness
#axiom:
{c(71)~(2)++FX}t(-12)c(1)~(2)FX
# 3 transformation rules
F=
Y=~(2)+FX~(2)--FY+
X=~(2)-FX~(2)++FY-
@
6
215.000000
10.000000
# axiom:
X
# rules:
X=z->&+F[t(-12)Z+>>c(2)X]zg[z]fzg{z}{f}fz->&+F[Z+>>c(2)X]zg[z]fzg{z}{f}f
Z=zg{f}{[z]f}fz->&+F{t(-12)Z+>>c(56)([z]67)X}zg[z]fzg{z}{f}f
@
10
22.5
# axiom:
c(2)AABABA
# context sensitive rules
B<B>B = B
B<B>A = A{+FAFA}
B<A>B = A
B<A>A = A
A<B>B = B
A<B>A = BFA
A<A>B = B
A<A>A = B
A=ABA
B=BAB
F=
+ = '&-
- = ^+
& = '>^
^ = <&
8
25
50
E
E = {A}[t(12)B]{t(-12)C}[D]
A = c(2)+FAE
B = c(42)-FBE
C = c(63)^FCE
D = c(12)&FDE
@
8
25.000000
50.000000
E
E={A}[t(12)B]{t(-12)C}[D]
A=c(2)+FAEc(12[c])[c]&[c]FDE
B=c(42)[c]-FBE
C=c(63)^FCEc(2)+FAE
D=c(12[c])&[c]FDE
@
8
25
50
E
E = {A}[t(12)B]{t(-24)C}[D]
A = c(2)+ZFAE
B = c(2)-FzBE
C = c(63)^FCE
D = c(12)&ZDE
6
25.000000
50.000000
E
E={A}[t(12)B]{t(-24)C}[D]{A}[t(12)B]{t(-24)C}[D]
A=c(2)+ZFAE
B=c([c]2)-FzBE
C=c([c]63)&FCE{A}[t(12)B]{t(+24)C}[D]{A}[t(12)B]{t(-24)C}[D]
D=c(12)^ZDE
@
# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
12
10
80
[c|H]C[ccc>>>>>>>>>[TcccF][OcccF]]
C=FR-C
R=[cc^^^^^^^^^BcH][cc&&&&&&&&&BcH]
B=F++!B
L=[c{--z++z++z--|--z++z++z}]
H=[^^^SL]%[^^^SL]>>>H
S=Z!S
T=Z+^![&&&&&&&&&L]:T
O=Z-^![&&&&&&&&&L]:O
@
# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
10
10
80
C[c;;;;;''''''H]
C=FR--C
R=[c(52)^^^^^^^^^p][c&&&&&&&&&p]
H=[^^^G]%[^^^G]>>>H
G=F!^+F^+;'[&&&L]G
L=[c{--z++z++z--|--z++z++z}]
p=++F[cag]>>>>>>>>>>>>{c(2)ag}>>>>>>>>
>>>>[cag]>>>>>!'p
g=!'F[cmb][cnb]^g
b=!'F^b
a=&a
m=+m
n=-n
@
# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
9
10
80
C
C=FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&FR&F
R=[^^^^^^^^^ca%a|L]
a=[nmmn]
m=+[Z-----L]zm
n=-Zn
L=[>>>>>>>>>cc{--z++z++z--|--z++z++z}]
@
# --- Passie.ls C.J.van der Mark jr.--------------------------
#
10 # recursion
20 # angle
20 # thickness
#
#---------------------------------------- axioms
#o # the flower
#L # a single leaf
#&(60)C # the middle stem of the plant
#k # middle flower branch
#b # the side branches of the plant, with flower
k"b>(55)"b>(60)'b>(65)b>(55)''b>(80)b # the whole passieflora like plant
#
#---------------------------------------- rules
b=['Ao]
k=[''''C^(90)o]
A=$t(.2)F''[+(55)$L][-(55)$L]t(-.1)FA
C=$F'[+(55)$L][-(55)$L]FC
#
#
#----------------------------------------Plant Leaf
L=F&(30)&(10)cc[D][E]
D=[+D{.].X.}
E=[^(5)-E{.].X.}
X=^(5)ggggX
#
#----------------------------------------Flower leaf
d=[+d{.].x.}
h=[-h{.].x.}
x=gggx
#
#----------------------------------------Whole flower
o=[&!ce>(90)w>(90)w>(90)w>(90)w>vy>vy>vy>vy>vy>vy>vy>vy>v
>yv>vy>vy>vy>vy>vy>vy>vy>vy]
#----------------------------------------Flower stem
e=Z
#----------------------------------------Spikes in the flower
v=[ZZc"""""&(90){'''F!!''F!!''F!!''F}]
#----------------------------------------Flower female stem and male stems
w=[[sc??c'!!Ft(-.1)F<<''''!!^^^s]&(100)'(0.5)ZZZ[d][h]]
#----------------------------------------Colored flower leafs
y=[[ZZcccc&(80)'''{-ff+ff|-ff+ff}][ZZccccc&(60)'''{-f+f|-f+f}][ZZcccccc&(35)''''{-f+f|-f+f}]]
#----------------------------------------Singel male/female stem
s=[c^(8)!Ft(-.2)Ft(-.2)Ft(-.2)Fu]
#----------------------------------------Pollen holder on male stem
u=[???F]
#
F='(1.3)F'(.77)
f='(1.3)f'(.77)
@
# --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
18 # recursion level
10 # basic angle
80 # starting thickness
%C # axiom
#-------------------------------------- Creature
C=%LABHT
#-------------------------------------- Body
B=[???????zZZZ]
#--------------------------------------Arms
A=[zf&&&&&&&&&"""[pj>>>>>>>>>S]|[qj<<<<<<<<<S]]
p=Ft+:'p # left
q=Ft-:'q # right
j=;"j
#-------------------------------------- Scorpers
S=['''!!r%^^r]
r=[Z?Z?Zu] # jaw assembly
u=Z[co]!'^::u # jaw and tooth
#--------------------------------------Legs
L=[c">>>>[s]>>>>[s]>>>>[s]>>>[s]>>>>>>[s]>>>[s]>>>>[s]>>>>[s]]
s=+++li+++dccc??""FF # down legs
l=Ft+:'l # upper leg
d=FFF'd # lower leg
i=;i
#--------------------------------------Head
H=["">>>>>>>>>&&&&&&??FFFF!![???h][???k]%^^[??k]]
k=[Z?Z?Za] # jaw assembly
a=Z[co]!'a # jaw
o=&&&&&&&&&!!!!!F # teeth
h=[^^gcccc"Z][^^ecccc"Z] # eyes
g=z!+z!+z!+z # left eye
e=z!-z!-z!-z # right eye
#-------------------------------------- Tail
T=[f---------??""""""mccccF]
m=Ft+;'m # curl
t=['::c!!!&&[f<<<n]^^^^f>>>n] # spikes
n=[c{--z++z++z--|--z++z++z}] # leaf
#-------------------------------------- End
@