# "maken" een cirkeldiagram
# exo7,exo8,exo9
# subject=7 -> percentages
# subject=8 -> hoeken
# subject=9 -> radialen


checkfile=exos/checkfile5.proc
javascript=js/exo7.js
n=$counter
mathview=0
questiontype=7
applet=0
image=0
math=0
XSIZE=100
!if $options < 3
    options=4
!else
    !if $options > 10
	options=4
    !endif
!endif
split=!randitem 2,$[$options-1]

!if $rounding<10
    rounding=100
    !readproc $remarkdir/rounding.$taal
!endif
helptext=$empty
resin=!record 15 of lang/remarks.$taal
thinner=!record 16 of lang/remarks.$taal
ss=!record 17 of lang/remarks.$taal
hh=!record 18 of lang/remarks.$taal
kk=!record 19 of lang/remarks.$taal
var3=!record 20 of lang/remarks.$taal
help=!record 21 of lang/remarks.$taal
param=$empty
!if $subject=7
    hoek=!item 1 of $kk
    factor=$[100*$rounding]
    eenheid=%
    param=<param name=showpercent value="yes">\
    <param name=showdegrees value="no">\
    <param name=showradians value="no">

!else
    !if $subject=8
	eenheid=&deg;
	hoek=!item 2 of $kk
	factor=$[360*$rounding]
	param=<param name=showpercent value="no">\
	<param name=showdegrees value="yes">\
	<param name=showradians value="no">
    !else
	hoek=radialen
	hoek=!item 3 of $kk
	factor=$[2*pi*$rounding]
	param=<param name=showpercent value="no">\
	<param name=showdegrees value="no">\
	<param name=showradians value="yes">
    !endif	
!endif   


resin=!shuffle $resin
thinner=!shuffle $thinner
!set var1=!shuffle blue,red,green,orange,yellow
### #FF0000,#00FF00,#0000FF,#FF00FF,#FFA500,#F433FF,#E0FFFF,#FFFFFF,#FFFF00 
totaal=0
kilos=$empty
var2=$empty
q=$empty
r=$empty
!for p=1 to $options
    k=!item $p of $var1
    hoeveelheid=!randint 10,1000
    totaal=$[$totaal+$hoeveelheid]
    kilos=!append item $hoeveelheid to $kilos
    !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>$hoeveelheid <em>kg</em></td><td><input name="$p" size="10" value="" style=$textareastyle></td><td bgcolor=$k></td><tr> to $q
!next p

header=$empty
!for p=1 to 4
    h=!item $p of $hh
    header=!append line <td>$h</td> to $header
!next p

## let op: param heeft al inhoud
!for p=1 to $options
    k=!item $p of $var1
    g=!item $p of $kilos
    label=!item $p of $var2
    g=$[(round($factor*$g/$totaal))/$rounding]
    answer$n=!append item $g to $(answer$n)
    r=!append line <td>$label</td><td>$g <em>kg</em></td><td><input name="$p" size="10" value="$g $eenheid" style=$textareastyle readonly></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="$k"> to $param
!next 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=showlabel   value="yes">\
<param name=rounding value="$rounding">\
<param name=bgcolor value="$bgcolor">\
<param name=columns value="$options">\
$param\
</applet>\
</td>\
</table>

question$n=<a onmouseover="return escape('$help')">$ss</a>


#<param name=title value="$exotitle">
#<param name=showlabel   value="yes">
#<param name=showpercent value="yes">
#<param name=showdegrees value="no">
#<param name=showradians value="no">
#<param name=rounding value="$rounding">
#<param name=bgcolor value="$bgcolor">
#<param name=columns value="$options">
