Subversion Repositories wimsdev

Rev

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

Rev 12960 Rev 13594
Line 1... Line 1...
1 
!if  $wims_read_parm!=slib_header
 1 
!if  $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Georges, Khaznadar
 5 
slib_author=Georges, Khaznadar
6 
 
 6 
 
7 
slib_example= ,,,,,,,,,0,0,1.2,1.5,2.4,3.2\
 7 
slib_example= ,,,,,,,,,0,0,1.2,1.5,2.4,3.2\
Line 100... Line 100...
100 
  !! of 1, 2 or 5.
 100 
  !! of 1, 2 or 5.
101 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
 101 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
102 
  slib_logint=$[floor($slib_log)]
 102 
  slib_logint=$[floor($slib_log)]
103 
  slib_logmant=$[$slib_log-$slib_logint]
 103 
  slib_logmant=$[$slib_log-$slib_logint]
104 
  !if $slib_logmant > $[log10(5)]
 104 
  !if $slib_logmant > $[log10(5)]
105 
     slib_ys=1e$[$slib_logint+1]
 105 
    slib_ys=1e$[$slib_logint+1]
106 
  !else
 106 
  !else
107 
    !if $slib_logmant > $[log10(2)]
 107 
    !if $slib_logmant > $[log10(2)]
108 
      slib_ys=5e$slib_logint
 108 
      slib_ys=5e$slib_logint
109 
    !else
 109 
    !else
110 
      slib_ys=2e$slib_logint
 110 
      slib_ys=2e$slib_logint
Line 158... Line 158...
158 
 
 158 
 
159 
slib_val=$[-$slib_xo*$slib_xs]
 159 
slib_val=$[-$slib_xo*$slib_xs]
160 
slib_dessin=$slib_dessin\
 160 
slib_dessin=$slib_dessin\
161 
linewidth 1
 161 
linewidth 1
162 
!if ($slib_grad=2 or $slib_grad=1)
 162 
!if ($slib_grad=2 or $slib_grad=1)
163 
!for slib_x from 0 to  10*$slib_xd step 10
 163 
  !for slib_x from 0 to  10*$slib_xd step 10
164 
 slib_dessin=$slib_dessin\
 164 
    slib_dessin=$slib_dessin\
165 
 text blue,$[$slib_x+1],$[10*$slib_yo-1],medium,$slib_val
 165 
      text blue,$[$slib_x+1],$[10*$slib_yo-1],medium,$slib_val
166 
 slib_val=$[$slib_val+$slib_xs]
 166 
    slib_val=$[$slib_val+$slib_xs]
167 
!next slib_x
 167 
  !next slib_x
168 
!if $slib_labx != $empty
 168 
  !if $slib_labx != $empty
169 
  slib_dessin=$slib_dessin\
 169 
    slib_dessin=$slib_dessin\
170 
  text blue,$[$slib_x-20],$[10*$slib_yo-6],medium,$slib_labx
 170 
    text blue,$[$slib_x-20],$[10*$slib_yo-6],medium,$slib_labx
171 
!endif
 171 
  !endif
172 
!endif
 172 
!endif
173 
 
 173 
 
174 
!! axe_y
 174 
!! axe_y
175 
slib_dessin=$slib_dessin\
 175 
slib_dessin=$slib_dessin\
176 
linewidth 3\
 176 
linewidth 3\
177 
vline $[10*$slib_xo],0, $slib_grey\
 177 
vline $[10*$slib_xo],0, $slib_grey\
178 
segment $[10*$slib_xo-1],$[10*$slib_yd-3],$[10*$slib_xo],$[10*$slib_yd-1], $slib_grey\
 178 
segment $[10*$slib_xo-1],$[10*$slib_yd-3],$[10*$slib_xo],$[10*$slib_yd-1], $slib_grey\
179 
segment $[10*$slib_xo+1],$[10*$slib_yd-3],$[10*$slib_xo],$[10*$slib_yd-1], $slib_grey\
 179 
segment $[10*$slib_xo+1],$[10*$slib_yd-3],$[10*$slib_xo],$[10*$slib_yd-1], $slib_grey\
180 
parallel $[10*$slib_xo+1],0,$[10*$slib_xo-1], 0, 0, 10, $slib_yd+1, $slib_grey
 180 
parallel $[10*$slib_xo+1],0,$[10*$slib_xo-1], 0, 0, 10, $slib_yd+1, $slib_grey
181 
 
 181 
 
182 
slib_val=$[-$slib_yo*$slib_ys]
 182 
slib_val=$[-$slib_yo*$slib_ys]
183 
slib_dessin=$slib_dessin\
 183 
slib_dessin=$slib_dessin\
184 
linewidth 1
 184 
linewidth 1
185 
!if ($slib_grad=3 or $slib_grad=1)
 185 
!if ($slib_grad=3 or $slib_grad=1)
186 
!for slib_y from 0 to  10*$slib_yd step 10
 186 
  !for slib_y from 0 to  10*$slib_yd step 10
187 
 slib_dessin=$slib_dessin\
 187 
    slib_dessin=$slib_dessin\
188 
 text blue,$[10*$slib_xo+1],$[$slib_y-1],medium,$slib_val
 188 
    text blue,$[10*$slib_xo+1],$[$slib_y-1],medium,$slib_val
189 
 slib_val=$[$slib_val+$slib_ys]
 189 
    slib_val=$[$slib_val+$slib_ys]
190 
!next slib_y
 190 
  !next slib_y
191 
!if $slib_laby != $empty
 191 
  !if $slib_laby != $empty
192 
  slib_dessin=$slib_dessin\
 192 
    slib_dessin=$slib_dessin\
193 
  text blue,$[10*$slib_xo-9],$[$slib_y-10],medium,$slib_laby
 193 
    text blue,$[10*$slib_xo-9],$[$slib_y-10],medium,$slib_laby
194 
!endif
 194 
  !endif
195 
!endif
 195 
!endif
196 
 
 196 
 
197 
!!!!!!!!!!!!!!!!! end grid !!!!!!!!!!!!!!!!!!!!!!!!!
 197 
!!!!!!!!!!!!!!!!! end grid !!!!!!!!!!!!!!!!!!!!!!!!!
198 
 
 198 
 
199 
slib_i=0
 199 
slib_i=0
200 
!for slib_xy in $slib_point
 200 
!for slib_xy in $slib_point
201 
!if $slib_i=0
 201 
  !if $slib_i=0
202 
slib_i=1
 202 
    slib_i=1
203 
slib_x=$[10*$slib_xy/$slib_xs]
 203 
    slib_x=$[10*$slib_xy/$slib_xs]
204 
!goto continue
 204 
    !goto continue
205 
!endif
 205 
  !endif
206 
!if $slib_i=1
 206 
  !if $slib_i=1
207 
slib_i=0
 207 
    slib_i=0
208 
slib_y=$[10*$slib_xy/$slib_ys]
 208 
    slib_y=$[10*$slib_xy/$slib_ys]
209 
!if $slib_formdot=0
 209 
    !if $slib_formdot=0
210 
slib_x1=$[10*$slib_xo+$slib_x-0.6]
 210 
      slib_x1=$[10*$slib_xo+$slib_x-0.6]
211 
slib_x2=$[10*$slib_xo+$slib_x+0.6]
 211 
      slib_x2=$[10*$slib_xo+$slib_x+0.6]
212 
slib_y1=$[10*$slib_yo+$slib_y-0.6]
 212 
      slib_y1=$[10*$slib_yo+$slib_y-0.6]
213 
slib_y2=$[10*$slib_yo+$slib_y+0.6]
 213 
      slib_y2=$[10*$slib_yo+$slib_y+0.6]
214 
slib_dessin=$slib_dessin\
 214 
      slib_dessin=$slib_dessin\
215 
linewidth 2\
 215 
      linewidth 2\
216 
segment $slib_x1,$slib_y1,$slib_x2,$slib_y2,$slib_dc\
 216 
      segment $slib_x1,$slib_y1,$slib_x2,$slib_y2,$slib_dc\
217 
segment $slib_x2,$slib_y1,$slib_x1,$slib_y2,$slib_dc
 217 
      segment $slib_x2,$slib_y1,$slib_x1,$slib_y2,$slib_dc
218 
!endif
 218 
    !endif
219 
!if $slib_formdot=1
 219 
    !if $slib_formdot=1
220 
slib_x1=$[10*$slib_xo+$slib_x-1]
 220 
      slib_x1=$[10*$slib_xo+$slib_x-1]
221 
slib_x2=$[10*$slib_xo+$slib_x+1]
 221 
      slib_x2=$[10*$slib_xo+$slib_x+1]
222 
slib_x3=$[10*$slib_xo+$slib_x]
 222 
      slib_x3=$[10*$slib_xo+$slib_x]
223 
slib_y1=$[10*$slib_yo+$slib_y]
 223 
      slib_y1=$[10*$slib_yo+$slib_y]
224 
slib_y2=$[10*$slib_yo+$slib_y+1]
 224 
      slib_y2=$[10*$slib_yo+$slib_y+1]
225 
slib_y3=$[10*$slib_yo+$slib_y-1]
 225 
      slib_y3=$[10*$slib_yo+$slib_y-1]
226 
slib_dessin=$slib_dessin\
 226 
      slib_dessin=$slib_dessin\
227 
linewidth 2\
 227 
      linewidth 2\
228 
segment $slib_x1,$slib_y1,$slib_x2,$slib_y1,$slib_dc\
 228 
      segment $slib_x1,$slib_y1,$slib_x2,$slib_y1,$slib_dc\
229 
segment $slib_x3,$slib_y2,$slib_x3,$slib_y3,$slib_dc
 229 
      segment $slib_x3,$slib_y2,$slib_x3,$slib_y3,$slib_dc
230 
!endif
 230 
    !endif
231 
!if $slib_formdot=2
 231 
    !if $slib_formdot=2
232 
 slib_dessin=$slib_dessin\
 232 
      slib_dessin=$slib_dessin\
233 
  linewidth 1\
 233 
      linewidth 1\
234 
  circle $slib_xo+$slib_x,$slib_yo+$slib_y,6,$slib_dc
 234 
      circle $slib_xo+$slib_x,$slib_yo+$slib_y,6,$slib_dc
235 
!endif
 235 
    !endif
236 
!endif
 236 
  !endif
237 
:continue
 237 
:continue
238 
!next slib_xy
 238 
!next slib_xy
239 
 
 239 
 
240 
slib_out= $slib_dessin
 240 
slib_out= $slib_dessin