home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Photo CD Demo 1
/
Demo.bin
/
graphtal
/
examples
/
skyscrpr.lsy
< 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;
};