Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_author=Bernadette, Perrin-Riou

slib_title=3Dviewer

slib_example=[14,6;-1.0,-1.0,0;1.0,-1.0,0;1.0,1.0,0;-1.0,1.0,0;1.0,3.0,0;-1.0,3.0,0;-1.0,5.0,0;1.0,5.0,0;-3.0,1.0,0;-3.0,3.0,0;3.0,1.0,0;3.0,3.0,0;-1.0,-3.0,0;1.0,-3.0,0;4,6,5,4,7;4,3,2,4,5;4,8,3,5,9;4,2,10,11,4;4,1,0,12,13;4,0,1,2,3], scale=1 height=400 width=400 id=0 format=off\

j87_augmented_sphenocorona,bondcolor=red id=1\

rhombicosidodecahedron,label=false scale=1 height=400 width=400 bgcolor=blue id=2\

cube,label=false scale=0.8 height=300 width=300 id=3\

!exit

:proc

!reset slib_option

slib_data = !item 1 of $wims_read_parm

slib_data=!declosing $slib_data

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

slib_cnt_item=!itemcnt $slib_data

!if $slib_cnt_word=1 and $slib_cnt_item=1

  slib_data=!record 0 of data/polyedre_off/$slib_data.off

  slib_format=off

!else

  slib_data=!replace internal , by $ $ in $slib_data

!endif

!if $slib_format issametext off

  slib_atomes=$slib_data

  slib_atomes=!translate ; to $\

$ in $slib_atomes

!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,

!!careful confusion with slib_width in off2jmol

!set slib_width_v=$(slib_width)

!set slib_height_v=$(slib_height)

!readproc slib/geo3D/off2jmol $slib_atomes,[$slib_option],[ ,$slib_bondcolor,],[0.01,0.01],url distance

!readproc slib/chemistry/jmolshow $(slib_out[2]),$slib_height_v,$slib_width_v,$slib_bgcolor,script "$(slib_out[1])";zoom 180,$slib_id