home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
oct93
/
graphics
/
graphtal.lha
/
Graphtal
/
Examples
/
3D_Hilbert.lsys
next >
Wrap
Text File
|
1992-11-02
|
571b
|
28 lines
/*
* A tree-dimensional extension of the Hilbert curve.
*
* The Algorithmic Beauty of Plants, p. 20
*/
lsystem Hilbert;
table hilbert {
A -> B - F + C F C + F - D & F ^ D - F + & & C F C + F + B / /;
B -> A & F ^ C F B ^ F ^ D ^ ^ - F - D ^ | F ^ B | F C ^ F ^ A / /;
C -> | D ^ | F ^ B - F + C ^ F ^ A & & F A & F ^ C + F + B ^ F ^ D / /;
D -> | C F B - F + B | F A & F ^ A & & F B - F + B | F C / /;
};
attributes {
axiom co("coral") A;
derivation hilbert(3);
angle 90;
eye 100, 50, 35;
lookat 0, 35, 35;
coneres 7;
sphereres 7;
};