!set n=$counter
mathview=0
questiontype=0
# generieke applet
image=0
XSIZE=700
applet=1
cols=20
rows=1
draw=0
plot=0
math=0
inputs=1
helptext=$empty
checkfile=exos/checkfile13.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=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="P3" n="1" x="$X3" y="$Y3" hidden="true" fixed="true"></Point>\
<Point name="P4" n="2"  x="$X4" y="$Y4" hidden="true" fixed="true"></Point>\
<Point name="P5" n="3"  x="$X5" y="$Y5" hidden="true" fixed="true"></Point>\
<Point name="P6" n="4"  x="$X6" y="$Y6" hidden="true" fixed="true"></Point>\
<Line name="lijn 1" n="5"  showname="true" color="2" from="P3" to="P4" type="normal"></Line>\
<Line name="lijn 2" n="6"  showname="true" color="5" from="P5" to="P6" type="normal"></Line>\
<Angle name="a1"  n="7" color="5" showvalue="false" first="P5" root="P6" second="P3" inverse="false" filled="true"></Angle>\
</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="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="color" value="255,255,255"><param name="displaydigits" value="2"><param name="angledigits" value="2">$onjava</applet>

answer$n=$hoek
H=$[180-$hoek]
!if $R>0
    ss=!record 94 of lang/remarks.$taal
    #@Gegeven zijn de snijdende lijnen <font color=blue><em>lijn 1</em></font> en <font color=darkred><em>lijn 2</em></font><br>&Eacute;&eacute;n van de hoeken tussen <em>lijn 1</em> en <em>lijn 2</em> is <font color=darkred>$H<sup>o</sup></font>.<br>Bereken hiermee de andere <font color=blue>(scherpe) hoek</font>. 
    question$n=$ss
    rr=!record 95 of lang/remarks.$taal
    #@De hoek is dus 180<sup>o</sup> - $H<sup>o</sup> = $hoek<sup>o</sup><br><a onmouseover="return escape('<center><img src=$module_dir/gifs/17/1.jpg alt=geen_plaatje>');"><font color=blue>zie plaatje<font></a>
    textanswer$n=$rr
    inputtext1=!record 96 of lang/remarks.$taal
    #@De hoek is dus:
!endif
