Subversion Repositories wimsdev

Rev

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 
slib_example= 5,3,3,,perfect middle\
 6 
slib_example=5,3,3,,perfect middle\
- 
 
 7 
5,3,3,,perfect middle html\
7 
12,2,4,[A,B,C,D],point html
 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=$[-$slib_Sizey-0.5],-0.5
 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 slib_tmp=300
 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 
  !insdraw $slib_out
 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]