Subversion Repositories wimsdev

Rev

Rev 9755 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9755 Rev 13592
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_parms=9\
 6 
slib_parms=9\
7 
,f1\
 7 
,f1\
Line 58... Line 58...
58 
slib_img = !declosing $slib_img
 58 
slib_img = !declosing $slib_img
59 
 
 59 
 
60 
slib_img2 =
 60 
slib_img2 =
61 
slib_img_cnt =!itemcnt $slib_img
 61 
slib_img_cnt =!itemcnt $slib_img
62 
!for slib_i = 2 to $slib_img_cnt
 62 
!for slib_i = 2 to $slib_img_cnt
63 
 slib_im = !item $slib_i of $slib_img
 63 
  slib_im = !item $slib_i of $slib_img
64 
 slib_im = !exec pari mattranspose($slib_im)
 64 
  slib_im = !exec pari mattranspose($slib_im)
65 
 slib_im =!declosing $slib_im
 65 
  slib_im =!declosing $slib_im
66 
 slib_im = polyline $slib_color, $slib_im
 66 
  slib_im = polyline $slib_color, $slib_im
67 
 slib_img2 = !append line $slib_im to $slib_img2
 67 
  slib_img2 = !append line $slib_im to $slib_img2
68 
!next slib_i
 68 
!next slib_i
69 
 
 69 
 
70 
slib_img = !translate internal ; to $\
 70 
slib_img = !translate internal ; to $\
71 
$ in $slib_img2
 71 
$ in $slib_img2
72 
slib_ARROW = !translate internal ; to $\
 72 
slib_ARROW = !translate internal ; to $\
Line 74... Line 74...
74 
slib_ARROW = !replace internal arrow, by arrow $    in $slib_ARROW
 74 
slib_ARROW = !replace internal arrow, by arrow $    in $slib_ARROW
75 
 
 75 
 
76 
slib_out = $slib_img
 76 
slib_out = $slib_img
77 
 
 77 
 
78 
!if $slib_ARROW_WIDTH != 0
 78 
!if $slib_ARROW_WIDTH != 0
79 
 slib_out =$slib_out\
 79 
  slib_out =$slib_out\
80 
 $slib_ARROW
 80 
  $slib_ARROW
81 
!endif
 81 
!endif
82 
slib_out=xrange $slib_XMIN, $slib_XMAX\
 82 
slib_out=xrange $slib_XMIN, $slib_XMAX\
83 
yrange $slib_YMIN, $slib_YMAX\
 83 
yrange $slib_YMIN, $slib_YMAX\
84 
hline 0,0,black\
 84 
hline 0,0,black\
85 
vline 0,0,black\
 85 
vline 0,0,black\
Line 89... Line 89...
89 
  insdraw_size=200,200
 89 
  insdraw_size=200,200
90 
  !insdraw $slib_out
 90 
  !insdraw $slib_out
91 
  slib_out=$ins_url
 91 
  slib_out=$ins_url
92 
  !if html iswordof $slib_option
 92 
  !if html iswordof $slib_option
93 
    slib_out=<img src="$ins_url" alt="" />
 93 
    slib_out=<img src="$ins_url" alt="" />
94 
 !else
 94 
  !else
95 
    slib_out=$slib_out,$insdraw_size
 95 
    slib_out=$slib_out,$insdraw_size
96 
 !endif
 96 
  !endif
97 
!endif
 97 
!endif