gksdefs.f

this file is contain important facts aboute different programming langueges.

! 
!                    Copyright (C) 1989-1997 by
!              Digital Equipment Corporation, Maynard, Mass.
!                        All Rights Reserved.
!
!    Restricted Rights: Use, duplication, or disclosure by the U.S.
!    Government is subject to restrictions as set forth in subparagraph
!    (c) (1) (ii) of DFARS 252.227-7013, or in FAR 52.227-19, or in
!    FAR 52.227-14 Alt. III, as applicable.
!
!    This software is proprietary to and embodies the confidential technology
!    of Digital Equipment Corporation.  Possession, use, or copying of this
!    software and media is authorized only pursuant to a valid written license
!    from Digital or an authorized sublicensor.
!
!    This software is furnished under a license and may be used and  copied
!    only  in  accordance  with  the  terms  of  such  license and with the
!    inclusion of the above copyright notice.  This software or  any  other
!    copies  thereof may not be provided or otherwise made available to any
!    other person.  No title to and ownership of  the  software  is  hereby
!    transferred.
! 
!    The information in this software is subject to change  without  notice
!    and  should  not  be  construed  as  a commitment by Digital Equipment
!    Corporation.
! 
!    Digital assumes no responsibility for the use or  reliability  of  its
!    software on equipment which is not supplied by Digital.
! 
!    Facility:		Digital GKS V5.x and higher
! 
!    Abstract:		This file contains statements which can be used
! 			by GKS application programs written in FORTRAN to
! 			declare constants.
! 
! 		        To use this file do the following:
! 
! 			Include this file by placing the following FORTRAN
! 			statement at the beginning of each procedure that uses 
! 			GKS definitions.
! 
! 				INCLUDE 'SYS$LIBRARY:GKSDEFS.FOR'
! 
! 
!    Environment:	VMS, VAX FORTRAN
! 

!*** MODULE gksdefs ***
!  Input Mode Types
	INTEGER*4 GKS$K_INPUT_MODE_REQUEST
	PARAMETER (GKS$K_INPUT_MODE_REQUEST = '00000000'X)
	INTEGER*4 GKS$K_INPUT_MODE_SAMPLE
	PARAMETER (GKS$K_INPUT_MODE_SAMPLE = '00000001'X)
	INTEGER*4 GKS$K_INPUT_MODE_EVENT
	PARAMETER (GKS$K_INPUT_MODE_EVENT = '00000002'X)
!  Echo States
	INTEGER*4 GKS$K_NOECHO
	PARAMETER (GKS$K_NOECHO = '00000000'X)
	INTEGER*4 GKS$K_ECHO
	PARAMETER (GKS$K_ECHO = '00000001'X)
!  Input Status Types
	INTEGER*4 GKS$K_STATUS_NONE
	PARAMETER (GKS$K_STATUS_NONE = '00000000'X)
	INTEGER*4 GKS$K_STATUS_OK
	PARAMETER (GKS$K_STATUS_OK = '00000001'X)
	INTEGER*4 GKS$K_STATUS_NOCHOICE
	PARAMETER (GKS$K_STATUS_NOCHOICE = '00000002'X)
	INTEGER*4 GKS$K_STATUS_NOPICK
	PARAMETER (GKS$K_STATUS_NOPICK = '00000002'X)
!  GKS Status Types
	INTEGER*4 GKS$K_GKCL
	PARAMETER (GKS$K_GKCL = '00000000'X)
	INTEGER*4 GKS$K_GKOP
	PARAMETER (GKS$K_GKOP = '00000001'X)
	INTEGER*4 GKS$K_WSOP
	PARAMETER (GKS$K_WSOP = '00000002'X)
	INTEGER*4 GKS$K_WSAC
	PARAMETER (GKS$K_WSAC = '00000003'X)
	INTEGER*4 GKS$K_SGOP
	PARAMETER (GKS$K_SGOP = '00000004'X)
!  GKS Level Types
	INTEGER*4 GKS$K_LEVEL_MA
	PARAMETER (GKS$K_LEVEL_MA = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_LEVEL_MB
	PARAMETER (GKS$K_LEVEL_MB = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_LEVEL_MC
	PARAMETER (GKS$K_LEVEL_MC = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_LEVEL_0A
	PARAMETER (GKS$K_LEVEL_0A = '00000000'X)
	INTEGER*4 GKS$K_LEVEL_0B
	PARAMETER (GKS$K_LEVEL_0B = '00000001'X)
	INTEGER*4 GKS$K_LEVEL_0C
	PARAMETER (GKS$K_LEVEL_0C = '00000002'X)
	INTEGER*4 GKS$K_LEVEL_1A
	PARAMETER (GKS$K_LEVEL_1A = '00000003'X)
	INTEGER*4 GKS$K_LEVEL_1B
	PARAMETER (GKS$K_LEVEL_1B = '00000004'X)
	INTEGER*4 GKS$K_LEVEL_1C
	PARAMETER (GKS$K_LEVEL_1C = '00000005'X)
	INTEGER*4 GKS$K_LEVEL_2A
	PARAMETER (GKS$K_LEVEL_2A = '00000006'X)
	INTEGER*4 GKS$K_LEVEL_2B
	PARAMETER (GKS$K_LEVEL_2B = '00000007'X)
	INTEGER*4 GKS$K_LEVEL_2C
	PARAMETER (GKS$K_LEVEL_2C = '00000008'X)
!  Text Paths Types
	INTEGER*4 GKS$K_TEXT_PATH_RIGHT
	PARAMETER (GKS$K_TEXT_PATH_RIGHT = '00000000'X)
	INTEGER*4 GKS$K_TEXT_PATH_LEFT
	PARAMETER (GKS$K_TEXT_PATH_LEFT = '00000001'X)
	INTEGER*4 GKS$K_TEXT_PATH_UP
	PARAMETER (GKS$K_TEXT_PATH_UP = '00000002'X)
	INTEGER*4 GKS$K_TEXT_PATH_DOWN
	PARAMETER (GKS$K_TEXT_PATH_DOWN = '00000003'X)
!  Text Horizontal Alignment Types
	INTEGER*4 GKS$K_TEXT_HALIGN_NORMAL
	PARAMETER (GKS$K_TEXT_HALIGN_NORMAL = '00000000'X)
	INTEGER*4 GKS$K_TEXT_HALIGN_LEFT
	PARAMETER (GKS$K_TEXT_HALIGN_LEFT = '00000001'X)
	INTEGER*4 GKS$K_TEXT_HALIGN_CENTER
	PARAMETER (GKS$K_TEXT_HALIGN_CENTER = '00000002'X)
	INTEGER*4 GKS$K_TEXT_HALIGN_RIGHT
	PARAMETER (GKS$K_TEXT_HALIGN_RIGHT = '00000003'X)
!  Text Vertical Alignments Types
	INTEGER*4 GKS$K_TEXT_VALIGN_NORMAL
	PARAMETER (GKS$K_TEXT_VALIGN_NORMAL = '00000000'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_TOP
	PARAMETER (GKS$K_TEXT_VALIGN_TOP = '00000001'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_CAP
	PARAMETER (GKS$K_TEXT_VALIGN_CAP = '00000002'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_HALF
	PARAMETER (GKS$K_TEXT_VALIGN_HALF = '00000003'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_BASE
	PARAMETER (GKS$K_TEXT_VALIGN_BASE = '00000004'X)
	INTEGER*4 GKS$K_TEXT_VALIGN_BOTTOM
	PARAMETER (GKS$K_TEXT_VALIGN_BOTTOM = '00000005'X)
!  Standard Line Types
	INTEGER*4 GKS$K_LINETYPE_SOLID
	PARAMETER (GKS$K_LINETYPE_SOLID = '00000001'X)
	INTEGER*4 GKS$K_LINETYPE_DASHED
	PARAMETER (GKS$K_LINETYPE_DASHED = '00000002'X)
	INTEGER*4 GKS$K_LINETYPE_DOTTED
	PARAMETER (GKS$K_LINETYPE_DOTTED = '00000003'X)
	INTEGER*4 GKS$K_LINETYPE_DASHED_DOTTED
	PARAMETER (GKS$K_LINETYPE_DASHED_DOTTED = '00000004'X)
!  GKS specific linetypes 
	INTEGER*4 GKS$K_LINETYPE_DASH_2_DOT
	PARAMETER (GKS$K_LINETYPE_DASH_2_DOT = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_LINETYPE_DASH_3_DOT
	PARAMETER (GKS$K_LINETYPE_DASH_3_DOT = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_LINETYPE_LONG_DASH
	PARAMETER (GKS$K_LINETYPE_LONG_DASH = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_LINETYPE_LONG_SHORT_DASH
	PARAMETER (GKS$K_LINETYPE_LONG_SHORT_DASH = 'FFFFFFFC'X)
	INTEGER*4 GKS$K_LINETYPE_SPACED_DASH
	PARAMETER (GKS$K_LINETYPE_SPACED_DASH = 'FFFFFFFB'X)
	INTEGER*4 GKS$K_LINETYPE_SPACED_DOT
	PARAMETER (GKS$K_LINETYPE_SPACED_DOT = 'FFFFFFFA'X)
	INTEGER*4 GKS$K_LINETYPE_DOUBLE_DOT
	PARAMETER (GKS$K_LINETYPE_DOUBLE_DOT = 'FFFFFFF9'X)
	INTEGER*4 GKS$K_LINETYPE_TRIPLE_DOT
	PARAMETER (GKS$K_LINETYPE_TRIPLE_DOT = 'FFFFFFF8'X)
	INTEGER*4 GKS$K_LINETYPE_CENTER
	PARAMETER (GKS$K_LINETYPE_CENTER = 'FFFFFFF7'X)
	INTEGER*4 GKS$K_LINETYPE_PHANTOM
	PARAMETER (GKS$K_LINETYPE_PHANTOM = 'FFFFFFF6'X)
!  Standard Marker Types
	INTEGER*4 GKS$K_MARKERTYPE_DOT
	PARAMETER (GKS$K_MARKERTYPE_DOT = '00000001'X)
	INTEGER*4 GKS$K_MARKERTYPE_PLUS
	PARAMETER (GKS$K_MARKERTYPE_PLUS = '00000002'X)
	INTEGER*4 GKS$K_MARKERTYPE_ASTERISK
	PARAMETER (GKS$K_MARKERTYPE_ASTERISK = '00000003'X)
	INTEGER*4 GKS$K_MARKERTYPE_CIRCLE
	PARAMETER (GKS$K_MARKERTYPE_CIRCLE = '00000004'X)
	INTEGER*4 GKS$K_MARKERTYPE_DIAGONAL_CROSS
	PARAMETER (GKS$K_MARKERTYPE_DIAGONAL_CROSS = '00000005'X)
!  VAX GKS Implementation Marker Types
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_CIRCLE
	PARAMETER (GKS$K_MARKERTYPE_SOLID_CIRCLE = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_MARKERTYPE_TRIANGLE_UP
	PARAMETER (GKS$K_MARKERTYPE_TRIANGLE_UP = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_TRI_UP
	PARAMETER (GKS$K_MARKERTYPE_SOLID_TRI_UP = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_MARKERTYPE_TRIANGLE_DOWN
	PARAMETER (GKS$K_MARKERTYPE_TRIANGLE_DOWN = 'FFFFFFFC'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_TRI_DOWN
	PARAMETER (GKS$K_MARKERTYPE_SOLID_TRI_DOWN = 'FFFFFFFB'X)
	INTEGER*4 GKS$K_MARKERTYPE_SQUARE
	PARAMETER (GKS$K_MARKERTYPE_SQUARE = 'FFFFFFFA'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_SQUARE
	PARAMETER (GKS$K_MARKERTYPE_SOLID_SQUARE = 'FFFFFFF9'X)
	INTEGER*4 GKS$K_MARKERTYPE_BOWTIE
	PARAMETER (GKS$K_MARKERTYPE_BOWTIE = 'FFFFFFF8'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_BOWTIE
	PARAMETER (GKS$K_MARKERTYPE_SOLID_BOWTIE = 'FFFFFFF7'X)
	INTEGER*4 GKS$K_MARKERTYPE_HOURGLASS
	PARAMETER (GKS$K_MARKERTYPE_HOURGLASS = 'FFFFFFF6'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_HGLASS
	PARAMETER (GKS$K_MARKERTYPE_SOLID_HGLASS = 'FFFFFFF5'X)
	INTEGER*4 GKS$K_MARKERTYPE_DIAMOND
	PARAMETER (GKS$K_MARKERTYPE_DIAMOND = 'FFFFFFF4'X)
	INTEGER*4 GKS$K_MARKERTYPE_SOLID_DIAMOND
	PARAMETER (GKS$K_MARKERTYPE_SOLID_DIAMOND = 'FFFFFFF3'X)
!  Edge Types
	INTEGER*4 GKS$K_EDGE_SOLID
	PARAMETER (GKS$K_EDGE_SOLID = '00000001'X)
	INTEGER*4 GKS$K_EDGE_DASHED
	PARAMETER (GKS$K_EDGE_DASHED = '00000002'X)
	INTEGER*4 GKS$K_EDGE_DOTTED
	PARAMETER (GKS$K_EDGE_DOTTED = '00000003'X)
	INTEGER*4 GKS$K_EDGE_DASHED_DOTTED
	PARAMETER (GKS$K_EDGE_DASHED_DOTTED = '00000004'X)
!  GKS specific edge types 
	INTEGER*4 GKS$K_EDGE_DASH_2_DOT
	PARAMETER (GKS$K_EDGE_DASH_2_DOT = 'FFFFFFFF'X)
	INTEGER*4 GKS$K_EDGE_DASH_3_DOT
	PARAMETER (GKS$K_EDGE_DASH_3_DOT = 'FFFFFFFE'X)
	INTEGER*4 GKS$K_EDGE_LONG_DASH
	PARAMETER (GKS$K_EDGE_LONG_DASH = 'FFFFFFFD'X)
	INTEGER*4 GKS$K_EDGE_LONG_SHORT_DASH
	PARAMETER (GKS$K_EDGE_LONG_SHORT_DASH = 'FFFFFFFC'X)
	INTEGER*4 GKS$K_EDGE_SPACED_DASH
	PARAMETER (GKS$K_EDGE_SPACED_DASH = 'FFFFFFFB'X)
	INTEGER*4 GKS$K_EDGE_SPACED_DOT
	PARAMETER (GKS$K_EDGE_SPACED_DOT = 'FFFFFFFA'X)
	INTEGER*4 GKS$K_EDGE_DOUBLE_DOT
	PARAMETER (GKS$K_EDGE_DOUBLE_DOT = 'FFFFFFF9'X)
	INTEGER*4 GKS$K_EDGE_TRIPLE_DOT
	PARAMETER (GKS$K_EDGE_TRIPLE_DOT = 'FFFFFFF8'X)
!  Line Cap Types
	INTEGER*4 GKS$K_LINE_CAP_DEFAULT
	PARAMETER (GKS$K_LINE_CAP_DEFAULT = '00000001'X)
	INTEGER*4 GKS$K_LINE_CAP_BUTT
	PARAMETER (GKS$K_LINE_CAP_BUTT = '00000002'X)
	INTEGER*4 GKS$K_LINE_CAP_ROUND
	PARAMETER (GKS$K_LINE_CAP_ROUND = '00000003'X)
	INTEGER*4 GKS$K_LINE_CAP_SQUARE
	PARAMETER (GKS$K_LINE_CAP_SQUARE = '00000004'X)
!  Line Join Types
	INTEGER*4 GKS$K_LINE_JOIN_DEFAULT
	PARAMETER (GKS$K_LINE_JOIN_DEFAULT = '00000002'X)
	INTEGER*4 GKS$K_LINE_JOIN_MITRE
	PARAMETER (GKS$K_LINE_JOIN_MITRE = '00000003'X)
	INTEGER*4 GKS$K_LINE_JOIN_ROUND
	PARAMETER (GKS$K_LINE_JOIN_ROUND = '00000004'X)
	INTEGER*4 GKS$K_LINE_JOIN_BEVEL
	PARAMETER (GKS$K_LINE_JOIN_BEVEL = '00000005'X)
!  Edge flags
	INTEGER*4 GKS$K_NOEDGE
	PARAMETER (GKS$K_NOEDGE = '00000000'X)
	INTEGER*4 GKS$K_EDGE
	PARAMETER (GKS$K_EDGE = '00000001'X)
!  Text Precision Types
	INTEGER*4 GKS$K_TEXT_PRECISION_STRING
	PARAMETER (GKS$K_TEXT_PRECISION_STRING = '00000000'X)
	INTEGER*4 GKS$K_TEXT_PRECISION_CHAR
	PARAMETER (GKS$K_TEXT_PRECISION_CHAR = '00000001'X)
	INTEGER*4 GKS$K_TEXT_PRECISION_STROKE
	PARAMETER (GKS$K_TEXT_PRECISION_STROKE = '00000002'X)
!  Language Types
	INTEGER*4 GKS$K_ENGLISH
	PARAMETER (GKS$K_ENGLISH = '00000000'X) !  English
	INTEGER*4 GKS$K_GERMAN
	PARAMETER (GKS$K_GERMAN = '00000001'X) !  German
	INTEGER*4 GKS$K_HEBREW
	PARAMETER (GKS$K_HEBREW = '00000015'X) !  Hebrew
	INTEGER*4 GKS$K_JAPANESE
	PARAMETER (GKS$K_JAPANESE = '00000016'X) !  Japanese
!  Japanese Text Fonts
	INTEGER*4 GKS$K_HARDFONT_J1
	PARAMETER (GKS$K_HARDFONT_J1 = 'FFFFD8EF'X)
	INTEGER*4 GKS$K_SOFTFONT_J1
	PARAMETER (GKS$K_SOFTFONT_J1 = 'FFFFD8EF'X)
	INTEGER*4 GKS$K_PSFONT_J1
	PARAMETER (GKS$K_PSFONT_J1 = 'FFFFD88B'X)
	INTEGER*4 GKS$K_PSFONT_J2
	PARAMETER (GKS$K_PSFONT_J2 = 'FFFFD88A'X)
!  Fill Area Types
	INTEGER*4 GKS$K_INTSTYLE_HOLLOW
	PARAMETER (GKS$K_INTSTYLE_HOLLOW = '00000000'X)
	INTEGER*4 GKS$K_INTSTYLE_SOLID
	PARAMETER (GKS$K_INTSTYLE_SOLID = '00000001'X)
	INTEGER*4 GKS$K_INTSTYLE_PATTERN
	PARAMETER (GKS$K_INTSTYLE_PATTERN = '00000002'X)
	INTEGER*4 GKS$K_INTSTYLE_HATCH
	PARAMETER (GKS$K_INTSTYLE_HATCH = '00000003'X)
!  Attribute Source States
	INTEGER*4 GKS$K_ASF_BUNDLED
	PARAMETER (GKS$K_ASF_BUNDLED = '00000000'X)
	INTEGER*4 GKS$K_ASF_INDIVIDUAL
	PARAMETER (GKS$K_ASF_INDIVIDUAL = '00000001'X)
!  Clear Screen States
	INTEGER*4 GKS$K_CLEAR_CONDITIONALLY
	PARAMETER (GKS$K_CLEAR_CONDITIONALLY = '00000000'X)
	INTEGER*4 GKS$K_CLEAR_ALWAYS
	PARAMETER (GKS$K_CLEAR_ALWAYS = '00000001'X)
!  Clipping States
	INTEGER*4 GKS$K_NOCLIP
	PARAMETER (GKS$K_NOCLIP = '00000000'X)
	INTEGER*4 GKS$K_CLIP
	PARAMETER (GKS$K_CLIP = '00000001'X)
!  Workstation Types
	INTEGER*4 GKS$K_WSTYPE_DEFAULT
	PARAMETER (GKS$K_WSTYPE_DEFAULT = '00000000'X)
	INTEGER*4 GKS$K_GKSM_OUTPUT
	PARAMETER (GKS$K_GKSM_OUTPUT = '00000002'X)
	INTEGER*4 GKS$K_GKSM_INPUT
	PARAMETER (GKS$K_GKSM_INPUT = '00000003'X)
	INTEGER*4 GKS$K_WSTYPE_WISS
	PARAMETER (GKS$K_WSTYPE_WISS = '00000005'X)
	INTEGER*4 GKS$K_CGM_OUTPUT
	PARAMETER (GKS$K_CGM_OUTPUT = '00000007'X)
	INTEGER*4 GKS$K_VT125BW_OUTPUT
	PARAMETER (GKS$K_VT125BW_OUTPUT = '0000000A'X)
	INTEGER*4 GKS$K_VT_OUTPUT
	PARAMETER (GKS$K_VT_OUTPUT = '0000000A'X)
	INTEGER*4 GKS$K_VT125
	PARAMETER (GKS$K_VT125 = '0000000B'X)
	INTEGER*4 GKS$K_VT125BW