Subversion Repositories wimsdev

Rev

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

Rev 17173 Rev 17945
Line 24... Line 24...
24 
 
 24 
 
25 
:proc
 25 
:proc
26 
 
 26 
 
27 
slib_parm=
 27 
slib_parm=
28 
slib_out=
 28 
slib_out=
29 
!reset slib_optx, slib_opty, slib_couleur,slib_baton,slib_pdata, slib_grad,slib_listx,slib_listxx, slib_param, slib_parm slib_option, slib_points
 29 
!reset slib_optx, slib_opty, slib_couleur,slib_baton,slib_pdata, slib_grad,slib_listx,\
30 
 
 - 
 
- 
 
 30 
  slib_listxx, slib_param, slib_parm slib_option, slib_points, slib_gradtext
31 
slib_data=!item 1 to 2 of $wims_read_parm
 31 
slib_data=!item 1 to 2 of $wims_read_parm
32 
slib_parm= !item 3 to -1 of $wims_read_parm
 32 
slib_parm= !item 3 to -1 of $wims_read_parm
33 
 
 33 
 
34 
!readproc slib/stat/dataproc $slib_data
 34 
!readproc slib/stat/dataproc $slib_data
35 
!!! slib_x, slib_y comes from slib/stat/dataproc
 35 
!!! slib_x, slib_y comes from slib/stat/dataproc
36 
slib_u= $slib_x
 36 
slib_u= $slib_x
37 
slib_w= $slib_y
 37 
slib_w= $slib_y
38 
 
 38 
 
39 
slib_u=!declosing $slib_u
 39 
slib_u=!declosing $slib_u
40 
slib_cntu=!itemcnt $slib_u
 40 
slib_cntu=!itemcnt $slib_u
41 
slib_w=!declosing $slib_w
 41 
slib_w=!declosing $slib_w
42 
 
 42 
 
43 
!if $slib_w=$empty
 43 
!if $slib_w=$empty
Line 47... Line 47...
47 
slib_cnt=!itemcnt $slib_w
 47 
slib_cnt=!itemcnt $slib_w
48 
!if $slib_cnt=2
 48 
!if $slib_cnt=2
49 
  slib_begin=!item 1 of $slib_w
 49 
  slib_begin=!item 1 of $slib_w
50 
  slib_pas=!item 2 of $slib_w
 50 
  slib_pas=!item 2 of $slib_w
51 
  slib_w=!values $slib_begin+x*$slib_pas for x=0 to $[$slib_cntu+1]
 51 
  slib_w=!values $slib_begin+x*$slib_pas for x=0 to $[$slib_cntu+1]
52 
  slib_cnt=!itemcnt $slib_w
 52 
  slib_cnt=!itemcnt $slib_w
53 
!endif
 53 
!endif
54 
slib_w=!sort numeric item $slib_w
 54 
slib_w=!sort numeric item $slib_w
55 
slib_x1=!item 1 of $slib_w
 55 
slib_x1=!item 1 of $slib_w
56 
slib_x2=!item -1 of $slib_w
 56 
slib_x2=!item -1 of $slib_w
57 
 
 57 
 
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-0.8*$slib_d],$[$slib_ord+$slib_pix],small,$slib_ord to $slib_grad
 189 
      slib_gradtext=!append line text black,$[$slib_minx-0.8*$slib_d],$[$slib_ord+$slib_pix],small,$slib_ord to $slib_gradtext
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 item $[$slib_minx-$slib_d/10],$slib_ord,$[$slib_minx+$slib_d/10],$slib_ord to $slib_grad
191 
vline $slib_minx,0,grey to $slib_grad
 191 
      slib_gradv=vline $slib_minx,0,grey
192 
    !endif
 192 
    !endif
193 
  !next slib_i
 193 
  !next slib_i
194 
!endif
 194 
!endif
195 
!if $slib_optx!=0
 195 
!if $slib_optx!=0
196 
  !if $slib_listxx=$empty
 196 
  !if $slib_listxx=$empty
Line 202... Line 202...
202 
    slib_wj=!item $slib_i of $slib_listxx
 202 
    slib_wj=!item $slib_i of $slib_listxx
203 
 
 203 
 
204 
    !if $slib_baton iswordof baton stem
 204 
    !if $slib_baton iswordof baton stem
205 
      slib_wj=$[$slib_wj+1]
 205 
      slib_wj=$[$slib_wj+1]
206 
    !endif
 206 
    !endif
207 
    slib_grad=!append line text black,$slib_wj,$[$slib_y1-2*$slib_pix],small,$slib_wi to $slib_grad
 207 
    slib_gradtext=!append line text black,$slib_wj,$[$slib_y1-2*$slib_pix],small,$slib_wi to $slib_gradtext
208 
    slib_grad=!append line segment $slib_wj,$[$slib_y1-$slib_pix],$slib_wj,$[$slib_y1+$slib_pix], grey to $slib_grad
 208 
    slib_grad=!append item $slib_wj,$[$slib_y1-$slib_pix],$slib_wj,$[$slib_y1+$slib_pix] to $slib_grad
209 
  !next slib_i
 209 
  !next slib_i
210 
!endif
 210 
!endif
211 
 
 211 
 
212 
slib_pdata=xrange $slib_rangex\
 212 
slib_pdata=xrange $slib_rangex\
213 
yrange $slib_rangey\
 213 
yrange $slib_rangey\
214 
$slib_grad
 214 
$slib_gradv\
- 
 
 215 
segments grey,$slib_grad\
- 
 
 216 
$slib_gradtext
- 
 
 217 
 
215 
!if stair notwordof $slib_baton
 218 
!if stair notwordof $slib_baton
216 
  slib_pdata=$slib_pdata\
 219 
  slib_pdata=$slib_pdata\
217 
lines $slib_couleur
 220 
polyline $slib_couleur
218 
!else
 221 
!else
219 
  slib_points= linewidth 4\
 222 
  slib_points= linewidth 4\
220 
points $slib_couleur
 223 
points $slib_couleur
221 
 !endif
 224 
 !endif
222 
 
 225