PLAATJE=1
bewerking=bewerking1.proc
n=$teller
hokje=$empty
omlijning=$empty
percentage=1
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
        
!if $taal=nl
    nivo_title=Hoeveel procent is gekleurd?<br>Tellen en uitrekenen	
    !if $HINT=1
	hint=eerst het totale oppervlak uitrekenen<br>\
	Stel het plaatje is 5 hokjes breed en 6 hokjes hoog<br>\
	In't totaal zijn er dan dus 5 &times; 6 = 30 hokjes.<br>\
	Stel we tellen 9 blauwe hokjes<br>\
	Het percentage blauw is dan dus: 100% &times; 9 &divide; 30 = 100% &times; 0.3 = 30%<br>\
	Snap je , $voornaam ?	
    !endif
    COLORS=white,red,green,blue,orange,yellow,purple,pink,lightgreen,cyan,grey,maroon
    KLEUREN=wit,rood,groen,blauw,oranje,geel,paars,roze,lichtgroen,helderblauw,grijs,bruin
!else
    nivo_title=What percentage is colored <br>Count and calculate	
    !if $HINT=1
	hint=First You should calculate the total area<br>\
	Suppose the surface is 5 boxes wide and 6 boxes high<br>\
	In total the surface is  5 &times; 6 = 30 boxes.<br>\
	Let's say we can count 9 blue boxes<br>\
	the percentage blue surface then will be: 100% &times; 9 &divide; 30 = 100% &times; 0.3 = 30%<br>\
	Get it , $voornaam ?
    !endif
    COLORS=white,red,green,blue,orange,yellow,purple,pink,lightgreen,cyan,grey,maroon
    KLEUREN=white,red,green,blue,orange,yellow,purple,pink,lightgreen,cyan,grey,brown
!endif    

hokje=$empty
omlijning=$empty
aantal_kleuren=!itemcnt $COLORS

!if $R=1
    r=3
    m=!randint 1,$[$aantal_kleuren - $r ]
    COLORS=!item $m to $[$m + $r] of $COLORS
    KLEUREN=!item $m to $[$m + $r] of $KLEUREN
    goede=!randint 1,$r
    goede_kleur=!item $goede of $KLEUREN
    good_color =!item $goede of $COLORS
!endif
!if $R=2
    r=3
    m=!randint 1,$[$aantal_kleuren - $r ]
    COLORS=!item $m to $[$m + $r] of $COLORS
    KLEUREN=!item $m to $[$m + $r] of $KLEUREN
    goede=!randint 1,$r
    goede_kleur=!item $goede of $KLEUREN
    good_color =!item $goede of $COLORS    
!endif
!if $R=3
    r=2
    m=!randint 1,$[$aantal_kleuren - $r]
    COLORS=!item $m to $[$m + $r] of $COLORS
    KLEUREN=!item $m to $[$m + $r] of $KLEUREN
    goede=!randint 1,$r
    goede_kleur=!item $goede of $KLEUREN
    good_color =!item $goede of $COLORS
!endif
!if $R>3
    goede=!randint 1,$aantal_kleuren
    goede_kleur=!item $goede of $KLEUREN
    good_color =!item $goede of $COLORS
!endif

breedte =!randint 5,10
hoogte  =!randint 3,8
hit=0

!for q=1 to $hoogte
    !for p=1 to $breedte
	kleur=!randitem $COLORS
	hokje=!append line frect $p,$q,$[$p+1],$[$q+1],$kleur to $hokje
	omlijning=!append line rect $p,$q,$[$p+1],$[$q+1],black to $omlijning	
	!if $kleur=$good_color
	    !increase hit
	    !if $kleurenblind=1
		hokje=!append line linewidth 20 to $hokje
		hokje=!append line point $[$p+0.5],$[$q+0.5],black to $hokje
	    !endif
	!endif	
    !next p
!next q	

afrondingsfactor=$[10^$R]
!readproc $authordir/afronding.$taal
GOED$n=$[100*$hit/($breedte*$hoogte)]    
goed$n=$[(round($afrondingsfactor*$(GOED$n)))/$afrondingsfactor]
    
plaatje$n=400,400\
xrange 1,$[$breedte+1]\
yrange 1,$[$hoogte+1]\
$hokje\
linewidth 2\
$omlijning
    
!if $taal=nl
    !if $kleurenblind =0
        somtekst$n=$voornaam, bekijk het volgende plaatje goed.<br>Hoeveel procent van het plaatje is $goede_kleur gekleurd.
	opgave$n=$voornaam, bekijk het volgende plaatje goed.<br>Hoeveel procent van het plaatje is $goede_kleur gekleurd.<br>\
	<table bgcolor=$good_color cellpadding=15><th>zoiets als deze kleur</th></table><br>\

        Je  moet  je antwoord  afronden tot op $R decimaal nauwkeurig...<br>\
	<font size=-1>dat doe ik niet om je te pesten, maar het is gewoon onderdeel van de test...</font><br>
	
	antwoord$n=Er waren $hit $goede_kleur gekleurde vierkantjes in het plaatje.<br>\
	in het totaal waren er: hoogte &times; breedte = $hoogte &times; $breedte = $[$hoogte*$breedte] vierkantjes<br>\
	Dus het percentage $goede_kleur = 100 &times; $hit/$[$hoogte*$breedte] = $(GOED$n) % = $(goed$n) %
    !else
	somtekst$n=$voornaam, bekijk het volgende plaatje goed<br>en bereken voor hoeveel procent het plaatje "gestipt" is.
	opgave$n=$voornaam, bekijk de volgende plaatje goed<br>en bereken voor hoeveel procent het plaatje "gestipt" is<br>\
        Dus uit hoeveel procent gestipte vierkantjes het plaatje is opgebouwd.<br>\
	Je  moet  je antwoord  afronden tot op $R decimaal nauwkeurig...<br>\
	<font size=-1>dat doe ik niet om je te pesten, maar het is gewoon onderdeel van de test...</font><br>
	antwoord$n=Er waren $hit gestipte  vierkantjes in het plaatje.<br>\
	in het totaal waren er: hoogte &times; breedte = $hoogte &times; $breedte = $[$hoogte*$breedte] vierkantjes<br>\
	Dus het percentage gestipte vierkantjes = 100 &times; $hit/$[$hoogte*$breedte] = $(GOED$n) % = $(goed$n) %
    !endif
!else
    !if $kleurenblind =0
        somtekst$n=$voornaam, examine the illustration.<br>\
	What percentage of the image is colored in $goede_kleur ?
	opgave$n=What percentage of the image is colored in $goede_kleur ?<br>\
	<table bgcolor=$good_color cellpadding=15><th>more or less this color</th></table><br>\
        You <b>must</b> round off the answer at $R decimal(s) accurate ...<br>\
	<font size=-1>that's just part of this test ;)</font><br>
	
	antwoord$n=In the image were $hit $goede_kleur squares.<br>\
	The total amount of squares was: height &times; width = $hoogte &times; $breedte = $[$hoogte*$breedte] squares<br>\
	Thus the percentage $goede_kleur squares = 100 &times; $hit/$[$hoogte*$breedte] = $(GOED$n) % = $(goed$n) %
    !else
        somtekst$n=$voornaam, examine the illustration.<br>\
	What percentage of the image has dotted squares ?
	opgave$n=What percentage of the image is dotted ?<br>\
        You <b>must</b> round off the answer at $R decimal(s) accurate ...<br>\
	<font size=-1>that's just part of this test ;)</font><br>
	
	antwoord$n=In the image were $hit dotted squares.<br>\
	The total amount of squares was: height &times; width = $hoogte &times; $breedte = $[$hoogte*$breedte] squares<br>\
	Thus the percentage dotted squares = 100 &times; $hit/$[$hoogte*$breedte] = $(GOED$n) % = $(goed$n) %	
    !endif

!endif

!exit