| 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 | seed(n) => circle(n*10) simple_tree(n) ,1; |
| 2 | |||
| 3 | circle(n) => segment (n, 360/n), n+1; | ||
| 4 | segment(n,d) : n => F+(d)segment(n-1,d); | ||
| 5 | segment(0,d) => ; | ||
| 6 | |||
| 7 | simple_tree(n) => attr (delta, 30) attr (width, 5) attr (distance, 40) tree, n+5; | ||
| 8 | tree => F attr (width, width*0.6) attr (distance, distance*0.7) [-tree][+tree]; |