home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Photo CD Demo 1
/
Demo.bin
/
graphtal
/
examples
/
torus.lsy
< prev
next >
Wrap
Text File
|
1992-10-30
|
200b
|
40 lines
lsystem Torus;
const step = 20;
table MakeTorus
{
A -> F(10) pt(360/step) A;
};
attributes {
axiom wi(3) G(5) tu(110) A;
derivation MakeTorus(step);
coneres 10;
};