!set n=$counter
questiontype=0
mathview=0
# generieke applet
image=0
applet=1
cols=20
rows=1
draw=0
plot=0
math=0
inputs=1
checkfile=exos/checkfile1.proc
!if $level=0
    R=$n
!else
    R=$level
!endif 

########## MAAK NIEUWE LIJNEN MET !filewrite ###############
p=!randitem 6,7,8,9,10,11
q=!randitem 6,7,8,9,10,11
m=!randint 10,100
pm=!randitem -1,1
m=$[$pm*$m/100]
L1=$m*x + $q
L2=$m*x - $p
X1=!randitem -4,-5,-6,-8,-9,-10
X2=!randitem 4,5,6,8,9,10
Y1=$[$m*$X1 + $q]
Y2=$[$m*$X2 + $q]
X3=!randitem -4,-5,-6,-8,-9,-10
X4=!randitem 4,5,6,8,9,10
Y3=$[$m*$X3 - $p]
Y4=$[$m*$X4 - $p]
X5=!randint -5,5
Y5=$[$m*$X5 + $q]
X6=!randint -5,5
Y6=$[$m*$X6 - $p]
!if $X5=$X6
    X5=$[-1*$X5]
!endif
hoek1=$[abs(atan($m))]
hoek1=$[(round(18000*$hoek1/pi))/100]
m2=$[($Y6-$Y5)/($X6-$X5)]
hoek2=$[abs(atan($m2))]
hoek2=$[(round(18000*$hoek2/pi))/100]
!if $m > 0
    !if $m2 > 0
	hoek=$[abs($hoek1-$hoek2)]
    !else
	hoek=$[abs($hoek1+$hoek2)]
    !endif
!else
    !if $m2 < 0
	hoek=$[abs($hoek1-$hoek2)]
    !else
	hoek=$[abs($hoek1+$hoek2)]
    !endif
!endif
!if $hoek > 90
    hoek=$[180-$hoek]
!endif
	
range=$[max(abs($Y5),abs($Y6))]
range=$[$range+10]
!if $range <20
    range=20
!endif

# plaatje 640x328 pixels
XSIZE=700
YSIZE=400
xsize=300
ysize=300

data=<?xml version="1.0" encoding="utf-8"?><CaR>\
<Construction>\
<Window x="0.0" y="0.0" w="$range" showgrid="false"/>\
<Objects>\
<Point name="P1" n="1" x="$X1" y="$Y1" hidden="true" fixed="true"></Point>\
<Point name="P2" n="2" x="$X2" y="$Y2" hidden="true" fixed="true"></Point>\
<Point name="P3" n="3" x="$X3" y="$Y3" hidden="true" fixed="true"></Point>\
<Point name="P4" n="4" x="$X4" y="$Y4" hidden="true" fixed="true"></Point>\
<Point name="P5" n="5" x="$X5" y="$Y5" hidden="true" fixed="true"></Point>\
<Point name="P6" n="6" x="$X6" y="$Y6" hidden="true" fixed="true"></Point>\
<Line name="lijn 1" n="7" showname="true" color="2" from="P3" to="P4" type="normal"></Line>\
<Line name="lijn 2" n="8" showname="true" color="2" from="P1" to="P2" type="normal"></Line>\
<Line name="lijn 3" n="9" showname="true" color="5" from="P5" to="P6" type="normal"></Line>\
<Angle name="a1" n="10" color="5" showvalue="false" first="P5" root="P6" second="P3" filled="true"></Angle>\
<Angle name="a2" n="11" color="2" showvalue="false" first="P1" root="P5" second="P6" filled="true"></Angle>\
<Text name="Text1" n="12" background="true" unit="48" x="$[$X5-2]" y="$[$Y5-2]">????????</Text>\
</Objects>\
</Construction>\
</CaR>

myname=$wims_nowseconds.zir
!filewrite getfile/$myname $data
myfile=$wims_ref_name?session=$session&cmd=getfile&special_parm=$myname
object$n=<applet codebase="$appletdir" archive="zirkel.jar" code="rene.zirkel.ZirkelApplet.class" WIDTH="$xsize" HEIGHT="$ysize" ALIGN="CENTER"><param name="file" value="$myfile"><param name="color" value="255,255,255"><param name="style" value="breaks"><param name="tools" value="line ray segment circle circle3 fixedcircle parallel plumb move"><param name="options" value="back delete undo showname macro qchoice indicate draw rename"><param name="displaydigits" value="2"><param name="angledigits" value="2">$nojava</applet>

answer$n=$hoek
H=$[180-$hoek]
!if $R>0
    ss=!record 97 of lang/remarks.$taal
    question$n=$ss
    #@Gegeven zijn de twee parallele blauwe lijnen <font color=blue><em>lijn 1</em> en <em>lijn 2</font></em><br>Ze worden gesneden door de bruinrode <font color=darkred><em>lijn 3</em></font>.<br> &Eacute;&eacute;n van de hoeken tussen <em>lijn 3</em> en <em>lijn 1</em> is <font color=darkred>$H<sup>o</sup></font>.<br>Bereken hiermee de <font color=blue>"onbekende" hoek</font> tussen <font color=darkred><em>lijn 3</em></font> en <font color=blue><em>lijn 2</em></font>

    rr=!record 98 of lang/remarks.$taal
    #@De hoek die onstaat <em>(ook wel Z- of F-hoek genoemd)</em> is dus ook $hoek<sup>o</sup><br>of 180 - $H<sup>o</sup> = $(answer$n)<sup>o</sup><br><a onmouseover="return escape('<center><img src=$module_dir/gifs/18/1.jpg alt=geen_plaatje>');"><font color=blue>zie plaatje<font></a>
    textanswer$n=$rr
    
    inputtext1=!record 99 of lang/remarks.$taal
    #@de andere hoek tussen <font color=darkred><em>lijn 3</em></font> en <font color=blue><em>lijn 2</em></font>
 !exit
!endif

