home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
oct93
/
graphics
/
graphtal.lha
/
Graphtal
/
Examples
/
honda.lsys
< prev
next >
Wrap
Text File
|
1992-10-30
|
759b
|
31 lines
/*
* Example of the monopadial tree-like structure
* of Honda.
*
* The Algorithmic Beauty of Plants, p. 56
*/
lsystem hondaTree;
const r1 = 0.9; // contraction ratio fro the trunk
r2 = 0.6; // contraction ratio for branches
a0 = 45; // branching angle from the trunk
a2 = 45; // branching angle for lateral axes
d = 137.5; // divergence angle
wr = 0.707; // width decrase rate
table table1 {
A(l,w) -> wi(w) F(l) [ pt(-a0) B(l*r2, w*wr) ]
ro(-d) A(l*r1, w*wr);
B(l,w) -> wi(w) F(l) [ tu(-a2) rv C(l*r2, w*wr) ]
C(l*r1, w*wr);
C(l,w) -> wi(w) F(l) [ tu(a2) rv B(l*r2, w*wr) ]
B(l*r1, w*wr);
};
attributes {
axiom A(1,0.1);
derivation table1(10);
coneres 5;
};