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 | # |
2 | # draw a simple inflorescense | ||
3 | # | ||
4 | # petal (degrees, count, edge, bow) | ||
5 | # | ||
6 | # degrees degrees of each petal against the "up" vector. | ||
7 | # count number of petals | ||
8 | # edge see simple_leaf | ||
9 | # bow see simple_leaf | ||
10 | # | ||
11 | # | ||
12 | |||
13 | include (simple_leaf) | ||
14 | |||
15 | petal(d,n) => petal (d,n,8,25,0), 1; | ||
16 | petal(d,n,e,b) => petal (d,n,e,b,0), 1; | ||
17 | petal(d,n,e,b,a)=> [&(90) attr (delta, 360/n) leaf(d,e,b,a)], n; | ||
18 | leaf(d,e,b,a) => [/(a) ^(d) simple_leaf (e, b)] + leaf(d,e,b,a); | ||
19 |