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 |
|
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 |