pig.f

Programs in the irregular grid design package described in this manual are used to carry out five ma

      Interface
      subroutine WPigMainInit[C] ()
      end

      subroutine WPigMain[C](func1, func2, func3, func4)
	   external func1 [reference]
	   external func2 [reference]
	   external func3 [reference]
	   external func4 [reference]
	   integer  func1
	   integer  func2
	   integer  func3
	   integer  func4
      end

      subroutine WPigSetWorldCoordinates[C] (x1,x2,y1,y2)
	   real x1        
	   real x2
	   real y1
	   real y2
      end

      subroutine WPigGetWorldCoordinates[C] (x1,x2,y1,y2)
	   real x1 [reference]
	   real x2 [reference]
	   real y1 [reference]
	   real y2 [reference]
      end

      subroutine WPigSetProfileCoordinates[C]
     +          (x1,x2,y1,y2)
	   real x1        
	   real x2
	   real y1
	   real y2
      end

      subroutine WPigGetProfileCoordinates[C]
     +          (x1,x2,y1,y2)
	   real x1 [reference]
	   real x2 [reference]
	   real y1 [reference]
	   real y2 [reference]
      end

      subroutine WPigSetLineColour[C] (LineColour)
	   integer LineColour
      end

      subroutine WPigSetColourPixel[C] (LineColour, pixel)
	   integer LineColour
	   integer pixel
      end

      subroutine WPigGetColourPixel[C] (LineColour, pixel)
	   integer LineColour
	   integer pixel [reference]
      end

      subroutine WPigSetRGBColour[C] (LineColour, R, G, B)
	   integer LineColour
	   integer R
	   integer G
	   integer B
      end

      subroutine WPigGetRGBColour[C] (LineColour, R, G, B)
	   integer LineColour
	   integer R [reference]
	   integer G [reference]
	   integer B [reference]
      end

      subroutine WPigSetLineWidth[C] (LineWidth)
	   real LineWidth
      end

      subroutine WPigSetSymbolColour[C] (SymbolColour)
	   integer SymbolColour
      end

      subroutine WPigSetSymbolNumber[C] (SymbolNumber)
	   integer SymbolNumber
      end

      subroutine WPigSetSymbolSize[C] (SymbolSize)
	   real SymbolSize
      end

      subroutine WPigSetTextColour[C] (TextColour)
	   integer TextColour
      end

      subroutine WPigSetFillColour[C] (FillColour)
	   integer FillColour
      end

      subroutine WPigSetBackgrColour[C] (BackgrColour)
	   integer BackgrColour
      end

      subroutine WPigSetForegrColour[C] (ForegrColour)
	   integer ForegrColour
      end

      subroutine WPigDrawSymbols [C] (np, x, y)
	   integer   np
	   real      x [reference] (np)
	   real      y [reference] (np)
      end

      subroutine WPigDrawPolyLine[c] (n, x, y)
	   integer n
	   real x [reference] (n)
	   real y [reference] (n)
      end

      subroutine WPigDrawFilledPolygon[c] (n, x, y)
	   integer n
	   real x [reference] (n)
	   real y [reference] (n)
      end

      subroutine WPigSetWindowNum[c] (WinNum)
	   integer WinNum
      end

      subroutine WPigDrawText[C] ( PosX, PosY, Text)
	   real PosX
	   real PosY
	   character*(*) Text [reference]
      end

      subroutine WPigGetMouseAndButton[C]
     +                                  (Window, Button, x, y)
	   integer     Window  [reference]
	   integer     Button  [reference]
	   real        x       [reference]
	   real        y       [reference]
      end

      subroutine WPigGetRubberMouseAndButton[C]
     +                                  (Window, Button, x, y)
	   integer     Window  [reference]
	   integer     Button  [reference]
	   real        x       [reference]
	   real        y       [reference]
      end

c      subroutine WPigEraseMain[C] ()
c      end

c      logical function WPigPrinting[C] ()
c      end

      End Interface

      subroutine a(b,c,d)
      integer a, b, c
      end


       include '../xpig/pig.f'