1 |
// |
2 |
// some fantasy flower |
3 |
// |
4 |
|
5 |
include (simple_leaf) |
6 |
include (simple_petal) |
7 |
|
8 |
// fig(n) => attr (material, 'leaves) attr (distance, 50) simple_leaf (30, 30); |
9 |
|
10 |
fig(n) => tree(5), n; |
11 |
|
12 |
tree(n) : n => attr (color, '0.2 0.8 0) attr (width, 2) F(8) L /(137.5) tree(n-1); |
13 |
tree(n) => F(10) attr (distance, 5) /(9) [attr (distance, 10) petal (80, 7, 1, 10)] F(15) |
14 |
attr (color, '1 1 0.4) petal (10, 7, 8, 20, 8); |
15 |
L => [attr (width, 1) &(30) simple_leaf (30, 30) ^(15) F(10) |
16 |
attr (distance, 4) attr (color, '1 0.8 0) petal (80, 3)]; |
17 |
|