| Revision: | 1.1 |
| Committed: | Thu Nov 6 14:31:25 2008 UTC (17 years, 10 months ago) by root |
| Branch: | MAIN |
| CVS Tags: | HEAD |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.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 |