home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
oct93
/
graphics
/
graphtal.lha
/
Graphtal
/
Examples
/
treecone.anim.lsys
< prev
next >
Wrap
Text File
|
1992-10-30
|
835b
|
53 lines
lsystem Tree;
const zOffset = 200/numberOfFrames*iter;
hull Cone {
cone 80 0 0 500
0.2 0 0 100
translate 0 0 zOffset
};
table Tree
{
const d1 = 180.5;
d2 = 252.5;
a = 36.0;
lr = 1.070;
vr = 1.732;
A(n) : n < 4 -> wi(vr) F(50)
[ pt(a) F(50) A(n+1) ] ro(-d1)
[ pt(a) F(50) A(n+1) ] ro(-d2)
[ pt(a) F(50) A(n+1) ];
A(n) : n >= 4 -> dh wi(vr) F(50)
[ pt(a) F(50) A(n+1) ] ro(-d1)
[ pt(a) F(50) A(n+1) ] ro(-d2)
[ pt(a) F(50) A(n+1) ];
F(l) -> F(l*lr);
wi(w) -> wi(w*vr);
};
attributes {
axiom co("SandyBrown")
wi(1) F(200) ro(-45) ah("Cone") A(1);
derivation Tree(6);
eye 1500, 0, 400;
lookat 300, 0, 400;
};