!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=ThreeD Applet

slib_author=Bernadette, Perrin-Riou

!exit

:proc

!default slib_cnt=0
slib_cnt= $[$slib_cnt +1]
slib_data = !item 1 of $wims_read_parm
slib_option= !item -1 of $wims_read_parm

!for slib_a in scale,width,height
  slib_$slib_a=!getopt $slib_a in $slib_option
!next slib_a

!default slib_scale=0.8
!default slib_width=300
!default slib_height=300

slib_data=!translate $	$ to $\
$ in $slib_data
slib_fichier=fichier.$slib_cnt
slib_fichier=$wims_nowseconds.$slib_cnt

!readproc oef/togetfile.proc $slib_fichier new\
$slib_data
slib_out=$wims_ref_name?session=$session&+cmd=getfile&+special_parm=$slib_fichier

slib_out=<applet codebase=java code=ThreeD.class archive=ThreeD.jar width=$slib_width height=$slib_height>\
<param name=model value="$slib_out">\
<param name=scale value="$slib_scale">\
</applet>


