//
// 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]  = v1p;  point;   fixed;      0.0,6.0;     0;red;red;0;
e[2]  = v2p;  point;   fixed;      -5.0,4.0;    0;red;red;0;
e[3]  = v3p;  point;   fixed;      -5.0,-4.0;   0;red;red;0;
e[4]  = v4p;  point;   fixed;      0.0,-8.0;    0;red;red;0;
e[5]  = v5p;  point;   fixed;      5.0,-4.0;    0;red;red;0;
e[6]  = v6p;  point;   fixed;      5.0,4.0;     0;red;red;0;

//mustat solmut
e[7]  = v1m;  point;   fixed;      0.0,6.0;    0;black;black;0;
e[8]  = v2m;  point;   fixed;      -5.0,4.0;   0;black;black;0;
e[9]  = v3m;  point;   fixed;      -5.0,-4.0;  0;black;black;0;
e[10] = v4m;  point;   fixed;      0.0,-8.0;   0;black;black;0;
e[11] = v5m;  point;   fixed;      5.0,-4.0;   0;black;black;0;
e[12] = v6m;  point;   fixed;      5.0,4.0;    0;black;black;0;

//mustat kaaret
e[13] = v1v2;  line;    connect;    v1m,v2m;    0;0;black;0;
e[14] = v1v4;  line;    connect;    v1m,v4m;    0;0;black;0;
e[15] = v2v4;  line;    connect;    v2m,v4m;    0;0;black;0;
e[16] = v2v3;  line;    connect;    v2m,v3m;    0;0;black;0;
e[17] = v3v6;  line;    connect;    v3m,v6m;    0;0;black;0;
e[18] = v4v5;  line;    connect;    v4m,v5m;    0;0;black;0;

e[19] = reitti1;  line;    connect;    v1m,v2m;    0;0;black;0;
e[20] = reitti2;  line;    connect;    v2m,v3m;    0;0;black;0;
e[21] = reitti3;  line;    connect;    v3m,v6m;    0;0;black;0;
e[22] = reitti4;  line;    connect;    v2m,v4m;    0;0;black;0;
e[23] = reitti5;  line;    connect;    v4m,v5m;    0;0;black;0;

e[24] = an1;     point;   dragable;   0.0,6.0,reitti1;   0;red;red;0;
e[25] = an2;     point;   dragable;   -5.0,4.0,reitti2;  0;red;red;0;
e[26] = an3;     point;   dragable;   -5.0,-4.0,reitti3; 0;red;red;0;
e[27] = an4;     point;   dragable;   -5.0,4.0,reitti4;  0;red;red;0;
e[28] = an5;     point;   dragable;   0.0,-8.0,reitti5;  0;red;red;0;

e[29] = viiva1;   line;    connect;    v1m,an1;    0;0;red;0;
e[30] = viiva2;   line;    connect;    v2m,an2;    0;0;red;0;
e[31] = viiva3;   line;    connect;    v3m,an3;    0;0;red;0;
e[32] = viiva4;   line;    connect;    v2m,an4;    0;0;red;0;
e[33] = viiva5;   line;    connect;    v4m,an5;    0;0;red;0;

//nimet
e[34] = v1;  point;   fixed;      0.5,6.0;    black;0;0;0;
e[35] = v2;  point;   fixed;      -6.5,4.0;   black;0;0;0;
e[36] = v3;  point;   fixed;      -6.5,-4.0;  black;0;0;0;
e[37] = v4;  point;   fixed;      0.5,-8.0;   black;0;0;0;
e[38] = v5;  point;   fixed;      5.5,-4.0;   black;0;0;0;
e[39] = v6;  point;   fixed;      5.5,4.0;    black;0;0;0;

//lista
e[40]  = v1';  point;   fixed;      -8.0,-8.0;   black;0;0;0;
e[41]  = v2';  point;   fixed;      -7.0,-8.0;   black;0;0;0;
e[42]  = v3';  point;   fixed;      -6.0,-8.0;   black;0;0;0;
e[43]  = v6';  point;   fixed;      -5.0,-8.0;   black;0;0;0;
e[44]  = v4';  point;   fixed;      -4.0,-8.0;   black;0;0;0;
e[45]  = v5';  point;   fixed;      -3.0,-8.0;   black;0;0;0;

e[46] = askel; measure; JSfunction;  "getStep","action";

// Animation
// =========

anim[1] = "if (calculate(askel) = 1) animate (an1,6,1,100,1)"
anim[2] = "if (calculate(askel) = 2) animate (an2,10,1,100,1)"
anim[3] = "if (calculate(askel) = 3) animate (an3,10,1,100,1)"
anim[4] = "if (calculate(askel) = 4) animate (an3,10,0,100,1)"
anim[5] = "if (calculate(askel) = 5) animate (an2,10,0,100,1)"
anim[6] = "if (calculate(askel) = 6) animate (an4,10,1,100,1)"
anim[7] = "if (calculate(askel) = 7) animate (an5,7,1,100,1)"

// Hidden
// =========

hidden[1] = "if (calculate(askel) < 1) hide (Textbox_1)"
hidden[2] = "if (calculate(askel) < 2) hide (an2,v2',Textbox_2)"
hidden[3] = "if (calculate(askel) < 3) hide (an3,v3',Textbox_3)"
hidden[4] = "if (calculate(askel) < 4) hide (v6',Textbox_4)"
hidden[5] = "if (calculate(askel) < 5) hide (Textbox_5)"
hidden[6] = "if (calculate(askel) < 6) hide (an4,Textbox_6)"
hidden[7] = "if (calculate(askel) < 7) hide (an5,v4',Textbox_7)"
hidden[8] = "if (calculate(askel) < 8) hide (v5')"
hidden[9] = "if (calculate(askel) > 0) hide (v1m)"
hidden[10] = "if (calculate(askel) > 1) hide (v2m)"
hidden[11] = "if (calculate(askel) > 2) hide (v3m)"
hidden[12] = "if (calculate(askel) > 3) hide (v6m)"
hidden[13] = "if (calculate(askel) > 6) hide (v4m)"
hidden[14] = "if (calculate(askel) < 8) hide (Textbox_8)"

// Textfenster
// ===========

<Textbox>
 Position = 10;10;250;-1
 Vieraillaan ensin solmussa v2
</Textbox>

<Textbox>
 Position = 10;10;250;-1
 Solmusta v2 siirrytään solmuun v3
</Textbox>

<Textbox>
 Position = 10;10;250;-1
 Solmusta v3 siirrytään solmuun v6
</Textbox>

<Textbox>
 Position = 10;10;250;-1
 Umpikuja, palataan solmuun v3
</Textbox>

<Textbox>
 Position = 10;10;250;-1
 Palataan solmuun v2
</Textbox>

<Textbox>
 Position = 10;10;250;-1
 Siirrytään solmuun v4
</Textbox>

<Textbox>
 Position = 10;10;250;-1
 Siirrytään solmuun v5
</Textbox>

<Textbox>
 Position = 10;10;250;-1
 Verkon läpikäynti on valmis
</Textbox>