//
// Author: Hanna Lehtola
// Original base document by Timo Ehmke

// Systemvariablen
// ===============

APPLET_WIDTH  = 300
APPLET_HEIGHT = 300
WORLD_X_MAX    = 9.0
WORLD_X_MIN    = -9.0
WORLD_Y_MAX    = +9.0
WORLD_Y_MIN    = -9.0
ALIGN = RIGHT


// Figurenbeschreibung
// ===================

//punaiset solmut
e[1]  = u2;  point;   fixed;      0.0,0.0;   0;red;red;0;
e[2]  = m2;  point;   fixed;      -7.0,7.0;  0;red;red;0;
e[3]  = t2;  point;   fixed;      0.0,7.0;   0;red;red;0;
e[4]  = s2;  point;   fixed;      7.0,7.0;   0;red;red;0;
e[5]  = n2;  point;   fixed;      -7.0,0.0;  0;red;red;0;
e[6]  = r2;  point;   fixed;      7.0,0.0;   0;red;red;0;
e[7]  = o2;  point;   fixed;      -7.0,-7.0; 0;red;red;0;
e[8]  = p2;  point;   fixed;      0.0,-7.0;  0;red;red;0;
e[9]  = q2;  point;   fixed;      7.0,-7.0;  0;red;red;0;

//vihreät kaaret
e[10] = mt3;  line;    connect;    m2,t2;   0;0;magenta;0;
e[11] = ts3;  line;    connect;    t2,s2;   0;0;magenta;0;
e[12] = nu3;  line;    connect;    n2,u2;   0;0;magenta;0;
e[13] = ur3;  line;    connect;    u2,r2;   0;0;magenta;0;
e[14] = op3;  line;    connect;    o2,p2;   0;0;magenta;0;
e[15] = pq3;  line;    connect;    p2,q2;   0;0;magenta;0;
e[16] = nm3;  line;    connect;    n2,m2;   0;0;magenta;0;
e[17] = ut3;  line;    connect;    u2,t2;   0;0;magenta;0;
e[18] = rs3;  line;    connect;    r2,s2;   0;0;magenta;0;
e[19] = on3;  line;    connect;    o2,n2;   0;0;magenta;0;
e[20] = pu3;  line;    connect;    p2,u2;   0;0;magenta;0;
e[21] = qr3;  line;    connect;    q2,r2;   0;0;magenta;0;
e[22] = nt3;  line;    connect;    n2,t2;   0;0;magenta;0;
e[23] = pr3;  line;    connect;    p2,r2;   0;0;magenta;0;

//harmaa kaari
e[24] = nu2;  line;    connect;    n2,u2;   0;0;lightGray;0;
e[25] = nm2;  line;    connect;    n2,m2;   0;0;lightGray;0;
e[26] = mt2;  line;    connect;    m2,t2;   0;0;lightGray;0;

//nimet
e[27]  = m;  point;   fixed;      -7.0,7.5;  black;0;0;0;
e[28]  = u;  point;   fixed;      0.0,0.5;   black;0;0;0;
e[29]  = t;  point;   fixed;      0.0,7.5;   black;0;0;0;
e[30]  = s;  point;   fixed;      7.0,7.5;   black;0;0;0;
e[31]  = n;  point;   fixed;      -7.9,0.2;  black;0;0;0;
e[32]  = r;  point;   fixed;      7.2,0.2;   black;0;0;0;
e[33]  = o;  point;   fixed;      -7.0,-7.5; black;0;0;0;
e[34]  = p;  point;   fixed;      0.0,-7.5;  black;0;0;0;
e[35]  = q;  point;   fixed;      7.0,-7.5;  black;0;0;0;

//mustat solmut
e[36]  = u1;  point;   fixed;      0.0,0.0;   0;black;black;0;
e[37]  = m1;  point;   fixed;      -7.0,7.0;  0;black;black;0;
e[38]  = t1;  point;   fixed;      0.0,7.0;   0;black;black;0;
e[39]  = s1;  point;   fixed;      7.0,7.0;   0;black;black;0;
e[40]  = n1;  point;   fixed;      -7.0,0.0;  0;black;black;0;
e[41]  = r1;  point;   fixed;      7.0,0.0;   0;black;black;0;
e[42]  = o1;  point;   fixed;      -7.0,-7.0; 0;black;black;0;
e[43]  = p1;  point;   fixed;      0.0,-7.0;  0;black;black;0;
e[44]  = q1;  point;   fixed;      7.0,-7.0;  0;black;black;0;

//mustat kaaret
e[45] = mt1;  line;    connect;    m1,t1;    0;0;black;0;
e[46] = ts1;  line;    connect;    t1,s1;    0;0;black;0;
e[47] = nu1;  line;    connect;    n1,u1;    0;0;black;0;
e[48] = ur1;  line;    connect;    u1,r1;    0;0;black;0;
e[49] = op1;  line;    connect;    o1,p1;    0;0;black;0;
e[50] = pq1;  line;    connect;    p1,q1;    0;0;black;0;
e[51] = nm1;  line;    connect;    n1,m1;    0;0;black;0;
e[52] = ut1;  line;    connect;    u1,t1;    0;0;black;0;
e[53] = rs1;  line;    connect;    r1,s1;    0;0;black;0;
e[54] = on1;  line;    connect;    o1,n1;    0;0;black;0;
e[55] = pu1;  line;    connect;    p1,u1;    0;0;black;0;
e[56] = qr1;  line;    connect;    q1,r1;    0;0;black;0;
e[57] = nt1;  line;    connect;    n1,t1;    0;0;black;0;
e[58] = pr1;  line;    connect;    p1,r1;    0;0;black;0;

//numerot
e[59] = 1;   point;   fixed;      -3.0,0.5;   magenta;0;0;0;
e[60] = 2;   point;   fixed;      -7.0,3.5;   magenta;0;0;0;
e[61] = 3;   point;   fixed;      -3.5,7.5;   magenta;0;0;0;
e[62] = 4;   point;   fixed;      -3.2,3.2;   magenta;0;0;0;
e[63] = 5;   point;   fixed;      -7.0,-3.5;  magenta;0;0;0;
e[64] = 6;   point;   fixed;      -3.5,-6.7;  magenta;0;0;0;
e[65] = 7;   point;   fixed;      3.5,-6.7;   magenta;0;0;0;
e[66] = 8;   point;   fixed;      7.0,-3.5;   magenta;0;0;0;
e[67] = 9;   point;   fixed;      7.0,3.5;    magenta;0;0;0;
e[68] = 10;  point;  fixed;      3.5,7.5;     magenta;0;0;0;
e[69] = 11;  point;  fixed;      0.2,3.0;     magenta;0;0;0;
e[70] = 12;  point;  fixed;      0.2,-3.0;    magenta;0;0;0;
e[71] = 13;  point;  fixed;      3.0,-3.0;    magenta;0;0;0;
e[72] = 14;  point;  fixed;      3.0,0.5;     magenta;0;0;0;

e[73] = askel;   measure; JSfunction;  "getStep"; 

//apu askel laskurit
e[74] = askel_1;  measure; calculate; "if (calculate(askel) = 1)  then (1) else (0))"
e[75] = askel_13; measure; calculate; "if (calculate(askel) = 13) then (1) else (0))"
e[76] = askel_3;  measure; calculate; "if (calculate(askel) = 3)  then (1) else (0))"
e[77] = askel_6;  measure; calculate; "if (calculate(askel) = 6)  then (1) else (0))"
e[78] = askel_5;  measure; calculate; "if (calculate(askel) = 5)  then (1) else (0))"
e[79] = askel_12; measure; calculate; "if (calculate(askel) = 12) then (1) else (0))"
e[80] = askel_8;  measure; calculate; "if (calculate(askel) = 8)  then (1) else (0))"
e[81] = askel_14; measure; calculate; "if (calculate(askel) = 14) then (1) else (0))"
e[82] = askel_10; measure; calculate; "if (calculate(askel) = 10) then (1) else (0))"
e[83] = askel_15; measure; calculate; "if (calculate(askel) = 15) then (1) else (0))"



// Ein- und Ausblenden von Objekten
// ================================

//hidden[1] = "if (calculate(askel) = 1|calculate(askel) = 13) hide (u)" EI TOIMI
//hidden[1] = "if (not(calculate(askel) - 1)|not(calculate(askel) - 13)) hide (u)" EI TOIMI
hidden[1] = "if ( calculate(askel_1)|calculate(askel_13)) hide (u1)"
hidden[2] = "if (calculate(askel) < 2) hide (1)"
hidden[3] = "if (calculate(askel) > 0) hide (nu1)"
hidden[4] = "if (calculate(askel) > 1) hide (nu2)"

hidden[5] = "if (calculate(askel_3)|calculate(askel_6)) hide (n1)"
hidden[6] = "if (calculate(askel) < 3) hide (2)"
hidden[7] = "if (calculate(askel) > 2) hide (nm1,nm2)"

hidden[8] = "if (calculate(askel) = 4) hide (m1)"
hidden[9] = "if (calculate(askel) < 4) hide (3)"
hidden[10] = "if (calculate(askel) > 3) hide (mt1,mt2)"

hidden[11] = "if (calculate(askel_5)|calculate(askel_12)) hide (t1)"
hidden[12] = "if (calculate(askel) < 5) hide (4)"
hidden[13] = "if (calculate(askel) > 4) hide (nt1,nt2)"

//hidden[14] = "if (calculate(askel) = 6) hide (n1)"
hidden[14] = "if (calculate(askel) < 6) hide (5)"
hidden[15] = "if (calculate(askel) > 5) hide (on1,on2)"

hidden[16] = "if (calculate(askel) = 7) hide (o1)"
hidden[17] = "if (calculate(askel) < 7) hide (6)"
hidden[18] = "if (calculate(askel) > 6) hide (op1,op2)"

hidden[19] = "if (calculate(askel_8)|calculate(askel_14)) hide (p1)"
hidden[20] = "if (calculate(askel) < 8) hide (7)"
hidden[21] = "if (calculate(askel) > 7) hide (pq1,pq2)"

hidden[22] = "if (calculate(askel) = 9) hide (q1)"
hidden[23] = "if (calculate(askel) < 9) hide (8)"
hidden[24] = "if (calculate(askel) > 8) hide (qr1,qr2)"

hidden[25] = "if (calculate(askel_10)|calculate(askel_15)) hide (r1)"
hidden[26] = "if (calculate(askel) < 10) hide (9)"
hidden[27] = "if (calculate(askel) > 9) hide (rs1,rs2)"

hidden[28] = "if (calculate(askel) = 11) hide (s1)"
hidden[29] = "if (calculate(askel) < 11) hide (10)"
hidden[30] = "if (calculate(askel) > 10) hide (ts1,ts2)"

//hidden[32] = "if (calculate(askel) = 12) hide (t1)"
hidden[31] = "if (calculate(askel) < 12) hide (11)"
hidden[32] = "if (calculate(askel) > 11) hide (ut1,ut2)"

//hidden[34] = "if (calculate(askel) = 13) hide (u1)"
hidden[33] = "if (calculate(askel) < 13) hide (12)"
hidden[34] = "if (calculate(askel) > 12) hide (pu1,pu2)"

//hidden[36] = "if (calculate(askel) = 14) hide (p1)"
hidden[35] = "if (calculate(askel) < 14) hide (13)"
hidden[36] = "if (calculate(askel) > 13) hide (pr1,pr2)"

//hidden[38] = "if (calculate(askel) = 15) hide (r1)"
hidden[37] = "if (calculate(askel) < 15) hide (14)"
hidden[38] = "if (calculate(askel) > 14) hide (ur1,ur2)"