//
// Author: Mari Kähkönen
// Original base document by Timo Ehmke


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

APPLET_WIDTH   = 400
APPLET_HEIGHT  = 300
WORLD_X_MAX    = 16.0
WORLD_X_MIN    = -16.0
WORLD_Y_MAX    = +12.0
WORLD_Y_MIN    = -12.0
ALIGN          = LEFT


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

//pisteet
e[1]  = p1;     point;  fixed;  -4.0,0.0;   "hidden"
e[2]  = p2;     point;  fixed;  -2.0,0.0;   "hidden"
e[3]  = p3;     point;  fixed;  4.0,0.0;    "hidden"
e[4]  = p4;     point;  fixed;  6.0,0.0;    "hidden"
e[5]  = p5;     point;  fixed;  12.0,0.0;   "hidden"
e[6]  = p6;     point;  fixed;  14.0,0.0;   "hidden"
e[7]    = p7;       point;  fixed;  13.5,0.0;   "hidden"
e[8]    = p8;       point;  fixed;  2.59,1.41;  "hidden"
e[9]  = p9;     point;  fixed;  -2.59,1.41; "hidden"
e[10] = p10;    point;  fixed;  5.41,1.41;  "hidden"
e[11]   = p11;  point;  fixed;  10.59,1.41; "hidden"
e[12] = p12;    point;  fixed;  0.0,-6.0;   "hidden"
e[13] = p13;    point;  fixed;  8.0,-6.0;   "hidden"
e[14] = p14;    point;  fixed;  4.0,6.0;    "hidden"
e[15] = p15;    point;  fixed;  -2.59,-1.41;"hidden"
e[16] = p16;    point;  fixed;  10.59,-1.41;"hidden"
e[17] = p17;    point;  fixed;  -4.0,2.0;   "hidden"
e[18] = p18;    point;  fixed;  -5.41,1.41; "hidden"
e[19] = p19;    point;  fixed;  -6.2,1.95;  "hidden"
e[20] = p20;    point;  fixed;  13.41,1.41; "hidden"
e[21] = p21;    point;  fixed;  13.0,2.65;  "hidden"
e[22] = p22;    point;  fixed;  12.0,2.0;   "hidden"
e[23] = p23;    point;  fixed;  3.0,1.7;    "hidden"
e[24] = p24;    point;  fixed;  5.0,1.7;    "hidden"
e[25] = p25;    point;  fixed;  4.0,4.0;    "hidden"

e[26] = tila0;  point;  fixed;  -5.0,0.0;   "hidden"
e[27] = tila1;  point;  fixed;  0.0,-5.0;   "hidden"
e[28] = tila2;  point;  fixed;  5.0,0.0;    "hidden"
e[29] = origo;  point;  fixed;  0.0,0.0;    "hidden"
e[30] = tila3;  point;  fixed;  0.0,5.0;    "hidden"
   
e[31] = ymp;    circle; radius; origo,tila0;    "hidden"
   
e[32] = arc01;  sector;     sector;     origo,tila0,tila1;"hidden"
e[33] = arc12;  sector;     sector;     origo,tila1,tila2;"hidden"
e[34] = arc20;  sector;     arc;    tila2,tila3,tila0;"hidden"
   
e[35] = P1;     point;      dragable;       -5.0,0.0,arc01; "hidden"
e[36] = P2;     point;      dragable;       0.0,-5.0,arc12; "hidden"
e[37] = P3;     point;      dragable;       5.0,0.0,arc20;  "hidden"

//tilat
e[38] = snolla; circle;     radius;    p1,p2;   0;0;black;0
e[39] = syksi;  circle;     radius;    p3,p4;   0;0;black;0
e[40] = skaksi; circle;     radius;    p5,p6;   0;0;black;0
e[41] = s3;     circle;     radius;    p5,p7;   0;0;black;0;

//siirtymät
e[42] = s4;         sector;     arc;       p8,p12,p9;   0;0;black;0; "hideLabel"
e[43] = s5;         sector;     arc;       p11,p13,p10; 0;0;black;0; "hideLabel"
e[44] = s6;         sector;     sector;    p14,p15,p16; 0;0;black;0; "hideLabel"
e[45] = s7;         sector;     arc;       p17,p19,p18; 0;0;black;0; "hideLabel"
e[46] = s8;         sector;     sector;    p21,p20,p22; 0;0;black;0; "hideLabel"
e[47] = s9;         sector;     arc;       p24,p25,p23; 0;0;black;0; "hideLabel"

//animaatio pisteet
e[48] = an1;    point;      dragable;    -5.0,0.0,s4;   0;red;red;0;smallcircle
e[49] = an2;    point;      dragable;    0.0,0.0,s5;    0;red;red;0;smallcircle
e[50] = an3;    point;      dragable;    10.59,-1.41,s6;    0;red;red;0;smallcircle
e[51] = an4;    point;      dragable;    -5.0,0.0,s7;   0;red;red;0;smallcircle
e[52] = an5;    point;      dragable;    12.0,2.0,s8;   0;red;red;0;smallcircle
e[53] = an6;    point;      dragable;    0.0,0.0,s9;        0;red;red;0;smallcircle

//nappulat
e[54] = m2;         measure;    button;    "a","action";
e[55] = m3;         measure;    button;    "b","action";

e[56] = s0;     point;  fixed;  -3.0,0.0;   black;0;0;0;
e[57] = s1;     point;  fixed;  5.0,0.0;    black;0;0;0;
e[58] = s2;     point;  fixed;  13.0,0.0;   black;0;0;0;
e[59] = a1;     point;  fixed;  1.0,3.0;    0;0;0;0;
e[60] = b1;     point;  fixed;  -4.0,4.7;   0;0;0;0;
e[61] = a2;     point;  fixed;  5.0,4.7;    0;0;0;0;
e[62] = b2;     point;  fixed;  9.0,3.0;    0;0;0;0;
e[63] = a3;     point;  fixed;  0.0,-4.0;   0;0;0;0;
e[64] = b3;     point;  fixed;  14.5,4.7;   0;0;0;0;

e[65] = baa;       measure; JSfunction;  "checkRadioButtons","baa";

e[66] = m1;    measure;     button;    "Arvioi","evaluate";

image[1] = "a10.gif", a1, -1, -1
image[2] = "a10.gif", a2, -1, -1
image[3] = "a10.gif", a3, -1, -1
image[4] = "b10.gif", b1, -1, -1
image[5] = "b10.gif", b2, -1, -1
image[6] = "b10.gif", b3, -1, -1

//animaatiot
//ensimmäistä kertaa tilassa snolla painetaan a:ta
    anim[1] = "if ((calculate(m2))&(isIncident(P1,tila0))&(isIncident(P2,tila1))) animate (an1,10,1,100,1)" 
    anim[2] = "if (isIncident(an1,syksi)) animate (P1,10,0,100,1)"
//tilassa snolla painetaan b:tä 
    anim[3] = "if ((calculate(m3))&(isIncident(P1,tila0))&(isIncident(P2,tila1))) animate (an4,10,1,100,1)" 
//tilassa syksi painetaan a:ta
    anim[4] = "if ((calculate(m2))&(isIncident(P1,tila1))) animate (an6,10,1,100,1)" 
//tilassa syksi painetaan b:tä
    anim[5] = "if ((calculate(m3))&(isIncident(P1,tila1))) animate (an2,10,1,100,1)" 
    anim[6] = "if (isIncident(an2,skaksi)) animate (P2,10,0,100,1)"
    anim[7] = "if (isIncident(an2,skaksi)) animate (P1,10,1,100,1)"
//tilassa skaksi painetaan a:ta
    anim[8] = "if ((calculate(m2))&(isIncident(P2,tila2))) animate (an3,10,1,100,1)"
    anim[9]= "if (isIncident(an3,snolla)) animate (P2,10,1,100,1)" 
//tilassa skaksi painetaan b:tä
    anim[10]= "if ((calculate(m3))&(isIncident(P2,tila2))) animate (an5,10,1,100,1)" 

<Problem>
 MAX_ANSWER = 0
//JS:stä saadaan arvo 0 jos valittu on, 1 jos valittu ei ole
 condition[1] = "(calculate(baa))"
</Problem>

//relaatio on antisymmetrinen ja transitiivinen
<Answer 1>
 key = "NOT(condition[1])"
 comment[1] = " OIKEIN!"
</Answer 1>

<Answer 2>
 key = "1"
 comment[1] = " Tämä vastaus ei ole oikein. /n Muistathan, että vain s2 on hyväksyvä tila! /n Yritä uudelleen."
</Answer 2>