1 subroutine gstriangle(iopt,x,y,dx,irelief) 2 include 'Parametres.f' 3c 4 ix = origine_x + facteur_en_x*x 5 iy = origine_y + facteur_en_y*y 6 id = nint(facteur_en_x*dx) 7 id2 = nint(facteur_en_x*dx*.70710678) 8 call gsitriangle(iopt,ix,iy,id,id2,irelief) 9 end 10c----------------------------------------------------------------------- 11 subroutine gsrect(x0,x1,y0,y1) 12 call gsmove(x0,y0) 13 call gsline(x1,y0) 14 call gsline(x1,y1) 15 call gsline(x0,y1) 16 call gsline(x0,y0) 17 end 18c----------------------------------------------------------------------- 19 subroutine gsrectangle(iopt,x,y,dx,irelief) 20 include 'Parametres.f' 21c 22 ix = origine_x + facteur_en_x*x 23 iy = origine_y + facteur_en_y*y 24 id = nint(facteur_en_x*dx) 25 id2 = nint(facteur_en_x*dx*.5) 26 if (irelief.ge.0) then 27 ib1 = 15 28 ib2 = 7 29 else 30 ib1 = 7 31 ib2 = 15 32 endif 33 call x11loadcolor(ib1) 34 do i=1,iopt 35 id2n = id2+i-1 36 idn = id+i-1 37 call x11linsrn(ix-idn,iy+id2n,ix+idn,iy+id2n) 38 call x11linsrn(ix+idn,iy+id2n,ix+idn,iy-id2n) 39 enddo 40 call x11loadcolor(ib2) 41 do i=1,iopt 42 id2n = id2+i-1 43 idn = id+i-1 44 call x11linsrn(ix-idn,iy-id2n,ix+idn,iy-id2n) 45 call x11linsrn(ix-idn,iy+id2n,ix-idn,iy-id2n) 46 enddo 47 call x11loadcolor(icoul_courante) 48 end 49c----------------------------------------------------------------------- 50 subroutine gsitriangle(iopt,ix,iy,id,id2,irelief) 51 include 'Parametres.f' 52 if (irelief.ge.0) then 53 ib1 = 15 54 ib2 = 7 55 else 56 ib1 = 7 57 ib2 = 15 58 endif 59 if (iopt.gt.0) then 60 call x11loadcolor(ib1) 61 do i=1,iopt 62 id2n = id2+i-1 63 idn = id+i-1 64 call x11linsrn(ix-id2n,iy+id2n,ix+id2n,iy+id2n) 65 call x11linsrn(ix+id2n,iy+id2n,ix,iy-idn) 66 enddo 67 call x11loadcolor(ib2) 68 do i=1,iopt 69 id2n = id2+i-1 70 idn = id+i-1 71 call x11linsrn(IX,iy-idn,ix-id2n,iy+id2n) 72 enddo 73 elseif(iopt.lt.0) then 74 call x11loadcolor(ib2) 75 do i=1,-iopt 76 id2n = id2+i-1 77 idn = id+i-1 78 call x11linsrn(ix+id2n,iy-id2n,IX-id2n,iy-id2n) 79 call x11linsrn(ix-id2n,iy-id2n,IX,iy+idn) 80 enddo 81 call x11loadcolor(ib1) 82 do i=1,-iopt 83 id2n = id2+i-1 84 idn = id+i-1 85 call x11linsrn(IX,iy+idn,ix+id2n,iy-id2n) 86 enddo 87 endif 88 call x11loadcolor(icoul_courante) 89 end 90