lsys/lib/disc.l

define factor 0.636619769/4;

disc(r)                 => disc(r,25),1;
disc(r,n)               => [attr (delta, 360/n) attr (distance, r/(n*factor))
                            f(r) +(90) +(180/n) {segment (n)}], n;
segment(1)              => F;
segment(n)              => F+segment(n-1);
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	define factor 0.636619769/4;
2
3	disc(r) => disc(r,25),1;
4	disc(r,n) => [attr (delta, 360/n) attr (distance, r/(n*factor))
5	f(r) +(90) +(180/n) {segment (n)}], n;
6	segment(1) => F;
7	segment(n) => F+segment(n-1);