Subversion Repositories wimsdev

Rev

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

Rev 14850 Rev 16944
Line 2... Line 2...
2 
  !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Bernadette, Perrin-Riou
 5 
slib_author=Bernadette, Perrin-Riou
6 
slib_title=3Dviewer
 6 
slib_title=3Dviewer
- 
 
 7 
 
7 
slib_example=j87_augmented_sphenocorona,bondcolor=red id=0\
 8 
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\
- 
 
 9 
j87_augmented_sphenocorona,bondcolor=red id=1\
8 
rhombicosidodecahedron,label=false scale=1 height=300 width=300 id=1 bgcolor=blue\
 10 
rhombicosidodecahedron,label=false scale=1 height=400 width=400 bgcolor=blue id=2\
9 
cube,label=false scale=0.8 height=300 width=300 id=2
 11 
cube,label=false scale=0.8 height=300 width=300 id=3\
10 
 
 12 
 
11 
!exit
 13 
!exit
12 
 
 14 
 
13 
:proc
 15 
:proc
14 
!reset slib_option
 16 
!reset slib_option
15 
slib_data = !item 1 of $wims_read_parm
 17 
slib_data = !item 1 of $wims_read_parm
- 
 
 18 
slib_data=!declosing $slib_data
16 
slib_option= !item -1 of $wims_read_parm
 19 
slib_option= !item -1 of $wims_read_parm
17 
 
 20 
 
18 
!default slib_cnt=0
 21 
!default slib_cnt=0
19 
slib_cnt= $[$slib_cnt +1]
 22 
slib_cnt= $[$slib_cnt +1]
20 
 
 23 
 
21 
!for slib_a in label,scale,box,bonds,bgcolor,bondcolor,atomcolor,facecolor,format,width,height,id
 24 
!for slib_a in label,scale,box,bonds,bgcolor,bondcolor,atomcolor,facecolor,format,width,height,id
22 
  !reset slib_$slib_a
 25 
  !reset slib_$slib_a
23 
  slib_$slib_a=!getopt $slib_a in $slib_option
 26 
  slib_$slib_a=!getopt $slib_a in $slib_option
24 
!next slib_a
 27 
!next slib_a
25 
 
 - 
 
26 
 
 - 
 
27 
!default slib_label=false
 28 
!default slib_label=false
28 
!default slib_bgcolor=white
 29 
!default slib_bgcolor=white
29 
!default slib_bondcolor=yellow
 30 
!default slib_bondcolor=yellow
30 
!default slib_box=true
 31 
!default slib_box=true
31 
!default slib_bonds=true
 32 
!default slib_bonds=true
Line 33... Line 34...
33 
!default slib_width=300
 34 
!default slib_width=300
34 
!default slib_height=300
 35 
!default slib_height=300
35 
!default slib_id=!randint 1000,3000
 36 
!default slib_id=!randint 1000,3000
36 
slib_out=
 37 
slib_out=
37 
slib_cnt_word=!wordcnt $slib_data
 38 
slib_cnt_word=!wordcnt $slib_data
- 
 
 39 
slib_cnt_item=!itemcnt $slib_data
38 
!if $slib_cnt_word=1
 40 
!if $slib_cnt_word=1 and $slib_cnt_item=1
39 
  slib_data=!record 0 of data/polyedre_off/$slib_data.off
 41 
  slib_data=!record 0 of data/polyedre_off/$slib_data.off
40 
  slib_format=off
 42 
  slib_format=off
- 
 
 43 
!else
- 
 
 44 
  slib_data=!replace internal , by $ $ in $slib_data
41 
!endif
 45 
!endif
42 
!if $slib_format issametext off
 46 
!if $slib_format issametext off
43 
  slib_atomes=$slib_data
 47 
  slib_atomes=$slib_data
- 
 
 48 
  slib_atomes=!translate ; to $\
- 
 
 49 
$ in $slib_atomes
44 
!else
 50 
!else
45 
  slib_atomes=$slib_data
 51 
  slib_atomes=$slib_data
46 
!endif
 52 
!endif
47 
slib_atomes=!translate $	$ to $\
 53 
slib_atomes=!translate $	$ to $\
48 
$ in $slib_atomes
 54 
$ in $slib_atomes
Line 53... Line 59...
53 
 
 59 
 
54 
!readproc oef/togetfile.proc $slib_fichier new\
 60 
!readproc oef/togetfile.proc $slib_fichier new\
55 
$slib_atomes
 61 
$slib_atomes
56 
 
 62 
 
57 
!set slib_option=,AA,
 63 
!set slib_option=,AA,
- 
 
 64 
!!careful confusion with slib_width in off2jmol
- 
 
 65 
!set slib_width_v=$(slib_width)
- 
 
 66 
!set slib_height_v=$(slib_height)
58 
!readproc slib/geo3D/off2jmol $slib_atomes,[$slib_option],[ ,$slib_bondcolor,],[0.01,0.01],url distance
 67 
!readproc slib/geo3D/off2jmol $slib_atomes,[$slib_option],[ ,$slib_bondcolor,],[0.01,0.01],url distance
59 
!readproc slib/chemistry/jmolshow $(slib_out[2]),300,300,$slib_bgcolor,script "$(slib_out[1])";zoom 180,$slib_id
 68 
!readproc slib/chemistry/jmolshow $(slib_out[2]),$slib_height_v,$slib_width_v,$slib_bgcolor,script "$(slib_out[1])";zoom 180,$slib_id