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 *** |
# | 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 |