ipig.def

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, func5)
	   external func1 [reference]
	   external func2 [reference]
	   external func3 [reference]
	   external func4 [reference]
	   external func5 [reference]
	   integer  func1
	   integer  func2
	   integer  func3
	   integer  func4
	   integer  func5
      end

      subroutine WPIGSETHANDLERS[C](func1, func2, func3, func4, func5)
	   external func1 [reference]
	   external func2 [reference]
	   external func3 [reference]
	   external func4 [reference]
	   external func5 [reference]
	   integer  func1
	   integer  func2
	   integer  func3
	   integer  func4
	   integer  func5
      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

      logical function WPIGLICENCEOK[C] (name, org)
		character*(*) name [reference]
		character*(*) org [reference]
	end
	
	logical function WPIGLICENCEOKPREV[C] (name, org)
		character*(*) name [reference]
		character*(*) org [reference]
	end
	
	subroutine WPIGGETLICENCEDUSERABOUT[C]
     +          (user, user_len, org, org_len)
		character*(*) user [reference]
		integer user_len [reference]
		character*(*) org [reference]
		integer org_len [reference]
	end

	subroutine WPIGGETLICENCEDUSER[C]
     +          (user, user_len, org, org_len)
		character*(*) user [reference]
		integer user_len [reference]
		character*(*) org [reference]
		integer org_len [reference]
	end

	subroutine WPIGSAVELICENCE[C]
     +          (serial,code,name,org)
		integer serial [reference]
		integer code [reference]
		character*(*) name [reference]
		character*(*) org [reference]
	end

	subroutine WPIGREGISTERAUTHORITY[C](code)
		integer code [reference]
	end

	subroutine WPIGREGISTERLICENCENO[C](serial)
		integer serial [reference]
	end                
	
	subroutine WPIGUNLICENCE[C]
	end

	logical function WPIGLICENCED[C]()
	end

	logical function WPIGLICENCEDFORCED[C]()
	end

       integer function WPIGNEWMENU[C] ()
       End

       integer function WPIGNEWPOPUP[C] (title)
       character *(*) title   [reference]
       End

       subroutine WPIGADDMENUITEM[C] (menu, title, tag)
       integer menu
       character *(*) title   [reference]
       integer tag
       End

       subroutine WPIGADDMENUSEPARATOR[C] (menu)
       integer menu
       End

       subroutine WPIGATTACHPOPUP[C]
     +        (parent, popup, title)
       integer parent
       integer popup
       character *(*) title   [reference]
       End

       subroutine WPIGSETMENU[C] (menu)
       integer menu
       End

       subroutine WPIGSETMENUREPEATLABEL[C] (title)
       character *(*) title   [reference]
       End

       subroutine WPIGUWAIT[C] (delay_secs)
	   real delay_secs
       End

       subroutine WPIGDRAWBOX[C] (x1,x2,y1,y2)
	   real x1        
	   real x2
	   real y1
	   real y2
       End

       subroutine WPIGGETSTRING[C] (PromptString,
     +           CharLen, RetString)
	   character*(*) PromptString [reference]
	   integer       CharLen [reference]
	   character*(*) RetString [reference]
       End

       subroutine WPIGCURSPROMPT[C]
     +             (Answer, NumOpts, messg, opts)
	   character*(*)  Answer [reference]
	   integer        NumOpts
	   character*(*)  opts [reference]
	   character*(*)  messg [reference]
       End

       subroutine WPIGCURSYESNO[C] (Answer, messg)
	   character*(*)  Answer [reference]
	   character*(*)  messg [reference]
       End

       subroutine WPIGSETZOOMFLAG[C] ()
       End

c       integer function WPIGGETZOOMFLAG[C] ()
c       End

       subroutine WPIGGETZOOMAREA[C] (x1, x2, y1, y2)
	   real  x1 [reference]
	   real  x2 [reference]
	   real  y1 [reference]
	   real  y2 [reference]
       End

       subroutine WPigExit[C] ()
       End