lsys/lib/mikachuball.l

// draw a colourful mikachuball

ruleset (
   S =>
        {
         attr(color,'1 0 0) F+
         attr(color,'0 1 1) F+
         attr(color,'0 1 0) F+
         attr(color,'0 0 1) F+
        }
        [ attr(color,'1 1 1) F+ F+ F+ F ];
)

mikachuball(n) => attr (delta, 90) S,n-1;

define size 0.45;

S => [
      [S]
      attr (distance, distance * (1 - size) * 0.5)
      f+f-
      attr (distance, distance / (1 - size) / 0.5 * size)
      [&S]
      +(70)
      [&f&(-90)S]
      f+[&S]
      f+[&S]
      f+[&S]
     ];

Revision:	1.1
Committed:	Thu Nov 6 14:31:25 2008 UTC (15 years, 6 months ago) by root
Branch:	MAIN
Log Message:	* empty log message *
#	Content
1	// draw a colourful mikachuball
2
3	ruleset (
4	S =>
5	{
6	attr(color,'1 0 0) F+
7	attr(color,'0 1 1) F+
8	attr(color,'0 1 0) F+
9	attr(color,'0 0 1) F+
10	}
11	[ attr(color,'1 1 1) F+ F+ F+ F ];
12	)
13
14	mikachuball(n) => attr (delta, 90) S,n-1;
15
16	define size 0.45;
17
18	S => [
19	[S]
20	attr (distance, distance * (1 - size) * 0.5)
21	f+f-
22	attr (distance, distance / (1 - size) / 0.5 * size)
23	[&S]
24	+(70)
25	[&f&(-90)S]
26	f+[&S]
27	f+[&S]
28	f+[&S]
29	];
30