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 *** |
# | Content |
---|---|
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 |