home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
oct93
/
graphics
/
graphtal.lha
/
Graphtal
/
Examples
/
treeWithTexture.lsys
< prev
Wrap
Text File
|
1992-11-02
|
1KB
|
44 lines
/*
* Tree model from the book 'The algorithmic beauty of plants'
* by P. Prudinkiewicz and A. Lindenmayer, p. 60.
*
* Texture is added to the trunk. Textures appear together
* with the rayshade driver only!
*
* 30.10.92 Christoph Streit (streit@iam.unibe.ch)
*/
lsystem TreeWithTexture;
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 -> texture("") wi(vr) F(50) // diable texture
[ 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")
texture("texture bump 0.9 scale 1 4 12 " +
"texture gloss 0.65")
wi(1) F(200) ro(-45) A(1);
derivation Tree(6);
coneres 5;
};