bewerking=bewerking1.proc
PLAATJE=1
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
percentage=1


    
totaal=!recordcnt nivo/inhoud.obj
keus=!randint 1,$totaal
object$n=!record $keus of nivo/inhoud.obj
# formaat: v1.v2.nl1.en1,nl2.en2
# v1 hoeveelheid kleur1
# v2 hoeveelheid kleur2
# nl1,nl2=nederlandse kleur
# en1,en2=engelse kleur
keus=!replace internal . by , in $(object$n)
v1=!item 1 of $keus
v2=!item 2 of $keus
vt=$[$v1+$v2]
!if $taal=nl
    s=!randitem 1,2
    kleur1=!item 3 of $keus
    kleur2=!item 5 of $keus
    vraagkleur=$(kleur$s)
    anderekleur=$(kleur$[3-$s])
    !if $R>1
	decimaal=decimalen
    !else
	decimaal=decimaal
    !endif        
!else    
    s=!randitem 1,2
    kleur1=!item 4 of $keus
    kleur2=!item 6 of $keus
    vraagkleur=$(kleur$s)
    anderekleur=$(kleur$[3-$s])
    !if $R>1
	decimaal=decimal
    !else
	decimaal=decimals
    !endif        
!endif
GOED$n=$[100*$(v$s)/$vt]
afrondingsfactor=$[10^$R]
goed$n=$[(round($afrondingsfactor*$(GOED$n)))/$afrondingsfactor]

!if $taal=nl
    applet$n=<applet codebase="$appletdir" archive="ThreeD.jar"  code="XYZApp.class" width="600" height="400">\
    <param name=model value=$module_dir/obj/$(object$n)>$geenjava</applet>
    
    somtekst$n=$voornaam, bekijk de volgende applet.<br>\
    Er zijn <b>$vraagkleur</b> en <b>$anderekleur</b> balletjes (atomen?)<br>\
    Bepaal hoeveel <b>procent</b> van de balletjes een <b>$vraagkleur kleur</b> hebben.<br>\
    <small><em>Geef je antwoord -indien nodig- afgerond op $R $decimaal nauwkeurig.<em></small>    
    opgave$n=$empty

    antwoord$n=Er waren <b>$(v$s) $vraagkleur</b> atomen.<br>\
    In't totaal waren er <b>$(v$s) + $(v$[3-$s]) = $vt atomen</b><br>\
    Het percentage $vraagkleur balletjes is dus <b>100 &times; $(v$s) &divide; $v1 = $(GOED$n) %</b><br>\
    en -eventueel afgerond op $R $decimaal- $(goed$n) %.\
    <p align="center"><applet codebase="$appletdir" archive="ThreeD.jar"  code="XYZApp.class" width="500" height="300">\
    <param name=model value=$module_dir/obj/$(object$n)>$geenjava</applet>
    nivo_title=Hoeveel procent van de "ruimte" is $kleur1 gekleurd?<br>Tellen en uitrekenen.	
    !if $HINT=1
	hint=draai de applet zo dat je de $vraagkleur atomen gemakkelijk kan tellen...
    !endif
!else
    applet$n=<applet codebase="$appletdir" archive="ThreeD.jar"  code="XYZApp.class" width="600" height="400">\
    <param name=model value=$module_dir/obj/$(object$n)>$geenjava</applet>
    
    somtekst$n=$voornaam, examine the next applet.<br>\
    There are <b>$vraagkleur</b> and <b>$anderekleur</b> marbles (atoms?)<br>\
    Determine the <b>percentage $vraagkleur </b> marbles.<br>\
    <small><em>Give your answer -if it's a broken number- on $R $decimaal accurate.<em></small>    
    opgave$n=$empty

    antwoord$n=There are $(v$s) $vraagkleur atoms.<br>\
    In total the amount of marbles is <b> $(v$s) + $(v$[3-$s]) = $vt</b> <br>\
    The percentage $vraagkleur balls is <b>100 &times; $(v$s) &divide; $v1 = $(GOED$n) % </b><br>\
    and -rounded off on $R $decimaal- $(goed$n) %.\
    <p align="center"><applet codebase="$appletdir" archive="ThreeD.jar"  code="XYZApp.class" width="500" height="300">\
    <param name=model value=$module_dir/obj/$(object$n)>$geenjava</applet>
    nivo_title=Determine the percentage of $kleur1 space balls ?<br>Count en calculate.	
    !if $HINT=1
	hint=turn the applet until you can easily count the $vraagkleur atoms...
    !endif
    
!endif

# the copyright of this ThreeD.class & XYZApp.class : Sun microsystems
# I don't distribute it with this module 
# It's included in the java distribution
# you can use my copy thru http://84.83.123.204/applets/ThreeD.jar (a jar with all classes)
# source: http://84.83.123.204/applets/ThreeD.tar.gz 
# or directly from sun
# or http://javaboutique.internet.com/ThreeD/
# or http://javaboutique.internet.com/XYZApp/

# the wavefront-like objectfiles must be on the same server as the applet !!!
# place the applet in a suitable dir, exported as appletdir (see var.init) 