!set n=$counter
inputs=1
image=0
math=0
draw=1
plot=0
applet=0
cols=35
rows=1
questiontype=0
math=0
# image 640x328 pixels
!if $level=0
    R=$counter
!else
    R=$level
!endif
XSIZE=640
# 640=10 => y=3.28*6.4
#YSIZE=328
YSIZE=340
insdraw_size=$XSIZE,$YSIZE
vorm=!record 1 of lang/remarks.$taal
text=!record 2 of lang/remarks.$taal
scherp=!item 1 of $vorm
stompe=!item 2 of $vorm
!if $printexo=0
    helptext=<a href="javascript:showimage();"><font size=-1><img src=$module_dir/gifs/kleintje.gif border="0"></a>
!else
    image=1
    helptext=$empty
    exotext=$empty
!endif
!if $R=1
    inputs=1
    checkfile=exos/checkfile1.proc
    keuze=!randitem 0,1
    hoek1=!randint 2,88
    answer$n=$hoek1
    arc=$empty
    !if $keuze=1
	answer$n=$hoek1
	vorm=$scherpe
	!if $teaching=1
	    arc=arc 0,0,4,4,0,$hoek1,red
	!endif
    !else
	vorm=$stompe
	answer$n=$[180-$hoek1]
	!if $teaching=1
	    arc=arc 0,0,-4,4,0,$[180-$hoek1],red
	!endif
    !endif
    		
    rad1=$[pi*($hoek1-1)/180]
    x1=$[10*cos($rad1)]
    y1=$[10*sin($rad1)]

    plaatje=$XSIZE,$YSIZE\
    transparent white\
    xrange -10,10\
    yrange -0.5,10\
    copy -10,10,-1,-1,-1,-1,gifs/geodriehoek2.jpg\
    linewidth 4\
    line -10,0,10,0,blue\
    linewidth 2\
    line  0,0,$x1,$y1,blue\
    $arc
    
    !if $printexo=0
	!insdraw $plaatje
    !else
	image$n=$plaatje
    !endif
    ss=!record 3 of lang/remarks.$taal
    #@ Maak een schatting -in graden- van de $vorm hoek 
    rr=!record 4 of lang/remarks.$taal
    #@ De getekende $vorm hoek was dus ongeveer $(answer$n) <sup>o</sup>
    question$n=<a onmouseover="T_WIDTH=$XSIZE;T_HEIGHT=$YSIZE;this.T_OFFSETX=-150;return escape('<img src= $wims_ref_name?&session=$session&module=$module&cmd=getins&special_parm=insert-1.gif>')">$ss <br> $text </a>
    textanswer$n=$rr
!endif    
	
!if $R=2
    inputs=1
    checkfile=exos/checkfile1.proc
    hoek1=!randint 2,178
    hoek2=!randint 2,178
    !if $[abs($hoek1-$hoek2)] <15
	hoek1=!randint 2,90
	hoek2=!randint 115,160
    !else	
	!if $hoek1>$hoek2
	    tmp=$hoek1
	    hoek1=$hoek2
	    hoek2=$tmp
	!endif		
    !endif
    answer$n=$[$hoek2-$hoek1]
      
    rad1=$[pi*($hoek1-1)/180]
    x1=$[10*cos($rad1)]
    y1=$[10*sin($rad1)]

    rad2=$[pi*($hoek2)/180]
    x2=$[10*cos($rad2)]
    y2=$[10*sin($rad2)]

    plaatje=$XSIZE,$YSIZE\
    transparent white\
    xrange -10,10\
    yrange -0.5,10\
    copy -10,10,-1,-1,-1,-1,gifs/geodriehoek2.jpg\
    linewidth 2\
    line  0,0,$x1,$y1,blue\
    line  0,0,$x2,$y2,blue\
    arc 0,0,10,10,$hoek1,$hoek2,red
    
    !if $printexo=0
	!insdraw $plaatje
    !else
	image$n=$plaatje
    !endif
    
    rr=!record 5 of lang/remarks.$taal
    #@ De getekende hoek tussen de lijnen was dus $(answer$n) <sup>o</sup> graden<br>Dat kon je direct aflezen of uitrekenen<br>de eerste hoek was $hoek1 <sup>o</sup> , de tweede hoek was $hoek2 <sup>o</sup><br>dus het verschil is $hoek2 - $hoek1 = $(answer$n) <sup>o</sup>
    textanswer$n=$rr
    ss=!record 6 of lang/remarks.$taal
    #@Schat de hoek -in graden- tussen de twee blauwe lijnen.
    question$n=<a onmouseover="T_WIDTH=$XSIZE;T_HEIGHT=$YSIZE;this.T_OFFSETX=-150;return escape('<img src= $wims_ref_name?&session=$session&module=$module&cmd=getins&special_parm=insert-1.gif width=100%>')">$ss <br> $text</a>
 !exit    
!endif

!if $R>2
    inputs=3
    cols=20
    rows=1
    checkfile=exos/checkfile3.proc
    hoek1=!randint 30,160
    hoek2=!randint 30,160
    !if $hoek1 = $hoek2
	hoek1=!randint 30,90
	hoek2=!randint 120,150
    !else
	!if $hoek1>$hoek2
	    tmp=$hoek1
	    hoek1=$hoek2
	    hoek2=$tmp
	!endif		
    !endif
    answer$n=$hoek1,$[180-$hoek2],$[$hoek2-$hoek1]

    rad1=$[pi*$hoek1/180]
    x1=$[10*cos($rad1)]
    y1=$[10*sin($rad1)]

    rad2=$[pi*$hoek2/180]
    x2=$[10*cos($rad2)]
    y2=$[10*sin($rad2)]
    kleuren=!record 7 of lang/remarks.$taal
    #@ red@rood,green@groen,blue@blauw,orange@oranje,purple@paars
    kleuren=!shuffle $kleuren
    !for p=1 to 3
	k$p=!item $p of $kleuren
	k$p=!replace internal @ by , in $(k$p)
	C$p=!item 1 of $(k$p)
	K$p=!item 2 of $(k$p)
	inputtext$p=$(K$p)
    !next p

    plaatje=$XSIZE,$YSIZE\
    transparent white\
    xrange -10,10\
    yrange -0.5,10\
    copy -10,10,-1,-1,-1,-1,gifs/geodriehoek2.jpg\
    linewidth 2\
    line  0,0,$x1,$y1,black\
    line  0,0,$x2,$y2,black\
    linewidth 4\
    arc 0,0,6,6,0,$hoek1,$C1\
    arc 0,0,5,5,$hoek1,$hoek2,$C3\
    arc 0,0,4,4,$hoek2,180,$C2\
    linewidth 6\
    line  0,0,10,0,black\
    line  0,0,-10,0,black

    !if $printexo=0
	!insdraw $plaatje
    !else
	image$n=$plaatje
    !endif

    ss=!record 8 of lang/remarks.$taal
    #@ Schat de drie hoeken.<br>Dus de <font color=$C1>$K1 gekleurde hoek</font>, de <font color=$C2>$K2 gekleurde hoek</font> en de <font color=$C3>$K3 gekleurde hoek</font>.
    question$n=<a onmouseover="T_WIDTH=$XSIZE;T_HEIGHT=$YSIZE;this.T_OFFSETX=-150;return escape('<img src= $wims_ref_name?&session=$session&module=$module&cmd=getins&special_parm=insert-1.gif>')">$ss <br> $text</a>
    rr=!record 9 of lang/remarks.$taal
    #@ Het goede antwoord is  dus:<br>$hoek1<sup>o</sup> <br>180<sup>o</sup>-$hoek2<sup>o</sup> = $[180-$hoek2]<sup>o</sup> <br>en de hoek tussen de lijnen met hoeken $hoek2<sup>o</sup> - $hoek1<sup>o</sup> = $[$hoek2-$hoek1]<sup>o</sup> 
    textanswer$n=$rr
 !exit    
!endif

