# "LEZEN" een cirkeldiagram
checkfile=exos/checkfile5.proc
javascript=js/exo6.js
n=$counter
mathview=0
questiontype=7
applet=0
image=0
math=0
XSIZE=50
!if $options < 3
    options=4
!else
    !if $options > 7
	options=4
    !endif
!endif
keuze=!randitem 1,2,3
!if $rounding<10
    rounding=100
    !readproc $remarkdir/rounding.$taal
!endif
!set var1=!shuffle blue,red,green,orange,yellow,pink,cyan,magenta,grey,white
### #FF0000,#00FF00,#0000FF,#FF00FF,#FFA500,#F433FF,#E0FFFF,#FFFFFF,#FFFF00 
var4=$empty
var2=$empty
q=$empty
r=$empty

!if $keuze=1
    split=!randitem 2,$[$options-1]
    resin=!record 15 of lang/remarks.$taal
    thinner=!record 16 of lang/remarks.$taal
    hh=!record 23 of lang/remarks.$taal
    kk=!record 19 of lang/remarks.$taal
    var3=!record 20 of lang/remarks.$taal
    ss=!record 22 of lang/remarks.$taal
    hoek=!item 1 of $kk
    resin=!shuffle $resin
    thinner=!shuffle $thinner
    totaal=0
    var5=kg
    !for p=1 to $options
	kleur=!item $p of $var1
	hoeveelheid=!randint 100,1000
	totaal=$[$totaal+$hoeveelheid]
	var4=!append item $hoeveelheid to $var4
	!if $p<$split
	    label=!item $p of $resin
	!else
	    label=!item $p of $thinner
	!endif
	var2=!append item $label to $var2
	q=!append line <td>$label</td><td><input name="$p" size="10" value="" style=$textareastyle> %</td><td style="background-color:$kleur; width:30px;"></td><tr> to $q
    !next p
    header=$empty
    !for p=1 to 3
	h=!item $p of $hh
	header=!append line <td>$h</td> to $header
    !next p
!else
    var5=stuks
    k=!randitem 1,2,3
    # 24=auto 25=motor 26=fiets
    # 28=Auto's,Motorfietsen,Fietsen,Percentage,kleur
    ding1=!item $k of 24,25,26
    autos=!record $ding1 of lang/remarks.$taal
    ding2=!record 28 of lang/remarks.$taal
    omschrijving=!item $k of $ding2
    perc=!item 4 of $ding2
    kl=!item 5 of $ding2
    header=<td>$omschrijving</td><td>$perc</td><td>$kl</td>
    autos=!shuffle $autos
    var2=!append item $autos to $var2
    totaal=0
    q=$empty
    !for p=1 to $options
	automerk=!item $p of $autos
	hoeveelheid=!randint 100,500
	var4=!append item $hoeveelheid to $var4
	totaal=$[$totaal + $hoeveelheid]
	kleur=!item $p of $var1
	q=!append line <td>$automerk</td><td><input name="$p" size="10" value="" style=$textareastyle> %</td><td style="background-color:$kleur; width:30px;"></td><tr> to $q
    !next p  
    ss=!record 27 of lang/remarks.$taal
!endif

param=$empty
!for p=1 to $options
    kleur=!item $p of $var1
    g=!item $p of $var4
    label=!item $p of $var2
    g=$[(round(100*$rounding*$g/$totaal))/$rounding]
    answer$n=!append item $g to $(answer$n)
    r=!append line <td>$label</td><td><input name="$p" size="10" value="$g %" style=$textareastyle readonly></td><th style="background-color:$kleur; width:30px;"></td><tr> to $r
    param=!append line <param name="Plabel$p" value="$label"> to $param
    param=!append line <param name="Pvalue$p" value="$g"> to $param
    param=!append line <param name="Pcolor$p" value="$kleur"> to $param
!next p
    
question$n=$ss<p>
exotext=<form name="myform1"><table border="1" cellpadding="5" $paperbg>$header<tr>$q</table></form>
textanswer$n=<table><td><table border="1" cellpadding="5" $paperbg>$header<tr>$r</table></td><td>\
<applet id="cirkeldiagram" name="cirkeldiagram" codebase="$appletdir" archive="2D_pie.jar" code="PieChart.class" width="300" height="200" >\
<param name=title value="$questionnumber $n">\
<param name=unit value="kg">\
<param name=showinput value="no">\
<param name=showdegrees value="no">\
<param name=showradians value="no">\
<param name=rounding value="$rounding">\
<param name=showlabel   value="yes">\
<param name=showpercent value="yes">\
<param name=bgcolor value="$bgcolor">\
<param name=columns value="$options">\
<param name=rounding value="$rounding">\
$param\
</applet></td></table>
 
!exit

