ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/lsys/lib/mikachuball.l
Revision: 1.3
Committed: Thu Nov 6 15:01:07 2008 UTC (15 years, 6 months ago) by root
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +1 -2 lines
Log Message:
*** empty log message ***

File Contents

# Content
1 // draw a colourful mikachuball
2
3 ruleset (
4 S =>
5 {
6 attr(color,'1 0 1) F+
7 attr(color,'0 1 1) F+
8 attr(color,'1 1 0) F+
9 attr(color,'1 1 1) F+
10 };
11 )
12
13 mikachuball(n) => attr (delta, 90) S,n-1;
14
15 define size 0.41;
16
17 S => [
18 [S]
19 attr (distance, distance * (1 - size) * 0.5)
20 f+f-
21 attr (distance, distance / (1 - size) / 0.5 * size)
22 +(15)
23 [&f&(-90)S] // roof
24 [&S]f+
25 [&S]f+
26 [&S]f+
27 [&S]
28 ];
29