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