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