n=$counter
mathview=0
questiontype=0
# generieke applet
image=0
applet=1
cols=25
rows=1
draw=1
plot=0
math=0
inputs=1
checkfile=exos/checkfile7.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if $teaching=0
    helptext=$empty
    exotext=$empty
!else
    helptext=!record 63 of $remarkdir/commonremarks.$taal
    exotext=$empty
!endif
keuzekleur=blue
centrumkleur=red
restkleur=green
punten=!randint 6,15
dorpnamen=!record 33 of lang/remarks.$taal
dorpnamen=!shuffle $dorpnamen
X=!shuffle 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,30
Y=!shuffle 2,4,6,8,10,12,14,16,18,20,22,24,26,28,30
coord=$empty
tekst=$empty

!if $R>0
    a=0
    !for p=1 to $punten
	!increase a
	x$p=!item $p of $X
	y$p=!item $p of $Y
	dorp$p=!item $p of $dorpnamen
	dorpen=!append item $(dorp$p)&nbsp&nbsp; to $dorpen
	!if $a=5
	    dorpen=!append line <br> to $dorpen
	    a=0
	!endif
	coord=!append item $(x$p),$(y$p) to $coord
    !next p
    afstanden=$empty
    max=0
    min=100
    nmin=1
    nmax=1
    lijst=$empty
    !for p=2 to $punten
	d$p=$[sqrt(($(x$p)-$x1)^2+($(y$p)-$y1)^2)]
	lijst=!append line $(d$p)<br> to $lijst
	!if $(d$p) > $max
	    max=$(d$p)
	    nmax=$p
	!endif
	!if $(d$p) < $min
	    min=$(d$p)
	    nmin=$p
	!endif
    !next p
    keuze=!randint $[$nmin+1],$[$nmax-1]
    !if $keuze=1
	# niet het zelfde dorp: 0 is geen amtwoord 
	keuze=4
    !endif
    keuzedorp=$(dorp$keuze)
    meer=0
    minder=0
    D=$(d$keuze)
    meerdorpen=$empty
    minderdorpen=$empty
    !for p=2 to $punten
	!if $(d$p) >$D
	    !increase meer
	    !if $p != $keuze
		meerdorpen=!append item $(dorp$p) to $meerdorpen
	    !endif
	!endif
	!if $(d$p) <$D
	    !increase minder
	    !if $p != $keuze
		minderdorpen=!append item $(dorp$p) to $minderdorpen
	    !endif
	!endif
	!if $p != $keuze
	    tekst=!append line text $restkleur,$(x$p),$(y$p),huge,$(dorp$p) to $tekst
	!endif
    !next p
    tekst=!append line text $keuzekleur,$(x$keuze),$(y$keuze),huge,$(dorp$keuze) to $tekst
    tekst=!append line text $centrumkleur,$x1,$y1,huge,$dorp1 to $tekst
    v=!randitem 34,35
    !if $v=34
	# dichterbij = $minder
	answer$n=$minder
	dezedorpen=$minderdorpen
	# !record 34 of lang/remarks.$taal
	#@ hoeveel dorpen er dichter bij <font size=+1 color=$centrumkleur>$dorp1</font> 
	liggen dan <font size=+1 color=$keuzekleur>$(dorp$keuze)</font>
    !else
	answer$n=$meer
	dezedorpen=$meerdorpen
	# !record 35 of lang/remarks.$taal
	#@ hoeveel dorpen er verder weg liggen van <font size=+1 color=$centrumkleur>$dorp1</font>
	 dan <font size=+1 color=$keuzekleur>$(dorp$keuze)</font>  
    !endif
    plaatje=transparent white\
    xrange -15,40\
    yrange -5,35\
    copy -15,40,-1,-1,-1,-1,gifs/blanko.nl.gif\
    linewidth 8\
    points $restkleur,$coord\
    linewidth 10\
    point $(x$keuze),$(y$keuze),$keuzekleur\
    point $x1,$y1,$centrumkleur\
    $tekst
    
    XSIZE=640
    YSIZE=480
    insdraw_size=$XSIZE,$YSIZE
    !insdraw $plaatje
    image$n=transparent white\
    xrange 0,35\
    yrange 0,35\
    linewidth 8\
    points $restkleur,$coord\
    linewidth 10\
    point $(x$keuze),$(y$keuze),$keuzekleur\
    point $x1,$y1,$centrumkleur\
    $tekst\
    linewidth 1\
    ellipse $x1,$y1,$[2*$D],$[2*$D],$restkleur
    
    object$n=<applet codebase="$module_dir/java" archive="noninput.jar" code="noninput.class" width="$XSIZE" height="$YSIZE"><param name="type" value="circle"><param name="background" value="$ins_url">$nojava</applet>
    s2=!record $v of lang/remarks.$taal
    s1=!record 36 of lang/remarks.$taal
    #@ Je ziet hier een "landkaartje" met $punten dorpen<ul>$dorpen</ul><br>Bepaal met je linker muisknop (dat is je "passer")<br> 
    question$n=$s1 $s2
    rr=!record 37 of lang/remarks.$taal
    #@ Dat waren dus $(answer$n) dorpen.<br>En wel: $dezedorpen
    textanswer$n=$rr
    var1=$punten
!endif    

