Revision: | 1.1 |
Committed: | Thu Nov 6 14:31:25 2008 UTC (15 years, 6 months ago) by root |
Branch: | MAIN |
CVS Tags: | HEAD |
Log Message: | *** empty log message *** |
# | Content |
---|---|
1 | // |
2 | // some fantasy flower |
3 | // |
4 | |
5 | include (simple_leaf) |
6 | include (simple_petal) |
7 | |
8 | fig(n) => tree(5), n; |
9 | |
10 | tree(n) : n => attr (color, '0.2 0.8 0) attr (width, 2) F(8) L /(137.5) tree(n-1); |
11 | tree(n) => F(10) attr (color, '1 1 0) attr (distance, 5) /(9) petal (10, 8); |
12 | L => [attr (width, 1) &(30) simple_leaf (30, 30) ^(15) F(15) attr (distance, 4) petal (80, 3)]; |
13 |