pig1.f

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

       Interface to subroutine WPigUWait[C] (delay_secs)
	   real delay_secs
       End

       Interface to subroutine WPigDrawBox[C] (x1,x2,y1,y2)
	   real x1        
	   real x2
	   real y1
	   real y2
       End

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

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

       Interface to subroutine WPigCursYesNo[C] (Answer, messg)
	   character*(*)  Answer [reference]
	   character*(*)  messg [reference]
       End

       Interface to subroutine WPigSetZoomFlag[C] ()
       End

       Interface to integer function WPigGetZoomFlag[C] ()
       End

       Interface to subroutine WPigGetZoomArea[C] (x1, x2, y1, y2)
	   real  x1 [reference]
	   real  x2 [reference]
	   real  y1 [reference]
	   real  y2 [reference]
       End

       Interface to subroutine WPigExit[C] ()
       End

       Interface to subroutine WPigFatal[C] (Message)
	  character*(*)   Message [reference]
       End

       Interface to subroutine WPigSetTextAlignment[C]
     +                                  (Horizontalp,  Verticalp)
	  integer Horizontalp
	  integer Verticalp
       End

       Interface to subroutine WPigGetTextExtent[C]
     +                                  (string, TextWidth, TextHeight)
	  character*200   string       [reference]
	  real            TextWidth    [reference]
	  real            TextHeight   [reference]
       End

       Interface to subroutine WPigSetCharSpacing[C] (NewSpacing)
	  real     NewSpacing
       End

       Interface to logical function WPigPrinting[C] ()
       End

       Interface to logical function
     +    WPigGetOpenFileName[C] (prompt, name, template)
	  character*(*)  prompt [reference]
	  character*(*)  name [reference]
	  character*(*)  template [reference]
       End

       Interface to logical function
     +    WPigGetSaveFileName[C] (prompt, name, template)
	  character*(*)  prompt [reference]
	  character*(*)  name [reference]
	  character*(*)  template [reference]
       End

        Interface to subroutine WPigGetVersion[C] (version)
	character*(*) version [reference]
	End

       include '../xpig/pig1.f'