Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Bernadette, Perrin-Riou
slib_title=3Dviewer
slib_example=j87_augmented_sphenocorona,bondcolor=red id=0\
rhombicosidodecahedron,label=false scale=1 height=300 width=300 id=1 bgcolor=blue\
cube,label=false scale=0.8 height=300 width=300 id=2

!exit

:proc
!reset slib_option
slib_data = !item 1 of $wims_read_parm
slib_option= !item -1 of $wims_read_parm

!default slib_cnt=0
slib_cnt= $[$slib_cnt +1]

!for slib_a in label,scale,box,bonds,bgcolor,bondcolor,atomcolor,facecolor,format,width,height,id
  !reset slib_$slib_a
  slib_$slib_a=!getopt $slib_a in $slib_option
!next slib_a


!default slib_label=false
!default slib_bgcolor=white
!default slib_bondcolor=yellow
!default slib_box=true
!default slib_bonds=true
!default slib_scale=0.8
!default slib_width=300
!default slib_height=300
!default slib_id=!randint 1000,3000
slib_out=
slib_cnt_word=!wordcnt $slib_data
!if $slib_cnt_word=1
  slib_data=!record 0 of data/polyedre_off/$slib_data.off
  slib_format=off
!endif
!if $slib_format issametext off
  slib_atomes=$slib_data
!else
  slib_atomes=$slib_data
!endif
slib_atomes=!translate $        $ to $\
$ in $slib_atomes

!default slib_cnt=0
slib_cnt= $[$slib_cnt+1]
slib_fichier=fichier.$slib_cnt

!readproc oef/togetfile.proc $slib_fichier new\
$slib_atomes

!set slib_option=,AA,
!readproc slib/geo3D/off2jmol $slib_atomes,[$slib_option],[ ,$slib_bondcolor,],[0.01,0.01],url distance
!readproc slib/chemistry/jmolshow $(slib_out[2]),300,300,$slib_bgcolor,script "$(slib_out[1])";zoom 180,$slib_id