Rev 17788 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 17788 | Rev 17790 | ||
---|---|---|---|
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 | slib_author=Bernadette, Perrin-Riou |
4 | slib_author=Bernadette, Perrin-Riou |
5 | 5 | ||
6 |
|
6 | slib_example=5,3,3,,perfect middle\ |
- | 7 | 5,3,3,,perfect middle html\ |
|
7 | 12,2,4,[A,B,C,D],point |
8 | 12,2,4,[A,B,C,D],point html\ |
- | 9 | 70,2,10,,point html |
|
8 | 10 | ||
9 | !exit |
11 | !exit |
10 | 12 | ||
11 | :proc |
13 | :proc |
12 | 14 | ||
Line 90... | Line 92... | ||
90 | !endif |
92 | !endif |
91 | !next slib_k |
93 | !next slib_k |
92 | 94 | ||
93 | #Trace du dessin |
95 | #Trace du dessin |
94 | !set slib_xrange=$[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2] |
96 | !set slib_xrange=$[-$slib_s*$slib_width1/2],$[$slib_s*$slib_width1/2] |
95 | !set slib_yrange=$[- |
97 | !set slib_yrange=$[-$slib_sizey-0.5],-0.5 |
96 | slib_dessin=xrange $slib_xrange\ |
98 | slib_dessin=xrange $slib_xrange\ |
97 | yrange $slib_yrange\ |
99 | yrange $slib_yrange\ |
98 | linewidth 2 |
100 | linewidth 2 |
99 | slib_cnt=!linecnt $slib_G |
101 | slib_cnt=!linecnt $slib_G |
100 | 102 | ||
Line 127... | Line 129... | ||
127 | !next slib_k |
129 | !next slib_k |
128 | 130 | ||
129 | slib_out=$slib_dessin |
131 | slib_out=$slib_dessin |
130 | 132 | ||
131 | !if url iswordof $slib_option or html iswordof $slib_option |
133 | !if url iswordof $slib_option or html iswordof $slib_option |
132 | !set |
134 | !set slib_tmp=400 |
133 | !set insdraw_size=$slib_tmp,$[($(slib_yrange[2])-($(slib_yrange[1])))/($(slib_xrange[2])-($(slib_xrange[1])))*$slib_tmp*$slib_height] |
135 | !set insdraw_size=$slib_tmp,$[($(slib_yrange[2])-($(slib_yrange[1])))/($(slib_xrange[2])-($(slib_xrange[1])))*$slib_tmp*$slib_height] |
- | 136 | !set insdraw_size=$[min(1500,($(slib_xrange[2])-($(slib_xrange[1])))/($(slib_yrange[2])-($(slib_yrange[1])))*$slib_tmp)],$slib_tmp |
|
- | 137 | ||
134 |
|
138 | !insdraw $slib_out |
135 | slib_out=$ins_url |
139 | slib_out=$ins_url |
136 | !if html iswordof $slib_option |
140 | !if html iswordof $slib_option |
137 | slib_out=<img src="$ins_url" alt=""> |
141 | slib_out=<img src="$ins_url" alt=""> |
138 | $insdraw_size |
- | |
139 | $[($(slib_yrange[2])-($(slib_yrange[1])))/($(slib_xrange[2])-($(slib_xrange[1])))], slib_sizey=$slib_sizey, slib_Sizey=$slib_Sizey, slib_h=$slib_h,size=$insdraw_size,width=$slib_width1\ |
- | |
140 | $slib_dessin |
- | |
141 | !else |
142 | !else |
142 | slib_out=$slib_out,[$slib_G],[$slib_position],[$slib_milieu],$insdraw_size |
143 | slib_out=$slib_out,[$slib_G],[$slib_position],[$slib_milieu],$insdraw_size |
143 | !endif |
144 | !endif |
144 | !else |
145 | !else |
145 | slib_out=[$slib_dessin],[$slib_G],[$slib_position],[$slib_milieu] |
146 | slib_out=[$slib_dessin],[$slib_G],[$slib_position],[$slib_milieu] |