n=$counter
mathview=0
inputs=0
questiontype=4
math=0
!if $level=0
    R=$counter
!else
    R=$level
!endif
showToolBar=true
showMenuBar=false                                                                                             
framePossible=false
checkfile=exos/checkfile8.proc
# 6 | 10 | 15 | 2 | 3 | 4 | 16 | 40 "
helptext=$empty
xa=!randitem -2,-3,-4,-5,-6,-7,-8,-9
ya=!randitem 0,1,2,3,4,5
xb=!randitem 5,6,7,8,9,10
r=!randitem 1,2,3,-2,-3,-4
yb=$[$ya+($r)]
xc=!randint $[$xa+1],$[$xb-1]
yc=$[max($ya+1,$yb-1)]
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=W1.jpg
    list_of_things=['circle','point','line','polygon']; 
    ggb=ggb/nogrid.ggb
    customToolBar=" 0 | 1 | 2 | 10 | 34 | 40 | 6 | 41 | 42 "
    ss=!record 93 of lang/remarks.$taal
    #@Gegeven de driehoek ABC.<br>Construeer met je "passer & lineaal" een hoogtelijn vanuit punt A.
    question$n=$ss
    answer$n=6,2,1,2,2,0
    # 6 punten,2 cirkel,0 polygon,1 lijn,type=2,check=1
    rc=$[($yb-($yc))/($xb-($xc))]
    rc1=$[-1*($xb-($xc))/($yb-($yc))]
    q=$[$yb - ($rc)*($xb)]
    q1=$[$ya - ($rc1)*($xa)]
    # lijn uit A loodrecht op BC: y=$rc1*x+$q1
    # lijn door BC : y=$rc*x+$q
    # rc1*x+q1=$rc*x+q -> xh = ($q - ($q1))/($rc1 - ($rc))
    # yh=$rc*$xh + $q
    xh=$[($q - ($q1))/($rc1 - ($rc))]
    yh=$[$rc*($xh) + ($q)]
    
    var1=$xh
    var2=$yh
    #appletcommand=$appletcommand\
    #document.applets[0].evalCommand("H = ($xh,$yh)");
!endif
!if $R>1
    plaatje=W2.jpg
    list_of_things=['circle','point','line','polygon'];
    ggb=ggb/nogrid.ggb
    customToolBar=" 0 | 1 | 2 | 10 | 34 | 40 | 6 | 41 | 42 "
    ss=!record 94 of lang/remarks.$taal
    #@Gegeven de driehoek ABC.<br>Construeer met je "passer & lineaal" het Hoogtepunt.<br>Vergeet niet het gevonden hoogtepunt 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 hoogtepunt)<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>
    tip=!record 97 of lang/remarks.$taal
    question$n=$ss <br> $tip
    answer$n=10,4,1,4,2,0
    # 6 punten,2 cirkel,0 polygon,1 lijn,type=2,check=0
    # hoogtelijn door A  door BC
    rca=$[-1*($xb-($xc))/($yb-($yc))]
    qa=$[$ya - ($rca)*($xa)]

    # hoogtelijn door B  door AC
    rcb=$[-1*($xa-($xc))/($ya-($yc))]
    qb=$[$yb - ($rcb)*($xb)]

    # snijpunt van hoogtelijn door A en B
    #$rca*x + $qa = $rcb*x + $qb -> x(rca-rcb)=(qb-qa) -> x=(qb-qa)/(rca-rcb)
    xh=$[($qb -($qa))/($rca - ($rcb))]
    yh=$[$rca*$xh + $qa]
    
    #appletcommand=$appletcommand\
    #document.applets[0].evalCommand("H = ($xh,$yh)");
    var1=$xh
    var2=$yh
!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    
