Subversion Repositories wimsdev

Rev

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

Rev 11418 Rev 12152
Line 110... Line 110...
110 
!default slib_opty=0
 110 
!default slib_opty=0
111 
!default couleur=red
 111 
!default couleur=red
112 
!default slib_listx=$slib_w
 112 
!default slib_listx=$slib_w
113 
 
 113 
 
114 
!if $slib_cnt <= $slib_cntu and $slib_baton notwordof baton stem
 114 
!if $slib_cnt <= $slib_cntu and $slib_baton notwordof baton stem
115 
   slib_w = !append item $[$(slib_w[$slib_cnt])+1] to $slib_w
 115 
   slib_w = !append item $[$(slib_w[-1])+($(slib_w[-1])-$(slib_w[1]))/10] to $slib_w
116 
   !increase $slib_cnt
 116 
   !increase $slib_cnt
117 
!endif
 117 
!endif
118 
 
 118 
 
119 
!default slib_ra=5
 119 
!default slib_ra=5
120 
slib_listx=!declosing $slib_listx
 120 
slib_listx=!declosing $slib_listx
Line 184... Line 184...
184 
 
 184 
 
185 
!if $slib_opty !=0
 185 
!if $slib_opty !=0
186 
  !for slib_i=1 to $slib_ra
 186 
  !for slib_i=1 to $slib_ra
187 
    slib_ord=$[$slib_pas+$slib_ord]
 187 
    slib_ord=$[$slib_pas+$slib_ord]
188 
    !if $slib_ord <$[$slib_y2+$slib_pas]
 188 
    !if $slib_ord <$[$slib_y2+$slib_pas]
189 
      slib_grad=!append line text black,$[$slib_minx-$slib_d],$[$slib_ord+$slib_pix],small,$slib_ord to $slib_grad
 189 
      slib_grad=!append line text black,$[$slib_minx-0.8*$slib_d],$[$slib_ord+$slib_pix],small,$slib_ord to $slib_grad
190 
      slib_grad=!append line segment $[$slib_minx-$slib_d/10],$slib_ord,$[$slib_minx+$slib_d/10],$slib_ord,grey\
 190 
      slib_grad=!append line segment $[$slib_minx-$slib_d/10],$slib_ord,$[$slib_minx+$slib_d/10],$slib_ord,grey\
191 
vline $slib_minx,0,grey to $slib_grad
 191 
vline $slib_minx,0,grey to $slib_grad
192 
    !endif
 192 
    !endif
193 
  !next slib_i
 193 
  !next slib_i
194 
!endif
 194 
!endif