lsys/lib/bench.l

seed(n)         => circle(n*10) simple_tree(n) ,1;

circle(n)               => segment (n, 360/n), n+1;
segment(n,d)    : n     => F+(d)segment(n-1,d);
segment(0,d)            => ;

simple_tree(n)          => attr (delta, 30) attr (width, 5) attr (distance, 40) tree, n+5;
tree                    => F attr (width, width*0.6) attr (distance, distance*0.7) [-tree][+tree];
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	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, width0.6) attr (distance, distance0.7) [-tree][+tree];