n=$counter
mathview=0
questiontype=0
# generieke applet
image=0
applet=1
cols=20
rows=1
draw=0
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
var1=!randint 6,12
coord=$empty
zichtbaar=0
onzichtbaar=0
XSIZE=640
YSIZE=480
spel=!record 38 of lang/remarks.$taal
#@ voetbal,volleybal,korfbal,honkbal,softbal,tikkertje
spel=!randitem $spel 
voornaam=!record 40 of lang/remarks.$taal
achternaam=!record 39 of lang/remarks.$taal
voornaam=!randitem $voornaam
achternaam=!randitem $achternaam
keuze=!randitem 1,0

!if $R=1
    X=!shuffle 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
    x0=!randitem 1,2,3,4,5,6,8,9,10,11
    y0=!randitem 8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25
    ## AFBLIJVEN VAN DEZE INSTELLINGEN: STATISCH PLAATJE
    ## xraam=14
    ## yraam1=13
    ## yraam2=23
    ## lijn1 door (x0:y0) (xraam:yraam1)
    ## lijn2 door (x0:y0) (xraam:yraam2)
    xmax=32
    ymax=40
    yr1=13.2
    yr2=23.2
    xr=14
    m1=$[($yr1-$y0)/($xr-$x0)]
    m2=$[($yr2-$y0)/($xr-$x0)]
    #y=mx+q => q=y-mx q=y0-m1*x0
    q1=$[$yr1-(($m1)*$xr)]
    q2=$[$yr2-(($m2)*$xr)]
    lijn1=($m1)*x+($q1)
    lijn2=($m2)*x+($q2)
    # lijn1 is onderste
    marge=0.15
    !for p=1 to $var1
	x$p=!item $p of $X
	y$p=!item $p of $Y
	coord=!append item $(x$p),$(y$p) to $coord
	t1=$[($m1)*$(x$p)+($q1) - $marge]
	t2=$[($m2)*$(x$p)+($q2) + $marge]
	!ifval $(y$p)>$t1 and $t2>$(y$p)
	    # ligt ertussen
	    !increase zichtbaar
	!else
	    !increase onzichtbaar
	!endif
    !next p
    plaatje=transparent white\
    xrange 0,$xmax\
    yrange 0,$ymax\
    copy 0,$ymax,-1,-1,-1,-1,gifs/school.gif\
    linewidth 10\
    points $keuzekleur,$coord\
    linewidth 10\
    point $x0,$y0,$centrumkleur\
    text black,$x0,$y0,huge,$voornaam $achternaam
    
    #linewidth 3\
    #vline 14,0,$keuzekleur\
    #hline 0,23.2,$keuzekleur\
    #hline 0,13.2,$keuzekleur
    
    insdraw_size=$XSIZE,$YSIZE
    !insdraw $plaatje
            
    image$n=transparent white\
    xrange 0,$xmax\
    yrange 0,$ymax\
    linewidth 10\
    points $keuzekleur,$coord\
    linewidth 3\
    plot $restkleur,$lijn1\
    plot $restkleur,$lijn2\
    linewidth 12\
    point $x0,$y0,$centrumkleur\
    text black,$x0,$y0,huge,$voornaam $achternaam
 !goto READY
!endif
!if $R>1
    Hx=!shuffle 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31
    Hy=!shuffle 1,2,3,4,5,6,7,89,11,12,14,16
    Vx=!shuffle 18,19,20,21,22,23,24,25,26,27,29,30,31
    Vy=!shuffle 2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38
    ## AFBLIJVEN VAN DEZE INSTELLINGEN: STATISCH PLAATJE
    #raam1 horizontaal
    xmax=32
    ymax=40
    r1x1=7
    r1x2=12
    r1y=16.5
    #craam2 vertikaal
    r2x=17
    r2y1=26.5
    r2y2=33.4
    x0=!randint 1,16
    !ifval $x0=$r1x1 or $x0=$r1x2
	r1x1=8
    !endif
    y0=!randint 20,38
    # 4 lijnen
    # raam1 lijn1 lijn2
    m1=$[($r1y-$y0)/($r1x1-$x0)]
    m2=$[($r1y-$y0)/($r1x2-$x0)]
    q1=$[$r1y-(($m1)*$r1x1)]
    q2=$[$r1y-(($m2)*$r1x2)]
    lijn1=($m1)*x+($q1)
    lijn2=($m2)*x+($q2)
    # raam2 lijn3 lijn4
    m3=$[($r2y1-$y0)/($r2x-$x0)]
    m4=$[($r2y2-$y0)/($r2x-$x0)]
    q3=$[$r2y1-(($m3)*$r2x)]
    q4=$[$r2y2-(($m4)*$r2x)]
    lijn3=($m3)*x+($q3)
    lijn4=($m4)*x+($q4)
    marge=0.15
    !for p=1 to $var1
	k=!randitem 1,0
	# kiezen tussen punten onder raam1 / rechtsnaast raam2
	!if $k=0
	    x$p=!item $p of $Hx
	    y$p=!item $p of $Hy
	!else
	    x$p=!item $p of $Vx
	    y$p=!item $p of $Vy
	!endif
	coord=!append item $(x$p),$(y$p) to $coord
	h1=$[($(y$p) - ($q1))/($m1) - $marge ]
	h2=$[($(y$p) - ($q2))/($m2) + $marge]
	v1=$[($m3)*$(x$p)+($q3) - $marge]
	v2=$[($m4)*$(x$p)+($q4) + $marge]
	z=0
	!ifval $(y$p)>$v1 and $v2>$(y$p)
	    z=1
	!endif
	!ifval $(x$p)>$h1 and $h2>$(x$p)
	    z=1
	!endif
	!if $z=1
	    !increase zichtbaar
	!else
	    !increase onzichtbaar
	!endif
    !next p
    plaatje=transparent white\
    xrange 0,$xmax\
    yrange 0,$ymax\
    copy 0,$ymax,-1,-1,-1,-1,gifs/school2.gif\
    linewidth 10\
    points $keuzekleur,$coord\
    linewidth 10\
    point $x0,$y0,$centrumkleur\
    text black,$x0,$y0,huge,$voornaam $achternaam
    
    #linewidth 2\
    #curve $restkleur,$lijn1\
    #curve $restkleur,$lijn2\
    #curve $centrumkleur,$lijn3\
    #curve $centrumkleur,$lijn4
    #vline 7,0,$keuzekleur\
    #vline 12,0,$keuzekleur\
    #vline 17,0,$keuzekleur\
    #hline 0,16.5,$keuzekleur\
    #hline 0,26.5,$keuzekleur\
    #hline 0,33.4,$keuzekleur\
    XSIZE=640
    YSIZE=480
    insdraw_size=$XSIZE,$YSIZE
    !insdraw $plaatje
    image$n=transparent white\
    xrange 0,$xmax\
    yrange 0,$ymax\
    linewidth 10\
    points $keuzekleur,$coord\
    linewidth 1\
    plot $restkleur,$lijn1\
    plot $restkleur,$lijn2\
    plot orange,$lijn3\
    plot orange,$lijn4\
    linewidth 12\
    point $x0,$y0,$centrumkleur\
    text black,$x0,$y0,huge,$voornaam $achternaam    
!endif


:READY
sometext=!record 41 of lang/remarks.$taal
#@ zien,niet zien
!if $keuze=1
    answer$n=$zichtbaar
    zien=!item 1 of $sometext
!else
    answer$n=$onzichtbaar
    zien=!item 2 of $sometext
!endif

rr=!record 42 of lang/remarks.$taal
#@ $voornaam kan dus van uit deze positie $(answer$n) kinderen $zien
ss=!record 43 of lang/remarks.$taal
#@ $voornaam $achternaam moet nablijven in de klas<br>En kijkt via het raam naar buiten<br>Daar spelen $var1 kinderen $spel<br>Hoeveel kinderen kan $voornaam <b>$zien</b> van uit <b>deze positie</b> ?

textanswer$n=$rr
question$n=$ss

object$n=<applet codebase="$module_dir/java" archive="noninput.jar" code="noninput.class" width="$XSIZE" height="$YSIZE"><param name="type" value="line"><param name="background" value="$ins_url">$nojava</applet>
