bewerking=bewerking1.proc
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif        
kleuren=red,blue,green,orange,purple
kleuren=!shuffle $kleuren
color1=!item 1 of $kleuren
color2=!item 2 of $kleuren
keuze=!randitem 1,2
!if $taal=nl
    nivo_title=Diverse vergelijkingen oplossen
    !if $KANNIET=1
	somtekst$n=Los de onderstaande vergelijking op:<p align="left">\
	<small><em>Als er g&eacute;&eacute;n oplossing is -volgens jou- noteer dan:<br>nul oplossingen</em></small></p>
    !else
	kanniet$n=0
	somtekst$n=Los de onderstaande vergelijking op:<br>
    !endif
    en=en
    geen_oplossing=Er zijn geen oplossingen mogelijk.
!else
    nivo_title=Solving several equations
    !if $KANNIET=1
	somtekst$n=Solve the next equation:<p align="left">\
	<small><em>If you find there is no solution, write:<br>no roots</em></small></p>
    !else
	kanniet$n=0
	somtekst$n=Solve the next equation:<br>
    !endif
    en=and
    geen_oplossing=There are no roots.

!endif        
!if $R=1
# type x^2 + 3 = 6
    !if $KANNIET=1
	a=!randitem 1,2,3,4,5,6,7,8,9
	b=!randitem 1,2,3,4,5,6,7,8,9    
	vraag=x^{2} + $a = $b
	!if $[$b - $a] < 0
	    kanniet$n=1
	    GOED$n=
	    antwoord$n=$geen_oplossing
	    !if $wims_user=supervisor
		G$n=$geen_oplossing
	    !endif
	    punten=$empty
	!else
	    !if $[$b - $a] = 0
		nulpunten=1
		kanniet$n=0
		GOED$n=0
		!if $taal=nl
		    oplossing= De oplossing :<br>x<sup>2</sup> $pm  $a = $b => x<sup>2</sup> = 0  => x=0 <br>	
		    antwoord$n=$oplossing <br> De waarde is <em>x=0</em><br> dus het punt (0:$b)
		!else
		    oplossing= The solution :<br>x<sup>2</sup> $pm  $a = $b => x<sup>2</sup> = 0  => x=0 <br>	
		    antwoord$n=$oplossing <br> de value <em>x=0</em><br> and thus the point (0:$b)		
		!endif
		!if $wims_user=supervisor
		    G$n= x=0
		!endif
		punten=points red,0,$b,0,$b
	    !else
		nulpunten=2	
		kanniet$n=0		
		X1=sqrt($[$b - $a])
		test=$[$X1]
		!if . notin $test
		    X1=$[$X1]
	        !endif	
		GOED$n=$X1,-$X1
		!if $taal=nl
		    oplossing= De oplossing :<br>x<sup>2</sup> + $a = $b => x<sup>2</sup> = $b - $a = $[$b - $a]  => x=<font size=+2>&radic;</font>($[$b - $a]) of x=- <font size=+2>&radic;</font>($[$b - $a]) <br>	
		    antwoord$n=$oplossing <br> De waarden zijn <em>x=$X1</em> en <em>x=-$X1</em><br> dus de punten (-$X1:$b) en ($X1:$b)
		!else
		    oplossing= The solutions :<br>x<sup>2</sup> + $a = $b => x<sup>2</sup> = $b - $a = $[$b - $a]  => x=<font size=+2>&radic;</font>($[$b - $a]) of x=- <font size=+2>&radic;</font>($[$b - $a]) <br>	
		    antwoord$n=$oplossing <br> The values are <em>x=$X1</em> and <em>x=-$X1</em><br> and thus the points (-$X1:$b) and ($X1:$b)		
		!endif
		!if $wims_user=supervisor
		    G$n= x1=$X1 $en x2=-$X1
		!endif
		punten=points red,$X1,$b,-$X1,$b
    	    !endif    
	!endif
	curve1=x^2 + $a
    !else
	nulpunten=2
	kanniet$n=0
	a=!randitem 1,2,3,4,5,6,7,8,9,10,11,12
	b=!randitem 1,2,3,4,5,6,7,8,9,10,11,12
	!if $b>$a
	    pm=+
	    mp=-
	!else
	    pm=-
	    mp=+
	!endif    
	vraag=x^{2} $pm $a = $b
	X1=sqrt($[$b $mp $a])
	test=$[$X1]
	!if . notin $test
	    X1=$[$X1]
	!endif	
	GOED$n=$X1,-$X1
	!if $taal=nl
	    oplossing= De oplossing :<br>x<sup>2</sup> $pm $a = $b => x<sup>2</sup> = $b $mp $a = $[$b $mp $a]  => x=<font size=+2>&radic;</font>($[$b $mp $a]) of x=- <font size=+2>&radic;</font>($[$b $mp $a]) <br>	
	    antwoord$n=$oplossing <br> De waarden zijn <em>x=$X1</em> en <em>x=-$X1</em><br> dus de punten (-$X1:$b) en ($X1:$b)
	!else
	    oplossing= The solution :<br>x<sup>2</sup> $pm $a = $b => x<sup>2</sup> = $b $mp $a = $[$b $mp $a]  => x=<font size=+2>&radic;</font>($[$b $mp $a]) of x=- <font size=+2>&radic;</font>($[$b $mp $a]) <br>	
	    antwoord$n=$oplossing <br>The values are <em>x=$X1</em> and <em>x=-$X1</em><br> and thus the points are (-$X1:$b) and ($X1:$b)
	!endif
	!if $wims_user=supervisor
	    G$n= x1=$X1 $en x2=-$X1
	!endif    
	curve1=x^2 $pm $a
	curve2= dhline 0,$b,$color2
	punten=points red,$X1,$b,-$X1,$b    
    !endif
    curve2= dhline 0,$b,$color2
    opgave$n=$vraag 
    !readproc nivo/plaatje$nivo.proc
 !exit
!endif

!if $R=2
#type 5x^2 -4 = 3
    !if $KANNIET=1
	a=!randitem 1,2,3,4,5,6,7,8,-1,-2,-3,-4,-5,-6,-7
        b=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15
        c=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,14
	!if $a=1
	    aa=
	!else
	    aa=$a\cdot    
	!endif
	vraag=$aa x^{2} + $b = $c
	!if $a>0
	    !if $[$c - $b]<0
		kanniet$n=1
		GOED$n=
		!if $taal=nl
		    antwoord$n=Er zijn geen oplossingen mogelijk.
		    !if $wims_user=supervisor
			G$n= nul oplossingen
		    !endif
		!else
		    antwoord$n=There are no solutions.
		    !if $wims_user=supervisor
			G$n= null solutions
		    !endif
		!endif
		punten=$empty
    	    !else
		!if $[$c - $b] = 0
		    nulpunten=1
		    kanniet$n=0
	    	    X1=!exec pari ($[$c - $b])/$a
		    X1=sqrt($X1)
		    test=$[$X1]
		    !if . notin $test
			X1=$[$X1]
		    !endif	    
		    GOED$n=$X1
		    punten=points red,$X1,$c
		    !if $taal=nl
			oplossing= De oplossing :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>$[$b-$c]/$a <br> 
	    		antwoord$n= $oplossing <br>De waarde is <em>x=$X1</em><br> dus het punt ($X1:$c)
		    !else
			oplossing= The solution :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>$[$b-$c]/$a <br> 
	    		antwoord$n= $oplossing <br>the value <em>x=$X1</em><br> and so the point ($X1:$c)
		    !endif
		
		    !if $wims_user=supervisor
			G$n= x=$X1 
		    !endif
		!else
		    nulpunten=2	
		    X1=!exec pari ($[$c - $b])/$a
		    X1=sqrt($X1)
		    test=$[$X1]
		    !if . notin $test
			X1=$[$X1]
		    !endif	    
		    GOED$n=$X1,-$X1
		    punten=points red,$X1,$c,-$X1,$c
		    !if $taal=nl
			oplossing= De oplossing :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>($[$b-$c]/$a) of x=-<font size=+2>&radic;</font>($[$b-$c]/$a) <br> 
			antwoord$n= $oplossing <br>De waarden zijn <em>x=-$X1</em> en <em>x=$X1</em><br> dus de punten (-$X1:$c) en ($X1:$c)
		    !else
			oplossing= The solution is :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>($[$b-$c]/$a) of x=-<font size=+2>&radic;</font>($[$b-$c]/$a) <br> 
			antwoord$n= $oplossing <br>The values are <em>x=-$X1</em> and <em>x=$X1</em><br> abd thus the points (-$X1:$c) and ($X1:$c)		    
		    !endif
		    
		    !if $wims_user=supervisor
			G$n= x1=$X1 $en x2=-$X1
		    !endif
		!endif	
	    !endif
	!else
	    !if $[$c - $b]>0
		kanniet$n=1
		GOED$n=
		!if $taal=nl
		    antwoord$n=Er zijn geen oplossingen mogelijk.
		    !if $wims_user=supervisor
			G$n= nul oplossingen
		    !endif
		!else
		    antwoord$n=There are no solutions.
		    !if $wims_user=supervisor
			G$n= null solutions
		    !endif
		!endif
		punten=$empty
    	    !else
		!if $[$c - $b] = 0
		    nulpunten=1
		    kanniet$n=0
	    	    X1=!exec pari ($[$c - $b])/$a
		    X1=sqrt($X1)
		    test=$[$X1]
		    !if . notin $test
			X1=$[$X1]
		    !endif	    
		    GOED$n=$X1
		    punten=points red,$X1,$c
		    !if $taal=nl
			oplossing= De oplossing :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>$[$b-$c]/$a <br> 
	    		antwoord$n= $oplossing <br>De waarde is <em>x=$X1</em><br> dus het punt ($X1:$c)
		    !else
			oplossing= The solution is :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>$[$b-$c]/$a <br> 
	    		antwoord$n= $oplossing <br>The value is <em>x=$X1</em><br> and thus the point ($X1:$c)
		    !endif
		    !if $wims_user=supervisor
			G$n= x=$X1 
		    !endif
		!else
		    nulpunten=2	
		    X1=!exec pari ($[$c - $b])/$a
		    X1=sqrt($X1)
		    test=$[$X1]
		    !if . notin $test
			X1=$[$X1]
		    !endif	    
		    GOED$n=$X1,-$X1
		    punten=points red,$X1,$c,-$X1,$c
		    !if $taal=nl
			oplossing= De oplossing :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>($[$b-$c]/$a) of x=-<font size=+2>&radic;</font>($[$b-$c]/$a) <br> 
			antwoord$n= $oplossing <br>De waarden zijn <em>x=-$X1</em> en <em>x=$X1</em><br> dus de punten (-$X1:$c) en ($X1:$c)
		    !else
			oplossing= The solution is :<br>$a*x<sup>2</sup> - $b = $c => $a*x<sup>2</sup> = $c + $b => x<sup>2</sup>= $[$b - $c]/$a  <br>dus x=<font size=+2>&radic;</font>($[$b-$c]/$a) of x=-<font size=+2>&radic;</font>($[$b-$c]/$a) <br> 
			antwoord$n= $oplossing <br>The values are <em>x=-$X1</em> and <em>x=$X1</em><br> and thus the points (-$X1:$c) en ($X1:$c)
		    !endif
		    !if $wims_user=supervisor
			G$n= x1=$X1 $en x2=-$X1
		    !endif
		!endif	
	    !endif
	
	!endif    
    curve1=$a*x^2 + $b
    !endif
    !if $KANNIET=0
	nulpunten=2
	a=!randitem 2,3,4,5,6,7,8,9,10,11,12,13,14,15,-1,-2,-3,-4,-5,-6,-7,-8,-9,-10,-11,-12,-13,-14,-15
        b=!randitem 7,8,9,10,11,12,13,14,15
        c=!randitem 2,3,4,5,6
	!if $a>0
	    pm=-
	    mp=+
	!else
	    pm=+
	    mp=-
	!endif         
	vraag=$a\cdot x^{2} $pm  $b = $c
	T=$[$c $mp $b]
	X1=!exec pari ($T)/($a)
	X1=sqrt($X1)
	test=$[$X1]
	!if . notin $test
	    X1=$[$X1]
	!endif	    
	GOED$n=$X1,-$X1
	punten=points red,$X1,$c,-$X1,$c
	!if $taal=nl
	    oplossing= De oplossing :<br>$a*x<sup>2</sup> $pm $b = $c => $a*x<sup>2</sup> = $c $mp $b => x<sup>2</sup>= $[$b $mp $c]/$a  <br>dus x=$[$b+$c]/$a of x=-$[$b+$c]/$a <br> 
	    antwoord$n= $oplossing <br>De waarden zijn <em>x=-$X1</em> en <em>x=$X1</em><br> dus de punten (-$X1:$c) en ($X1:$c)
	!else
	    oplossing= The solution :<br>$a*x<sup>2</sup> $pm $b = $c => $a*x<sup>2</sup> = $c $mp $b => x<sup>2</sup>= $[$b $mp $c]/$a  <br>dus x=$[$b+$c]/$a of x=-$[$b+$c]/$a <br> 
	    antwoord$n= $oplossing <br>The values are <em>x=-$X1</em> and <em>x=$X1</em><br> and so the points (-$X1:$c) and ($X1:$c)
	!endif
	!if $wims_user=supervisor
	    G$n= x1=$X1 $en x2=-$X1 
	!endif
    curve1=$a*x^2 $pm $b
    !endif
    curve2=dhline 0,$c,$color2
    opgave$n=$vraag 
    !readproc nivo/plaatje$nivo.proc
 !exit
!endif

!if $R=3
    #type 3(x-6)^2 +5 = 8 
    #   A(x-B)^2 + C = D 
    #==> A(x^2 -2Bx+B^2)+C =D => Ax^2 -2ABx + AB^2 + C - D =0 
    #(cx-a)(x+b)=0 <=> cx^2 + bcx -ax -ab=0
    #Dus: Ax^2 -2ABx + AB^2 + C - D =cx^2 + bcx - ax - ab
    #--> AB^2 + C - D = -ab 
    #-2ABx= bcx -ax = x(bc-a) => -2AB = bc-a 
    #--> Ax^2 = cx^2 => A=c
    #--> -2cB =bc-a => B = (bc-a)(-2c)
    #-->C-D = -ab -AB^2 <=> C-D = -ab -c((a-bc)/2c)^2
    !if $KANNIET=0
	kanniet$n=0
	a=!randitem 2,4,6,8,10,-2,-4,-6,-8,-10
        b=!randitem 2,3,4,5,-2,-3,-4,-5
	c=!randitem 2,3,4,-2,-3,-4
	!if $a=$[$b*$c]
	    a=$[$a+1]
	!endif
	X1=$[-1*$b]
	X2=!exec pari $a/$c
	A=$c
	B=$[($b*$c - $a)/(-2*$c)]
	C=$[(-1*$a)*($b)/2]
	DD=!exec pari printtex(($a)^2/(4*$c) + ($b)^2*$c/4)
	D=$[($a)^2/(4*$c) + ($b)^2*$c/4]
	!if $B<0
	    pm=+
	    B=$[-1*$B]
	    BB=!exec pari printtex(($b*$c -$a)/(2*$c))
	!else
	    pm=-
	    BB=!exec pari printtex(($b*$c -$a)/(-2*$c))
	!endif
	!if $C<0
	    mp=-
	    C=$[-1*$C]
	    CC=!exec pari ($a)*($b)/2
	!else
	    mp=+
	    CC=!exec pari (-1*($a)*($b)/2)
	!endif
	vraag= $A\cdot \left(x $pm $BB\right)^{2} $mp $C = $DD
	curve1=	$A*(x $pm $B)^2 $mp $C
	curve2=dhline 0,$D,$color2

	!ifval $X1 = $X2
	    nulpunten=1
	    wortels$n=\left\{ \begin{array}{c} x_1 = $X1\\  \end{array}\right.
	    punten=points red,$X1,$D,$X1,$D
	    !if $wims_user=supervisor
		G$n= x1=$X1 $en x2=$X2
	    !endif
	    GOED$n=$X1	    
	!else
	    nulpunten=2
	    wortels$n=\left\{ \begin{array}{c} x_1 = $X1\\ x_2 = $X2 \end{array}\right.
	    GOED$n=$X1,$X2
	    punten=points red,$X1,$D,$X2,$D
	    !if $wims_user=supervisor
		G$n= x1=$X1 $en x2=$X2
	    !endif
	!endif
    !else
	#KANNIET=1
	kanniet$n=!randitem 1,0,0,0,0,1
	#type 3(x-6)^2 +5 = 8 
	#   A(x-B)^2 + C = D 
	#==> A(x^2 -2Bx+B^2)+C =D => Ax^2 -2ABx + AB^2 + C - D =0 
	#(cx-a)(x+b)=0 <=> cx^2 + bcx -ax -ab=0
	#Dus: Ax^2 -2ABx + AB^2 + C - D =cx^2 + bcx - ax - ab
	#--> AB^2 + C - D = -ab 
	#-2ABx= bcx -ax = x(bc-a) => -2AB = bc-a 
	#--> Ax^2 = cx^2 => A=c
	#--> -2cB =bc-a => B = (bc-a)(-2c)
	#-->C-D = -ab -AB^2 <=> C-D = -ab -c((a-bc)/2c)^2
	a=!randitem 2,4,6,8,10,-2,-4,-6,-8,-10
        b=!randitem 2,3,4,5,-2,-3,-4,-5
	c=!randitem 2,3,4,-2,-3,-4
	!if $a=$[$b*$c]
	    a=$[$a+1]
	!endif
	X1=$[-1*$b]
	X2=!exec pari $a/$c
	A=$c
	B=$[($b*$c - $a)/(-2*$c)]
	C=$[(-1*$a)*($b)/2]
	DD=!exec pari printtex(($a)^2/(4*$c) + ($b)^2*$c/4)
	D=$[($a)^2/(4*$c) + ($b)^2*$c/4 ]
	!if $(kanniet$n)=1
	    p=!randitem 2,3,4,5
	    !if $A>0
		D=$[round($C - $p)]
		DD=$D
	    !else
		C=$[round($D - $p)]	
	    !endif
	    !if $wims_user=supervisor
		!if $taal=nl
		    G$n= nul oplossingen
		!else
		    G$n= null solutions
		!endif
	    !endif
	    #alleen voor TeX	
	    !if $B<0
		pm=+
		B=$[-1*$B]
		BB=!exec pari printtex(($b*$c -$a)/(2*$c))
	    !else
		pm=-
		BB=!exec pari printtex(($b*$c -$a)/(-2*$c))
	    !endif
	    !if $C<0
		mp=-
		C=$[-1*$C]
		CC=$C
	    !else
	        mp=+
	        CC=$C
	    !endif
	    vraag= $A\cdot \left(x $pm $BB\right)^{2} $mp $CC = $DD
	    curve1=$A*(x $pm $B)^2 $mp $C
	    curve2=dhline 0,$D,$color2
	    !if $taal=nl
		antwoord$n=Er zijn geen oplossingen; de parabool heeft geen snijpunten met de lijn <em>y=$D</em> 
	    !else
		antwoord$n=There are no solutions; the parabola has no intersection points with the line <em>y=$D</em> 	    
	    !endif
	!else
	    #alleen voor TeX	
	    !if $B<0
		pm=+
		B=$[-1*$B]
	        BB=!exec pari printtex(($b*$c -$a)/(2*$c))
	    !else
		pm=-
		BB=!exec pari printtex(($b*$c -$a)/(-2*$c))
	    !endif
	    !if $C<0
		mp=-
		C=$[-1*$C]
		CC=!exec pari ($a)*($b)/2
	    !else
		mp=+
		CC=!exec pari (-1*($a)*($b)/2)
	    !endif
	    vraag= $A\cdot \left(x $pm $BB\right)^{2} $mp $C = $DD
	    curve1=	$A*(x $pm $B)^2 $mp $C
	    curve2=dhline 0,$D,$color2 
	    !ifval $X1 = $X2
		nulpunten=1
		wortels$n=\left\{ \begin{array}{c} x_1 = $X1\\  \end{array}\right.
		punten=points red,$X1,$D,$X1,$D
		!if $wims_user=supervisor
		    G$n= x1=$X1 $en x2=$X2
		!endif
		GOED$n=$X1	    
	    !else
		nulpunten=2
		wortels$n=\left\{ \begin{array}{c} x_1 = $X1\\ x_2 = $X2 \end{array}\right.
		GOED$n=$X1,$X2
		punten=points red,$X1,$D,$X2,$D
		!if $wims_user=supervisor
		    G$n= x1=$X1 $en x2=$X2
		!endif
	    !endif
	!endif	
    !endif
    opgave$n=$vraag 
    !readproc nivo/plaatje$nivo.proc
 !exit
!endif
!if $R>3
        #(cx-a)(x-b)=0 <=>  cx^2 - ax -bcx +ab =0 <=> cx^2 -ax + d = bcx - ab + d
	# C(x-A)^2 -R <=> Cx^2 -2ACx +A^2C -R
	#Cx^2 -2ACx +A^2C -R = cx^2 -ax +d
	# ==> C=c 
	#-2ACx +A^2C -R = -ax + d
	# ==> -2AC == -a => -2Ac ==-a => A= a/2c	
	# d =A^2C - R <=> d = c(a/2c)^2 - R
	# R = a^2/4c - d
        #vraag= c*(x- a/2c)^2 - (a^2/4c -d) = bcx - ab + d 
        a=!randitem 2,4,6,8,10
        b=!randitem 2,3,4,5,6,7,8
        c=!randitem 2,3,4,5,6,8,9
        d=!randitem 2,3,4,5,6,7
        e=!randitem 5,6,7,8,9,10,11
        r=$[($a^2)/(4*$c) -$d]
        A=!exec pari printtex($a/(2*$c))
        !if $r<0	
	    pm =+
    	    S=!exec pari printtex(-1*(($a^2)/(4*$c) -$d))
	!else
    	    pm=-
	    S=!exec pari printtex(($a^2)/(4*$c) -$d)
	!endif	
	vraag=$c\cdot \left( x- $A \right)^{2} $pm $S =$b \cdot \left( $c\cdot x - $a \right) + $d
	c1=$c*x^2 -$a*x + $d
	c2=$b*$c*x - $a*$b + $d
	extra$n=!exec pari printtex($c1 - ($c2))
	curve1=$c1
	#$c*x^2 -$a*x + $d 
	curve2=curve $color2,$c2
	#$b*$c*x - $a*$b + $d
	!if $b=$[$a/$c]
	    nulpunten=1
	    X1=$b
	    Y1=$[$b*$c*$X1 -$a*$b+$d]
	    GOED$n=$b
	    !if $wims_user=supervisor
		G$n= x=$X1 
	    !endif
	    punten=points red,$X1,$Y1,$X1,$Y1
	!else
	    nulpunten=2
	    X1=$b
	    x1=$X1
    	    XX=!exec pari $a/$c\
    	    printtex($a/$c)
    	    X2=!line 1 of $XX
    	    x2=!line 2 of $XX
    	    Y1=$[$b*$c*$X1 -$a*$b+$d]
    	    Y2=$[$b*$c*$X2 -$a*$b+$d]	
	    wortels$n=\left\{ \begin{array}{c} x_1 = $x1 \\ x_2 = $x2 \end{array}\right.
	    GOED$n=$b,$a/$c
	    punten=points red,$X1,$Y1,$X2,$Y2
	    !if $wims_user=supervisor
		G$n= x1=$X1 $en x2=$X2
	    !endif
	!endif
    opgave$n=$vraag
    extra$n=$vraag \rightarrow $(extra$n) = 0 
    !readproc nivo/plaatje$nivo.proc
 !exit
!endif


