checkfile=$checkdir/multiplechoice.proc
n=$counter
mathview=0
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if $R>0
    XSIZE=650
    questiontype=7
    javascript=js/exo3.js
    inputs=0
    image=0
    draw=0
    helptext=$empty
    formula$n=$empty
    hoek=!randint 1,180
    keuze=!randitem 1,2
    !if $keuze=1
	!if $hoek=180
	    answer$n=4
	!else
	    !if $hoek >90
		answer$n=2
	    !else
		!if $hoek<90
		    answer$n=1
		!else
		    answer$n=3
		!endif
	    !endif
	!endif	
    !else
	!if $hoek=180
	    answer$n=4
	!else
	    !if $hoek <90
		answer$n=1
	    !else
		!if $hoek>90
		    answer$n=2
		!else
		    answer$n=3
		!endif
	    !endif
	!endif	
    !endif
    ss=!record 13 of lang/remarks.$taal
    #@ Een hoek van $hoek <sup>o</sup> is een...
    question$n=$ss
    exotext=$empty
    nummers=$empty
    choicetext=!record 12 of lang/remarks.$taal
    options=!itemcnt $choicetext
    !for p=1 to $options
	nummers=!append item $p to $nummers
    !next p
    nummers=!shuffle $nummers

    !for p in $nummers
	q=!item $p of $choicetext
	q=!replace internal @ by , in $q
	q1=!item 1 of $q
	q2=!item 2 of $q
	ex$q1=$q2
	exotext=!append line <option value="$q1">$q2</option> to $exotext
	!if $q1=$(answer$n)
	    textanswer$n=$q2
	!endif
    !next p
    exotext=<p align=center><select style=$textareastyle name="reply$n" size="1">$exotext</select></p>
    textanswer$n=$(textanswer$n)<p>$exotext
    # style="font-size:18px;background-color:#e8ffff;border:2px solid #ff0000" 
    #@ 5@Ik zou het echt niet weten,1@Scherpe hoek,2@Stompe hoek,3@Rechte hoek,4@Gestrekte hoek,6@Flauwe hoek,7@Stijle hoek,8@Moeilijke hoek

    !if $teaching=1
	text=!record 2 of lang/remarks.$taal
	#helptext=<font size="-1"><a href="javascript:showimage();">$helptext</font>
	text=<small><em><a onmouseover="return escape('<img src= $wims_ref_name?&session=$session&module=$module&cmd=getins&special_parm=insert-1.gif>')">$text</a></em></small>
	lijn=line 0,0,10,0,blue
	!if $hoek=180
	    arc=arc 0,0,-8,8,0,$hoek,red
	!else
	    !if $hoek >90
		arc=arc 0,0,8,8,0,$hoek,red
	    !else
		!if $hoek<90
		    arc=arc 0,0,8,8,0,$hoek,red
		!else    
		    arc=rect 0,0,2,2,red
		!endif
	    !endif
	!endif
	rad=$[pi*$hoek/180]
	x=$[10*cos($rad)]
	y=$[10*sin($rad)]
	insdraw_size=640,328
	!insdraw transparent white\
	xrange -10,10\
	yrange 0,10\
	copy -10,10,-1,-1,-1,-1,gifs/geodriehoek2.jpg\
	linewidth 4\
	line -10,0,10,0,blue\
	linewidth 2\
	line  0,0,$x,$y,blue\
	$arc\
	linewidth 8\
	point 0,0,blue
	
	exotext=<form name=myform1>$exotext</form><p align=center>$text</p><p align=center>
    !else
	# style="font-size:18px;background-color:#e8ffff;border:2px solid #ff0000" 
	exotext=<form name=myform1>$exotext</form>
    #@ 5@Ik zou het echt niet weten,1@Scherpe hoek,2@Stompe hoek,3@Rechte hoek,4@Gestrekte hoek,6@Flauwe hoek,7@Stijle hoek,8@Moeilijke hoek
    !endif
!endif
