lsys/lib/mikachuball.l

// draw a colourful mikachuball

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

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

define size 0.41;

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

Revision:	1.2
Committed:	Thu Nov 6 14:45:45 2008 UTC (17 years, 11 months ago) by root
Branch:	MAIN
Changes since 1.1:	+9 -9 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	// draw a colourful mikachuball
2
3			ruleset (
4			S =>
5			{
6	root	1.2	attr(color,'1 0 1) F+
7	root	1.1	attr(color,'0 1 1) F+
8	root	1.2	attr(color,'1 1 0) F+
9			attr(color,'1 1 1) F+
10	root	1.1	}
11			[ attr(color,'1 1 1) F+ F+ F+ F ];
12			)
13
14			mikachuball(n) => attr (delta, 90) S,n-1;
15
16	root	1.2	define size 0.41;
17	root	1.1
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	root	1.2	+(15)
24			[&f&(-90)S] // roof
25			[&S]f+
26			[&S]f+
27			[&S]f+
28	root	1.1	[&S]
29			];
30