Subversion Repositories wimsdev

Rev

Rev 17002 | Rev 17079 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17002 Rev 17003
Line 18... Line 18...
18 
:proc
 18 
:proc
19 
!reset slib_option
 19 
!reset slib_option
20 
slib_data = !item 1 of $wims_read_parm
 20 
slib_data = !item 1 of $wims_read_parm
21 
slib_data=!declosing $slib_data
 21 
slib_data=!declosing $slib_data
22 
slib_option= !item -1 of $wims_read_parm
 22 
slib_option= !item -1 of $wims_read_parm
23 
 
 - 
 
24 
!default slib_cnt=0
 23 
!default slib_cnt=0
25 
slib_cnt= $[$slib_cnt +1]
 24 
slib_cnt= $[$slib_cnt +1]
26 
 
 25 
 
27 
!for slib_a in label,scale,box,bonds,bgcolor,bondcolor,atomcolor,facecolor,format,width,height,id, show
 26 
!for slib_a in label,scale,box,bonds,bgcolor,bondcolor,atomcolor,facecolor,format,width,height,id, show
28 
  !reset slib_$slib_a
 27 
  !reset slib_$slib_a
Line 41... Line 40...
41 
slib_cnt_word=!wordcnt $slib_data
 40 
slib_cnt_word=!wordcnt $slib_data
42 
slib_cnt_item=!itemcnt $slib_data
 41 
slib_cnt_item=!itemcnt $slib_data
43 
!if $slib_cnt_word=1 and $slib_cnt_item=1
 42 
!if $slib_cnt_word=1 and $slib_cnt_item=1
44 
  slib_data=!record 0 of data/polyedre_off/$slib_data.off
 43 
  slib_data=!record 0 of data/polyedre_off/$slib_data.off
45 
  slib_format=off
 44 
  slib_format=off
46 
!else
 45 
!else
47 
  slib_data=!replace internal , by $ $ in $slib_data
 46 
  slib_data=!replace internal , by $ $ in $slib_data
48 
!endif
 47 
!endif
49 
!if $slib_format issametext off
 48 
!if $slib_format issametext off
50 
  slib_atomes=$slib_data
 49 
  slib_atomes=$slib_data
51 
  slib_atomes=!translate ; to $\
 50 
  slib_atomes=!translate ; to $\
52 
$ in $slib_atomes
 51 
$ in $slib_atomes
53 
!else
 52 
!else
54 
  slib_atomes=$slib_data
 53 
  slib_atomes=$slib_data
55 
!endif
 54 
!endif
56 
slib_atomes=!translate $	$ to $\
 55 
slib_atomes=!translate $	$ to $\
57 
$ in $slib_atomes
 56 
$ in $slib_atomes
58 
 
 57 
 
59 
!default slib_cnt=0
 58 
!default slib_cnt=0
60 
slib_cnt= $[$slib_cnt+1]
 59 
slib_cnt= $[$slib_cnt+1]
61 
slib_fichier=fichier.$slib_cnt
 60 
slib_fichier=fichier.$slib_cnt
62 
 
 61 
 
63 
!readproc oef/togetfile.proc $slib_fichier new\
 62 
!readproc oef/togetfile.proc $slib_fichier new\
Line 66... Line 65...
66 
!default slib_show=,AA,
 65 
!default slib_show=,AA,
67 
!!careful confusion with slib_width in off2jmol
 66 
!!careful confusion with slib_width in off2jmol
68 
!set slib_width_v=$(slib_width)
 67 
!set slib_width_v=$(slib_width)
69 
!set slib_height_v=$(slib_height)
 68 
!set slib_height_v=$(slib_height)
70 
!readproc slib/geo3D/off2jmol $slib_atomes,[$slib_show],[ ,$slib_bondcolor,],[0.01,0.01],url distance
 69 
!readproc slib/geo3D/off2jmol $slib_atomes,[$slib_show],[ ,$slib_bondcolor,],[0.01,0.01],url distance
- 
 
 70 
!set slib_outoff=$slib_out
71 
!readproc slib/chemistry/jmolshow $(slib_out[2]),$slib_height_v,$slib_width_v,$slib_bgcolor,script "$(slib_out[1])";zoom 100,$slib_id
 71 
!readproc slib/chemistry/jmolshow $(slib_outoff[2]),$slib_height_v,$slib_width_v,$slib_bgcolor,script "$(slib_outoff[1])";zoom 130,$slib_id
- 
 
 72 
 
72 
$slib_out
 73 
$slib_out