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]