SUBROUTINE GSBND(X0,X1,Y0,Y1)
      INCLUDE 'Parametres.f'
      data iquat / 4 /
c
      if (ipostscript.eq.1) then
        ix0 = nint(origine_x + facteur_en_x*X0)
        ix1 = nint(origine_x + facteur_en_x*X1)
        iy0 = nint(origine_y + facteur_en_y*Y0)
        iy1 = nint(origine_y + facteur_en_y*Y1)
        ix_clip_origine = min(ix0,ix1)
        iy_clip_origine = min(iy0,iy1)
        rect_clip(0,0) = ix0
        rect_clip(1,0) = iy0
        rect_clip(0,1) = rect_clip(0,0)
        rect_clip(1,1) = iy1
        rect_clip(0,2) = ix1
        rect_clip(1,2) = rect_clip(1,1)
        rect_clip(0,3) = rect_clip(0,2)
        rect_clip(1,3) = rect_clip(1,0)
        call x11clip(rect_clip,iquat,ix_clip_origine,iy_clip_origine)
      else
        if (sauve_graphic) return
        x0_clip = x0
        x1_clip = x1
        y0_clip = y0
        y1_clip = y1
        dxclip = x1_clip-x0_clip
        dyclip = y1_clip-y0_clip
        x0_clip2 = x0_clip - dxclip*.02
        x1_clip2 = x1_clip + dxclip*.02
        y0_clip2 = y0_clip - dyclip*.02
        y1_clip2 = y1_clip + dyclip*.02
        xx1 = origine_x + facteur_en_x*X0
        yy1 = origine_y + facteur_en_y*Y0
        xx2 = origine_x + facteur_en_x*X1
        yy2 = origine_y + facteur_en_y*Y1
        call ecriseconome(ilaser_file,xx1,0,'bidon')
        call ecriseconome(ilaser_file,xx2,1,'bidon')
        call ecriseconome(ilaser_file,yy1,1,'bidon')
        call ecriseconome(ilaser_file,yy2,4,' hdc')
      endif
      end