Subversion Repositories wimsdev

Rev

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

Rev 13594 Rev 16998
Line 9... Line 9...
9
!exit
9
!exit
10
 
10
 
11
:proc
11
:proc
12
 
12
 
13
slib_data = !item 1 of $wims_read_parm
13
slib_data = !item 1 of $wims_read_parm
14
slib_option= !item -1 of  $wims_read_parm
14
slib_option= !item -1 of $wims_read_parm
15
 
15
 
16
slib_atom=
16
slib_atom=
17
!default slib_cnt=0
17
!default slib_cnt=0
18
slib_cnt= $[$slib_cnt +1]
18
slib_cnt= $[$slib_cnt +1]
19
 
19
 
Line 57... Line 57...
57
       slib_atom=!trim $slib_atom
57
       slib_atom=!trim $slib_atom
58
       slib_atom1=!lookup $slib_atom in slib/chemistry/atom
58
       slib_atom1=!lookup $slib_atom in slib/chemistry/atom
59
       !if $slib_atom1!=$empty
59
       !if $slib_atom1!=$empty
60
         slib_atom2=!item 4,3 of $slib_atom1
60
         slib_atom2=!item 4,3 of $slib_atom1
61
         slib_atom2 = !items2words $slib_atom2
61
         slib_atom2 = !items2words $slib_atom2
62
         slib_Atom=!append line ATOM $slib_atom $slib_atom2  to $slib_Atom
62
         slib_Atom=!append line ATOM $slib_atom $slib_atom2 to $slib_Atom
63
       !endif
63
       !endif
64
     !endif
64
     !endif
65
     !if $slib_nom issametext COMPND
65
     !if $slib_nom issametext COMPND
66
       slib_nommolecule=!words 2 of $slib_l
66
       slib_nommolecule=!words 2 of $slib_l
67
     !endif
67
     !endif
Line 101... Line 101...
101
 classid="java:LatticeViewer.class" width="$slib_width" height="$slib_height">\
101
 classid="java:LatticeViewer.class" width="$slib_width" height="$slib_height">\
102
<param name="java_codebase" value="java/Lattice" />\
102
<param name="java_codebase" value="java/Lattice" />\
103
<param name="java_code" value="LatticeViewer.class" />\
103
<param name="java_code" value="LatticeViewer.class" />\
104
<param name="java_archive" value="Lattice.jar" />\
104
<param name="java_archive" value="Lattice.jar" />\
105
<param name="model" value="$slib_out" />\
105
<param name="model" value="$slib_out" />\
106
<param name="label"    value="$slib_label" />\
106
<param name="label" value="$slib_label" />\
107
<param name="scale"    value="$slib_scale" />\
107
<param name="scale" value="$slib_scale" />\
108
<param name="box"      value="$slib_box" />\
108
<param name="box" value="$slib_box" />\
109
<param name="bonds"    value="$slib_bonds" />\
109
<param name="bonds" value="$slib_bonds" />\
110
<param name="bgcolor"  value="$slib_bgcolor" />\
110
<param name="bgcolor" value="$slib_bgcolor" />\
111
<param name="bondcolor" value="$slib_bondcolor" />\
111
<param name="bondcolor" value="$slib_bondcolor" />\
112
</object>
112
</object>