n=$counter
mathview=0
inputs=1
questiontype=4
math=0
cols=35
rows=1
!if $level=0
    R=$counter
!else
    R=$level
!endif
!if $R>0
    showToolBar=true
    showMenuBar=false
    framePossible=false
    checkfile=exos/checkfile4.proc
    customToolBar=" 0 | 40 "
    #@lineaal
    !if $subject=1
	!if $teaching=1
	    ggb=ggb/3punten1.ggb
	!else
	    ggb=ggb/3punten1.nogrid.ggb
	!endif
    !else
	!if $subject=2
	    ggb=ggb/3punten2.ggb
	!else
	    ggb=ggb/3punten2.nogrid.ggb
	!endif
    !endif
    slope=!randint 30,314
    slope=$[$slope/100]
    keuze=!randitem 1,2
    !if $keuze=1
	cor=0
	answer$n=1
	texanswer$n=!record 1 of lang/remarks.$taal
	#@ Ja hoor, de punten A,B,C liggen op &eacute;&eacute;n lijn
    !else
	cor=1
	answer$n=0
	textanswer$n=!record 2 of lang/remarks.$taal
	#@ Nee, de punten A,B,C liggen niet op  &eacute;&eacute;n lijn 
    !endif        
    var5=!record 99 of lang/remarks.$taal
    question$n=!record 57 of lang/remarks.$taal
    inputtext1=!record 4 of lang/remarks.$taal
    xa=$[-1.33*cos($slope)]
    ya=$[-1.33*sin($slope)]
    xb=$[1.33*cos($slope+$cor*0.09)]
    yb=$[1.33*sin($slope+$cor*0.09)]
    xc=$[4*cos($slope)]
    yc=$[4*sin($slope)]
    # precision= 1..2..5
    rc1=$[abs(($ya-$yb)/($xa-$xb))]
    rc2=$[abs(($ya-$yc)/($xa-$xc))]
    rc3=$[abs(($yb-$yc)/($xb-$xc))]
    myvar10=$rc1,$rc2,$rc3
    list_of_things=['line'];
    height=600
    width=800
    appletcommand=\
    document.applets[0].evalCommand("Mx_A=$xa");\
    document.applets[0].evalCommand("Mx_B=$xb");\
    document.applets[0].evalCommand("Mx_C=$xc");\
    document.applets[0].evalCommand("My_A=$ya");\
    document.applets[0].evalCommand("My_B=$yb");\
    document.applets[0].evalCommand("My_C=$yc");\
    document.applets[0].evalCommand("A = (Mx_A,My_A)");\
    document.applets[0].evalCommand("B = (Mx_B,My_B)");\
    document.applets[0].evalCommand("C = (Mx_C,My_C)");
!endif
