1      SUBROUTINE GSBND(X0,X1,Y0,Y1)
2      INCLUDE 'Parametres.f'
3      data iquat / 4 /
4c
5      if (ipostscript.eq.1) then
6        ix0 = nint(origine_x + facteur_en_x*X0)
7        ix1 = nint(origine_x + facteur_en_x*X1)
8        iy0 = nint(origine_y + facteur_en_y*Y0)
9        iy1 = nint(origine_y + facteur_en_y*Y1)
10        ix_clip_origine = min(ix0,ix1)
11        iy_clip_origine = min(iy0,iy1)
12        rect_clip(0,0) = ix0
13        rect_clip(1,0) = iy0
14        rect_clip(0,1) = rect_clip(0,0)
15        rect_clip(1,1) = iy1
16        rect_clip(0,2) = ix1
17        rect_clip(1,2) = rect_clip(1,1)
18        rect_clip(0,3) = rect_clip(0,2)
19        rect_clip(1,3) = rect_clip(1,0)
20        call x11clip(rect_clip,iquat,ix_clip_origine,iy_clip_origine)
21      else
22        if (sauve_graphic) return
23        x0_clip = x0
24        x1_clip = x1
25        y0_clip = y0
26        y1_clip = y1
27        dxclip = x1_clip-x0_clip
28        dyclip = y1_clip-y0_clip
29        x0_clip2 = x0_clip - dxclip*.02
30        x1_clip2 = x1_clip + dxclip*.02
31        y0_clip2 = y0_clip - dyclip*.02
32        y1_clip2 = y1_clip + dyclip*.02
33        xx1 = origine_x + facteur_en_x*X0
34        yy1 = origine_y + facteur_en_y*Y0
35        xx2 = origine_x + facteur_en_x*X1
36        yy2 = origine_y + facteur_en_y*Y1
37        call ecriseconome(ilaser_file,xx1,0,'bidon')
38        call ecriseconome(ilaser_file,xx2,1,'bidon')
39        call ecriseconome(ilaser_file,yy1,1,'bidon')
40        call ecriseconome(ilaser_file,yy2,4,' hdc')
41      endif
42      end
43