n=$counter
mathview=0
inputs=0
questiontype=4
!if $level=0
    R=$counter
!else
    R=$level
!endif
showToolBar=true
showMenuBar=false                                                                                             
framePossible=false
checkfile=exos/checkfile2.proc
# 6 | 10 | 15 | 2 | 3 | 4 | 16 | 40 "
helptext=$empty
xa=!randitem 0,-1,-2,-3,-4,-5
ya=!randitem 0,1,2,3,4,5
xb=!randitem 5,6,7,8,9,10
r=!randitem 1,2,3,-1,-2,-3
yb=$[$ya+($r)]
xc=!randint $xa,$xb
yc=$[max($ya,$yb)]
s=!randitem 3,4,5,6
yc=$[$yc+$s]


appletcommand=document.applets[0].evalCommand("Aa_x=$xa");\
document.applets[0].evalCommand("Aa_y=$ya");\
document.applets[0].evalCommand("Bb_x=$xb");\
document.applets[0].evalCommand("Bb_y=$yb");\
document.applets[0].evalCommand("Cc_x=$xc");\
document.applets[0].evalCommand("Cc_y=$yc");\
document.applets[0].evalCommand("A = (Aa_x,Aa_y)");\
document.applets[0].evalCommand("B = (Bb_x,Bb_y)");\
document.applets[0].evalCommand("C = (Cc_x,Cc_y)");\
document.applets[0].evalCommand("p1 = Polygon[A,B,C]");
!if $R=1
    plaatje=U1.jpg
    list_of_things=['circle','point','line','polygon']; 
    ggb=ggb/nogrid.ggb
    customToolBar=" 0 | 1 | 2 | 10 | 34 | 40 | 6 | 41 | 42 "
    ss=!record 91 of lang/remarks.$taal
    #@Gegeven de driehoek ABC.<br>Construeer met je "passer & lineaal" een zwaartelijn vanuit hoek A.
    question$n=$ss
    answer$n=6,2,1,2,2,1
    # 6 punten,2 cirkel,0 polygon,1 lijn,type=2,check=1
    var1=$[(($xc)+($xb))/2]
    var2=$[(($yc)+($yb))/2]
!endif
!if $R>1
    plaatje=U2.jpg
    list_of_things=['circle','point','line','polygon'];
    ggb=ggb/nogrid.ggb
    customToolBar=" 0 | 1 | 2 | 10 | 34 | 40 | 6 | 41 | 42 "
    ss=!record 92 of lang/remarks.$taal
    #@Gegeven de driehoek ABC.<br>Construeer met je "passer & lineaal" het Zwaartepunt.<br>Vergeet niet het gevonden zwaartepunt als een "punt" te tekenen<br>Laat al je hulp_cirkels, hulp_lijnen en hulp_punten gewoon in de tekening staan<br><font size=-2><em>(maar ik kijk nu in je constructie alleen naar het gevonden zwaartepunt)<br><font color=green>Tip 1: gebruik je rechtermuisknop $m_rightarrow eigenschappen<br>om de kleur en het lijntype van de hulpcirkels en hulplijnen te veranderen:<br>je ziet anders door de bomen het bos niet meer...<br>Tip 2: denk ook aan de zoom in/zoom uit knop...</em></font>
    question$n=$ss
    answer$n=10,4,1,4,2,0
    # 6 punten,2 cirkel,0 polygon,1 lijn,type=2,check=0
    # Za door A en midden BC
    mx=$[($xb+$xc)/2]
    my=$[($yb+$yc)/2]
    rca=$[($ya - ($my))/($xa -($mx))]
    qa=$[$ya - (($rca)*($xa))]
    Za=$rca*x + ($qa)

    # Zb door B en midden AC
    mx=$[($xa+$xc)/2]
    my=$[($ya+$yc)/2]
    rcb=$[($yb - ($my))/($xb -($mx))]
    qb=$[$yb - (($rcb)*($xb))]
    Zb=$rcb*x + ($qb)

    # Zc door C en midden AB
    mx=$[($xa+$xb)/2]
    my=$[($ya+$yb)/2]
    rcc=$[($yc - ($my))/($xc -($mx))]
    qc=$[$yc - (($rcc)*($xc))]
    Zc=$rcc*x + ($qc)

    #S1= $rca*x + ($qa)== $rcb*x + ($qb) => ($rca -$rcb)*x = ($qb) - ($qa)
    xz=$[(($qb) - ($qa))/(($rca)-($rcb))]
    yz=$[$rca*($xz) + ($qa)]
    #appletcommand=$appletcommand\
    #document.applets[0].evalCommand("Z = ($xz,$yz)");
    var1=$xz
    var2=$yz
!endif

textanswer$n=<img src=$module_dir/gifs/$plaatje width="345"> 
!if $teaching=1
    exotext=!record 16 of lang/remarks.$taal
    #@ <font color=blue>klik</font></a> hier voor wat info
    exotext=<a onclick='window.open("$module_dir/gifs/$plaatje"," ","width=345,height=280,left=0,top=0")'>$exotext
!else
    exotext=$empty
!endif    
