n=$counter
mathview=0
questiontype=0
# generieke applet
image=0
applet=1
cols=25
rows=1
draw=0
plot=0
math=0
inputs=1
checkfile=exos/checkfile9.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
coord=$empty

!if $R>0    
    XSIZE=640
    YSIZE=480
    voornaam=!record 40 of lang/remarks.$taal
    achternaam=!record 39 of lang/remarks.$taal
    sometext=!record 44 of lang/remarks.$taal
    #@ vroeg op de ochtend; (de zon komt op),laat op de middag (de zon gaat onder),ergens in de ochtend (de zon staat al vrij hoog),ergens in de middag (de zon staat nog vrij hoog)
    voornaam=!randitem $voornaam
    achternaam=!randitem $achternaam
    xmax=32
    ymax=40
    #### de lange jan ####
    x1=16.1
    y1=6
    x2=$x1
    y2=!randint 10,15
    var1=16
    #maximale schaduwlengte BIJ DEZE INSTELLINGEN
    
    #### de zon  ####
    zonnebaan=-0.15*(x-16.1)^2 +($ymax -1)
    # afblijven
    x0=!randint 55,265
    x0=$[$x0/10]
    !if $x0>$[$x1-1] and $x0<$[$x1+1]
	x0=5.5
    !endif
    y0=$[-0.15*($x0-16.1)^2 + ($ymax -1)]
    
    !if $y0<30
	!if $x0<$x1
	    tijd=!item 1 of $sometext
	    #vroeg op de ochtend; (de zon komt op)
	    zonnekleur=orange
	!else
	    tijd=!item 2 of $sometext
	    #laat op de middag (de zon gaat onder)
	    zonnekleur=red
	!endif
    !else
	zonnekleur=yellow
	!if $x0<$x1
	    tijd=!item 3 of $sometext
	    #ergens in de ochtend (de zon staat al vrij hoog)
	!else
	    tijd=!item 4 of $sometext
	    #ergens in de middag (de zon staat nog vrij hoog) 
	!endif
    !endif	
    #	lijn gaat door x0,y0 x2,y2
    m=$[($y0-$y2)/($x0-$x2)]
    q=$[$y2-(($m)*$x2)]
    lijn=($m)*x+($q)
    
    #### snijpunt zonnestraal met de lijn y=$y1 (y1=6)
    x=$[($y1-($q))/($m)]
    dx=$[abs($x1 - ($x))]
    answer$n=$[(round(4*$dx))/4]
    var2=0.5
    var3=0.8
    plaatje=transparent white\
    xrange 0,$xmax\
    yrange 0,$ymax\
    copy 0,$ymax,-1,-1,-1,-1,gifs/boom.gif\
    linewidth 40\
    point $x0,$y0,$zonnekleur\
    linewidth 3\
    point $x0,$y0,black\
    segment $x1,$y1,$x1,$y2,red\
    text black,$x1+0.3,$y2,huge,$voornaam $achternaam

#    linewidth 2\
#    curve red,$zonnebaan\
#    linewidth 1\
#    curve green,$lijn\
    


#    vline 1.1,0,$keuzekleur\
#    vline 6.1,0,$keuzekleur\
#    vline 11.1,0,$keuzekleur\
#    vline 16.1,0,$keuzekleur\
#    vline 21.1,0,$keuzekleur\
#    vline 26.1,0,$keuzekleur\
#    vline 31.1,0,$keuzekleur\

    XSIZE=640
    YSIZE=520
    insdraw_size=$XSIZE,$YSIZE
    !insdraw $plaatje
    image$n=$empty
    # geen plaatje bij antwoord
    rr=!record 45 of lang/remarks.$taal
    #@ De zon werpt een schaduw van ongeveer $(answer$n) meter.
    ss=!record 46 of lang/remarks.$taal
    #@ $voornaam $achternaam staat in een wei<br>Het is $tijd<br>Meet de lengte van de schaduw<br>Probeer het antwoord zo precies mogelijk af te lezen.<br><small><em>het centrum van de zon is een klein zwart puntje</em></small>
    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>
 !exit
!endif
