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