ipig.def

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

       subroutine WPIGFATAL[C] (Message)
	  character*(*)   Message [reference]
       End

       subroutine WPIGSETTEXTALIGNMENT[C] (Horizontalp,  Verticalp)
	  integer Horizontalp
	  integer Verticalp
       End

       subroutine WPIGGETTEXTEXTENT[C] (string, TextWidth, TextHeight)
	  character*200   string       [reference]
	  real            TextWidth    [reference]
	  real            TextHeight   [reference]
       End

       subroutine WPIGSETCHARSPACING[C] (NewSpacing)
	  real     NewSpacing
       End

       logical function WPIGPRINTING[C] ()
       End

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

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

        subroutine WPIGGETVERSION[C] (version)
	character*(*) version [reference]
	End

      End Interface

*-========================================================================= *        
*        
* Include the PUBLIC pig api declarations
*
	include '../pig/pig.def'
*
* Now add all the PRIVATE pig api declarations
*
* ========================================================================= *        
* For the menus:      
* ========================================================================= *        
*
*       Owner: This file was implemented for the PIGS project.  This file
*              must be included in the PIG_MENU.FOR file.
*
*       This file contains the data structures and supporting constants
*       necessary for the PIGS menu system.
*
*       character*N  MenuOpt (MENUMIN:MenuMax, ITEMMIN:ItemMax)
*                     Contains text strings.  Each element is a menu
*                     item name.
*       integer      MenuItemTag (MENUMIN:MenuMax, ITEMMIN:ItemMax)
*                     Each element contains an unique integer value for
*                     every action, a 0 (zero) is a submenu.
*
*       integer      MenuPointer (MENUMIN:MenuMax, ITEMMIN:ItemMax)
*                     Each element contains an integer value of 1, which
*                     indicates a menu item (an ACTION), or a value from -1
*                     to -MenuMax, which indicates a submenu.  Values
*                     of 0 indicate a NonAction.
* ========================================================================= *        

*       Hi subscript values - these values may be changed if more menus or
*       more item options per menu are required.
	integer        MENUMAXMAX, ITEMMAXMAX
	parameter      (MENUMAXMAX = 30, ITEMMAXMAX = 30)

	integer        MENULABEL
	parameter      (MENULABEL = ITEMMIN)

*-
* MENU_POP moved from pig.def agd mar/94 - it should be privately handled
* inside pigmain
*-      Special returns from the menu system, do not change
*-        integer      MENU_POP
*-
	integer        MENU_POP
	parameter      (MENU_POP = -2)

*       special menu values - do not change
	integer        ACTION, NONACTION
	parameter      (ACTION = 1, NONACTION = 0)
c DEBUGTOGGLE should be private to pig, so should be moved to ipig.h
c do not change value on next line without changing in wpig\wpig.h as well
        integer		DEBUGTOGGLE
	parameter	(DEBUGTOGGLE = 5058)
c PIG_REPEAT_LAST should be private to pig, so should be moved to ipig.h
c do not change value on next line without changing in wpig\wpig.h as well
        integer		PIG_REPEAT_LAST
	parameter	(PIG_REPEAT_LAST = 5059)

*
* ========================================================================= *        
* Window and viewport definitions
* ========================================================================= *        
*
*-
*- numbers used to define current publicly available window/viewport 
*- normalization transformations
*-      INTEGER   MAINWIN, MENUWIN, STATUSWIN, CONTROLWIN,
*-     +            SCREENWIN
*-
      INTEGER   MENUWIN, STATUSWIN, 
     +            SCREENWIN, blankwin, topwin, plotwin

* numbers used to define current window/viewport normalization
* transformations

      PARAMETER       (SCREENWIN   = 0)
      PARAMETER       (STATUSWIN   = 3)
      PARAMETER       (MENUWIN     = 4)
      PARAMETER       (blankwin = SCREENWIN, 
     +                  topwin = STATUSWIN, plotwin = SCREENWIN)
* ========================================================================= *        
* viewports
* ========================================================================= *        
      REAL      XMinMainView, XMaxMainView, YMinMainView,
     +          YMaxMainView
      REAL      XMinControlView, XMaxControlView, YMinControlView,
     +          YMaxControlView
      REAL      XMinStatusView, XMaxStatusView, YMinStatusView,
     +          YMaxStatusView
c      REAL      XMinMenuView, XMaxMenuView, YMinMenuView,
c     +          YMaxMenuView
*  initialize device coordinates parameters to define viewport
*  these values assume the hardware is x in {0:1} y in {0:0.75}      
      PARAMETER  (XMinMainView = 0.0, XMaxMainView = 0.65,
     +            YMinMainView = 0.0, YMaxMainView = 0.65)
      PARAMETER  (XMinControlView = 0.655, XMaxControlView = 0.997,
     +            YMinControlView = 0.0, YMaxControlView = 0.65)
      PARAMETER  (XMinStatusView = 0.0, XMaxStatusView = 0.997,
     +            YMinStatusView = 0.655, YMaxStatusView = 0.7)
c      PARAMETER  (XMinMenuView = 0.0, XMaxMenuView = 0.997,
c     +            YMinMenuView = 0.7, YMaxMenuView = 0.75)
*      PARAMETER  (XMinControlView = 0.655, XMaxControlView = 0.995,
*     +            YMinControlView = 0.0, YMaxControlView = 0.65)
*      PARAMETER  (XMinStatusView = 0.0, XMaxStatusView = 0.995,
*     +            YMinStatusView = 0.655, YMaxStatusView = 0.7)
*      PARAMETER  (XMinMenuView = 0.0, XMaxMenuView = 0.995,
*     +            YMinMenuView = 0.7, YMaxMenuView = 0.75)

* ========================================================================= *        
* x and y world coordinates for each window (except mainwin)
* ========================================================================= *        
      REAL      XCtrlMin, XCtrlMax, YCtrlMin, YCtrlMax
      REAL      XStatusMin, XStatusMax, YStatusMin, YStatusMax
c      REAL      XMenuMin, XMenuMax, YMenuMin, YMenuMax

* ========================================================================= *        
*  initialize world parameters to define windows
* ========================================================================= *        
      PARAMETER       (XCtrlMin = 0.0, XCtrlMax = 40,
     +                 YCtrlMin = 0.0, YCtrlMax = 100)
      PARAMETER       (XStatusMin = 0.0, XStatusMax = 100.0,
     +                 YStatusMin = 0.0, YStatusMax = 5.0)
c      PARAMETER       (XMenuMin = 0.0, XMenuMax = 100.0,
c     +                 YMenuMin = 0.0, YMenuMax = 5.0)

* ========================================================================= *        
*  coordinates for start of menu text for MENUWIN and STATUSWIN and CONTROLWIN viewports
* ========================================================================= *        
      REAL      STATUSX, STATUSY, CONTROLX, CONTROLY
      PARAMETER       (STATUSX = 1.0, STATUSY = 1.5,
     +                 CONTROLX = 2.0, CONTROLY = 90.0)
* ========================================================================= *        
*       Start coords for printing menu bar, and space between items.
* ========================================================================= *        
	real          STARTMENUX, STARTMENUY, SPACING
	parameter     (STARTMENUX = 1., STARTMENUY = 1.5,
     +                 SPACING = 2)
	integer MENU_COLOR1, MENU_COLOR2
      Parameter (
     +           MENU_COLOR1 = WHITE,
     +           MENU_COLOR2 = FOREGR
     +          )

* ========================================================================= *        
C 
C GKS specific definitions of devices
C
* ========================================================================= *        
C
* integer*2 values for GKS arguments that are sensitive to length
c	integer ZERO, ONE, TWO, THREE, FOUR, FIVE, SIX, SEVEN
c	integer EIGHT, NINE, TEN, ELEVEN, TWELVE, THIRTEEN, FOURTEEN
c	parameter (ZERO=0, ONE=1, TWO=2, THREE=3, FOUR=4)
c	parameter (FIVE=5, SIX=6, SEVEN=7)
c	parameter (EIGHT=8, NINE=9, TEN=10, ELEVEN=11)
c	parameter (TWELVE=12, THIRTEEN=13, FOURTEEN=14)
C
* ========================================================================= *        
C *** LOGICAL UNITS
* ========================================================================= *        
C
	integer DEBUGFILE
C value 1 chosen experimentally.
	parameter (DEBUGFILE=1)
C
* ========================================================================= *        
C *** DEVICES.DAT
* ========================================================================= *        
C
      integer wssdev,crtdev,joydev,moudev
      integer gmodev,gmidev,prtdev,pltdev

      integer wsstype,crttype
      integer gmotype,gmitype,prttype,plttype

      PARAMETER( wssdev = 0, crtdev = 1, joydev = 1, moudev = 2 )       !pc
c     PARAMETER(wssdev = 0, crtdev = 0, joydev = 1, moudev = 1)       !rs/6000
      PARAMETER( gmodev = 4, gmidev = 5 )
      PARAMETER( prtdev = 6, pltdev = 7 )

      PARAMETER( wsstype = 0, crttype = 1 )
      PARAMETER( gmotype = 4, gmitype = 5 )
      PARAMETER( prttype = 6, plttype = 7 )

      INTEGER mousedev, xras, yras, devcunits
*      INTEGER mode
      Real xdcmin, ydcmin
      Parameter (xdcmin = 0.0, ydcmin = 0.0)

      REAL    xdcmax, ydcmax, xndc, yndc
     +       ,cspace, cheight, cexpansion
*    +       ,CharWidth
*      COMMON /GKSPARMS/ mode, devcunits, xdcmax, ydcmax,
      COMMON /GKSPARMS_int/ devcunits, xras, yras, mousedev
	  COMMON /GKSPARMS_real/ xdcmax, ydcmax, xndc, yndc
     +					,cspace ,cheight, cexpansion
*    +					,CharWidth

* ========================================================================= *        
*-
*- Zooming constants
*-
* ========================================================================= *        
c      INTEGER ZOOM_ON, ZOOM_OFF
c      Parameter (ZOOM_ON = 50, ZOOM_OFF = 51)
* ========================================================================= *        
*-
*- Text Alignment constants (general)
*-
* ========================================================================= *        
*-       integer BASE_JUSTIFY, TOP_JUSTIFY, BOTTOM_JUSTIFY
       integer BASE_JUSTIFY, TOP_JUSTIFY, BOTTOM_JUSTIFY
       parameter (
     +    BASE_JUSTIFY=2,
     +	  TOP_JUSTIFY=3,
     +    BOTTOM_JUSTIFY=4
     +        )
* ========================================================================= *        
*-
*- Text Alignment constants (for Windows)
*-
* ========================================================================= *        
*-       integer LEFT_ALIGN, CENTRE_ALIGN, RIGHT_ALIGN,
*-     +         BASE_ALIGN, TOP_ALIGN, BOTTOM_ALIGN
	integer LEFT_ALIGN, CENTRE_ALIGN, RIGHT_ALIGN,
     +          BASE_ALIGN, TOP_ALIGN, BOTTOM_ALIGN
	PARAMETER     (
     +          LEFT_ALIGN =1, 
     +          CENTRE_ALIGN =2, 
     +          RIGHT_ALIGN =3,
     +          BASE_ALIGN = 4,
     +          TOP_ALIGN =5,
     +          BOTTOM_ALIGN =6)

* ========================================================================= *        
*-
*- File open dialog symbols
*-
* ========================================================================= *        
*-        integer OLDFILE, NEWFILE
	integer OPENFILE, SAVEFILE
	parameter (OPENFILE=1, SAVEFILE=2)
* ========================================================================= *        
*-
*- Character string size symbols
*-
* ========================================================================= *        
	integer TEMP_CHARLEN
c	parameter (TEMP_CHARLEN=1)	!for serious debugging
c	parameter (TEMP_CHARLEN=15)	!for serious debugging
	parameter (TEMP_CHARLEN=1024)	!for deployment
c	parameter (TEMP_CHARLEN=256)	!practical debugging