Subversion Repositories wimsdev

Rev

Rev 17083 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17083 Rev 18185
Line 22... Line 22...
22 
!distribute items $wims_read_parm into slib_data,slib_fas,slib_color,slib_width,slib_option
 22 
!distribute items $wims_read_parm into slib_data,slib_fas,slib_color,slib_width,slib_option
23 
slib_color=!declosing $slib_color
 23 
slib_color=!declosing $slib_color
24 
!if $slib_color=$empty
 24 
!if $slib_color=$empty
25 
  !set slib_tmp2=!getopt bondcolor in $slib_option
 25 
  !set slib_tmp2=!getopt bondcolor in $slib_option
26 
  !set slib_tmp3=!getopt facecolor in $slib_option
 26 
  !set slib_tmp3=!getopt facecolor in $slib_option
27 
  !set slib_color=,$slib_tmp2,$slib_tmp2
 27 
  !set slib_color=,$slib_tmp2,$slib_tmp3
28 
!endif
 28 
!endif
29 
slib_fas=!declosing $slib_fas
 29 
slib_fas=!declosing $slib_fas
30 
slib_button=!declosing $slib_button
 30 
slib_button=!declosing $slib_button
31 
slib_data=!declosing $slib_data
 31 
slib_data=!declosing $slib_data
32 
slib_data=!replace internal ; by $\
 32 
slib_data=!replace internal ; by $\
Line 102... Line 102...
102 
  !next
 102 
  !next
103 
!endif
 103 
!endif
104 
 
 104 
 
105 
slib_A_cnt=!linecnt $slib_arete
 105 
slib_A_cnt=!linecnt $slib_arete
106 
!!********** code de dessin des sommets
 106 
!!********** code de dessin des sommets
107 
 
 - 
 
- 
 
 107 
slib_color_1=!declosing $(slib_color[1])
- 
 
 108 
!!!je suppose qu'il n'y en a au plus qu'une couleur
108 
!if $(slib_color[1])!=$empty
 109 
!if $(slib_color_1)!=$empty
109 
  slib_color_sommet=color atoms $(slib_color[1])
 110 
  slib_color_sommet=color atoms $(slib_color_1)
110 
!endif
 111 
!endif
- 
 
 112 
slib_color_2=!declosing $(slib_color[2])
- 
 
 113 
!!!je suppose qu'il n'y en a qu'une couleur
111 
!if $(slib_color[2])!=$empty
 114 
!if $slib_color_2!=$empty
112 
  slib_color_arete=$(slib_color[2])
 115 
  slib_color_arete=$(slib_color_2[1])
113 
!endif
 116 
!endif
114 
!if $(slib_color[3])!=$empty
 117 
!if $(slib_color[3])!=$empty
- 
 
 118 
  slib_color_3=!declosing $(slib_color[3])
115 
  slib_color_face=color $(slib_color[3])
 119 
  slib_color_face=$(slib_color_3)
116 
!endif
 120 
!endif
117 
!if $(slib_color[4])!=$empty
 121 
!if $(slib_color[4])!=$empty
118 
  slib_color_Barete=color atoms $(slib_color[4])
 122 
  slib_color_Barete=color atoms $(slib_color[4])
119 
!endif
 123 
!endif
120 
!if $(slib_color[5])!=$empty
 124 
!if $(slib_color[5])!=$empty
Line 194... Line 198...
194 
!for slib_f = 1 to $slib_F_cnt
 198 
!for slib_f = 1 to $slib_F_cnt
195 
  slib_plan=!line $slib_f of $slib_face
 199 
  slib_plan=!line $slib_f of $slib_face
196 
  slib_triangle_=!words2items $slib_plan
 200 
  slib_triangle_=!words2items $slib_plan
197 
  slib_triangle=!item 1 to $(slib_triangle_[1])+1 of $slib_triangle_
 201 
  slib_triangle=!item 1 to $(slib_triangle_[1])+1 of $slib_triangle_
198 
  slib_triangle_cnt=!itemcnt $slib_triangle
 202 
  slib_triangle_cnt=!itemcnt $slib_triangle
- 
 
 203 
  slib_facecolor_tag=!item $(slib_triangle_[1])+2 of $slib_triangle_
199 
  !if $slib_ff!=0
 204 
  !if $slib_ff!=0
200 
    !for slib_j=3 to $[$slib_triangle_cnt-1]
 205 
    !for slib_j=3 to $[$slib_triangle_cnt-1]
- 
 
 206 
      !reset slib_tmp
- 
 
 207 
      !if $(slib_color_face[$slib_facecolor_tag+1])!=
- 
 
 208 
        !set slib_tmp=color $(slib_color_face[$slib_facecolor_tag+1])
- 
 
 209 
      !endif
201 
      slib_Plan=!append line draw uu$cnt $slib_color_face $(slib_color2[3]) ({$(slib_triangle[2])}) ({$(slib_triangle[$slib_j])}) ({$(slib_triangle[$slib_j+1])});\
 210 
      slib_Plan=!append line draw uu$cnt $(slib_tmp) $(slib_color2[3]) ({$(slib_triangle[2])}) ({$(slib_triangle[$slib_j])}) ({$(slib_triangle[$slib_j+1])});\
202 
        to $slib_Plan
 211 
        to $slib_Plan
203 
      !increase cnt
 212 
      !increase cnt
204 
    !next
 213 
    !next
205 
  !endif
 214 
  !endif
206 
  slib_centerface=[0,0,0]
 215 
  slib_centerface=[0,0,0]