//
// some fantasy flower
//

include (simple_leaf)
include (simple_petal)

// fig(n)		=> attr (material, 'leaves) attr (distance, 50) simple_leaf (30, 30);

fig(n)		=> tree(5), n;

tree(n)	: n	=> attr (color, '0.2 0.8 0) attr (width, 2) F(8) L /(137.5) tree(n-1);
tree(n)		=> F(10) attr (distance, 5) /(9) [attr (distance, 10) petal (80, 7, 1, 10)] F(15)
		   attr (color, '1 1 0.4) petal (10, 7, 8, 20, 8);
L		=> [attr (width, 1) &(30) simple_leaf (30, 30) ^(15) F(10)
		   attr (distance, 4) attr (color, '1 0.8 0) petal (80, 3)];