home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
oct93
/
graphics
/
graphtal.lha
/
Graphtal
/
Examples
/
skyscraper.lsys
< prev
next >
Wrap
Text File
|
1992-10-29
|
824b
|
50 lines
/*
* This L-system description file generates a simple skyscraper.
*
* Copyright (C) 1992, Andrey Collison (collison@iam.unibe.ch)
* All rights reserved.
*/
lsystem SkyScraper;
table Building {
A -> Ground Body(1) Roof;
Body(n) -> Floor(n) Body(n+1);
};
table Floors {
const lf = 8*2.0;
lw = 2.0;
hf = 2.5;
Floor(n) -> [
Front Front Front Front
] G(hf);
Front -> [
Window Window Window Window Window Window Window Window
] tu(90) G(lf) tu(-90) ro(-90);
Window -> [
{ sv F(hf) sv tu(90) F(lw) sv tu(90) F(hf) sv co("gold") }
] tu(90) G(lw) tu(-90);
};
attributes {
axiom wi(0.2) co("black") A;
derivation Building(30), Floors(3);
eye 90, 40, 36;
lookat 0, 8, 36;
};