ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/lsys/lib/capsella_bursa_pastoris.l
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 ***

File Contents

# User Rev Content
1 root 1.1 // fig 3.5, page 74
2    
3     capsella_bursalis(n) => attr (delta,18) attr (width, 1.8) attr (color, '0 1 0) I(9) a(13), n;
4    
5     a(0) => [&(70)L]/(137.5)I(10)A;
6     a(t) => [&(70)L]/(137.5)I(10)a(t-1);
7     A => [&(18)u(4)FFI(10)I(5)X(5)KKKK]/(137.5)I(8)A;
8     I(0) => F;
9     I(t) => FI(t-1);
10     u(0) => &(9);
11     u(t) => &(9)u(t-1);
12     L => [attr(color, '0.4 1 0)
13     [{.-FI(7)&(10)+FI(7) attr(color,'1 1 0.2) +FI(7)}]
14     [{.+FI(7)&(10)-FI(7) attr(color,'1 1 0.2) -FI(7)}]
15     ];
16     K => [attr(color, '0.9 0.2 0)
17     [&{.+FI(2)--FI(2)}]
18     [&{.-FI(2)++FI(2)}]/(90)
19     ];
20     X(0) => ^(50)[[-GGGG++[GGG[++G{.].].].++GGGG.--GGG.--G.}]%;
21