| Revision: | 1.1 |
| Committed: | Thu Nov 6 14:31:25 2008 UTC (17 years, 11 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 |