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