gksdefs.f

this file is contain important facts aboute different programming langueges.

	PARAMETER (GKS$K_TYP_LOC_NEG9CURR_REC = '0000001B'X) !  Locator pet -9, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG9SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG9SPEC_REC = '0000001C'X) !  Locator pet -9, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG8CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG8CURR_REC = '0000001D'X) !  Locator pet -8, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG8SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG8SPEC_REC = '0000001E'X) !  Locator pet -8, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG7CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG7CURR_REC = '0000001F'X) !  Locator pet -7, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG7SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG7SPEC_REC = '00000020'X) !  Locator pet -7, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG6CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG6CURR_REC = '00000021'X) !  Locator pet -6, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG6SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG6SPEC_REC = '00000022'X) !  Locator pet -6, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG5CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG5CURR_REC = '00000023'X) !  Locator pet -5, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG5SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG5SPEC_REC = '00000024'X) !  Locator pet -5, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG4CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG4CURR_REC = '00000025'X) !  Locator pet -4, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG4SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG4SPEC_REC = '00000026'X) !  Locator pet -4, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG3CURR_REC
	PARAMETER (GKS$K_TYP_LOC_NEG3CURR_REC = '00000027'X) !  Locator pet -3, current acf
	INTEGER*4 GKS$K_TYP_LOC_NEG3SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_NEG3SPEC_REC = '00000028'X) !  Locator pet -3, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG2CURRLN_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2CURRLN_REC = '00000029'X) !  Locator pet -2, current acf (line_
	INTEGER*4 GKS$K_TYP_LOC_NEG2CURRFA_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2CURRFA_REC = '0000002A'X) !  Locator pet -2, current acf (fill area)
	INTEGER*4 GKS$K_TYP_LOC_NEG2SPECLN_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2SPECLN_REC = '0000002B'X) !  Locator pet -2, specified acf (line)
	INTEGER*4 GKS$K_TYP_LOC_NEG2SPECFA_REC
	PARAMETER (GKS$K_TYP_LOC_NEG2SPECFA_REC = '0000002C'X) !  Locator pet -2, specified acf (fill area)
! 
	INTEGER*4 GKS$K_TYP_LOC_NEG1_REC
	PARAMETER (GKS$K_TYP_LOC_NEG1_REC = '0000002D'X) !  Locator pet -1
	INTEGER*4 GKS$K_TYP_LOC_1_REC
	PARAMETER (GKS$K_TYP_LOC_1_REC = '0000002E'X) !  Locator pet 1
	INTEGER*4 GKS$K_TYP_LOC_2_REC
	PARAMETER (GKS$K_TYP_LOC_2_REC = '0000002F'X) !  Locator pet 2
	INTEGER*4 GKS$K_TYP_LOC_3_REC
	PARAMETER (GKS$K_TYP_LOC_3_REC = '00000030'X) !  Locator pet 3
! 
	INTEGER*4 GKS$K_TYP_LOC_4CURR_REC
	PARAMETER (GKS$K_TYP_LOC_4CURR_REC = '00000031'X) !  Locator pet 4, current acf 
	INTEGER*4 GKS$K_TYP_LOC_4SPEC_REC
	PARAMETER (GKS$K_TYP_LOC_4SPEC_REC = '00000032'X) !  Locator pet 4, specified acf
! 
	INTEGER*4 GKS$K_TYP_LOC_5CURRLN_REC
	PARAMETER (GKS$K_TYP_LOC_5CURRLN_REC = '00000033'X) !  Locator pet 5, current acf (line)
	INTEGER*4 GKS$K_TYP_LOC_5CURRFA_REC
	PARAMETER (GKS$K_TYP_LOC_5CURRFA_REC = '00000034'X) !  Locator pet 5, current acf (fill area)
	INTEGER*4 GKS$K_TYP_LOC_5SPECLN_REC
	PARAMETER (GKS$K_TYP_LOC_5SPECLN_REC = '00000035'X) !  Locator pet 5, specified acf (line)
	INTEGER*4 GKS$K_TYP_LOC_5SPECFA_REC
	PARAMETER (GKS$K_TYP_LOC_5SPECFA_REC = '00000036'X) !  Locator pet 5, specified acf (fill area)
! 
	INTEGER*4 GKS$K_TYP_LOC_6_REC
	PARAMETER (GKS$K_TYP_LOC_6_REC = '00000037'X) !  Locator pet 6
! 
	INTEGER*4 GKS$K_TYP_PICK_1_REC
	PARAMETER (GKS$K_TYP_PICK_1_REC = '0000003C'X) !  Pick pet 1
	INTEGER*4 GKS$K_TYP_PICK_2_REC
	PARAMETER (GKS$K_TYP_PICK_2_REC = '0000003D'X) !  Pick pet 2
	INTEGER*4 GKS$K_TYP_PICK_3_REC
	PARAMETER (GKS$K_TYP_PICK_3_REC = '0000003E'X) !  Pick pet 3
! 
	INTEGER*4 GKS$K_TYP_STRING_1_REC
	PARAMETER (GKS$K_TYP_STRING_1_REC = '00000046'X) !  String pet 1
! 
	INTEGER*4 GKS$K_TYP_STROKE_1_REC
	PARAMETER (GKS$K_TYP_STROKE_1_REC = '00000050'X) !  Stroke pet 1 
	INTEGER*4 GKS$K_TYP_STROKE_2_REC
	PARAMETER (GKS$K_TYP_STROKE_2_REC = '00000051'X) !  Stroke pet 2
	INTEGER*4 GKS$K_TYP_STROKE_3CURR_REC
	PARAMETER (GKS$K_TYP_STROKE_3CURR_REC = '00000052'X) !  Stroke pet 3, current acf
	INTEGER*4 GKS$K_TYP_STROKE_3SPEC_REC
	PARAMETER (GKS$K_TYP_STROKE_3SPEC_REC = '00000053'X) !  Stroke pet 3, specified acf
	INTEGER*4 GKS$K_TYP_STROKE_4CURR_REC
	PARAMETER (GKS$K_TYP_STROKE_4CURR_REC = '00000054'X) !  Stroke pet 4, current acf
	INTEGER*4 GKS$K_TYP_STROKE_4SPEC_REC
	PARAMETER (GKS$K_TYP_STROKE_4SPEC_REC = '00000055'X) !  Stroke pet 4, specified acf
! 
	INTEGER*4 GKS$K_TYP_VAL_NEG3_REC
	PARAMETER (GKS$K_TYP_VAL_NEG3_REC = '0000005A'X) !  Valuator pet -3
	INTEGER*4 GKS$K_TYP_VAL_NEG2_REC
	PARAMETER (GKS$K_TYP_VAL_NEG2_REC = '0000005B'X) !  Valuator pet -2
	INTEGER*4 GKS$K_TYP_VAL_NEG1_REC
	PARAMETER (GKS$K_TYP_VAL_NEG1_REC = '0000005C'X) !  Valuator pet -1
	INTEGER*4 GKS$K_TYP_VAL_1_REC
	PARAMETER (GKS$K_TYP_VAL_1_REC = '0000005D'X) !  Valuator pet 1
	INTEGER*4 GKS$K_TYP_VAL_2_REC
	PARAMETER (GKS$K_TYP_VAL_2_REC = '0000005E'X) !  Valuator pet 2
	INTEGER*4 GKS$K_TYP_VAL_3_REC
	PARAMETER (GKS$K_TYP_VAL_3_REC = '0000005F'X) !  Valuator pet 3
! 
! 
!  General structures
! 
!***************************************************************************
!***************************************************************************
!
!   ----- ESCAPE data record for Digital GKS V5.x and later versions -----
!
!***************************************************************************
!***************************************************************************
        STRUCTURE /gks$typ_escape/
                INTEGER*4       number_integer
                INTEGER*4       number_float
                INTEGER*4       number_strings
                INTEGER         list_integers
                INTEGER         list_floats
                INTEGER         list_string_lengths
                INTEGER         list_strings
                INTEGER*4       number_pointer
                INTEGER         list_pointers
                INTEGER*4       number_long
                INTEGER         list_longs
        END STRUCTURE   ! gks$typ_escape
!
!*****************************************************************************
!*****************************************************************************
! 
!    ----- INPUT DATA RECORDS FOR Digital GKS V5.x and later versions -----
! 
!*****************************************************************************
!*****************************************************************************
!
!*****************************************************************************
! 
!  LOCATOR DATA RECORD STRUCTURES
! 
!*****************************************************************************
!
! 
!  LOCATOR PET 1
! 
!  There is no data record structure for this pet.  The
!  data record size for the INITIALIZE LOCATOR function is 0.
!  Also, for consistency, the constant *K_TYP_LOC_1_REC is provided 
!  with function gks$sizeof to calculate the data record size (0).
! 
!
!  LOCATOR PET 2
! 
!  There is no data record structure for this pet.  The
!  data record size for the INITIALIZE LOCATOR function is 0.
!  Also, for consistency, the constant *K_TYP_LOC_2_REC is provided 
!  with function gks$sizeof to calculate the data record size (0).
! 
! 
!  LOCATOR PET 3
! 
!  There is no data record structure for this pet.  The
!  data record size for the INITIALIZE LOCATOR function is 0.
!  Also, for consistency, the constant *K_TYP_LOC_3_REC is provided 
!  with function gks$sizeof to calculate the data record size (0).
! 
! 	
!  LOCATOR PET 4
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *LOC_4CURR_REC or *K_TYP_LOC_4SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpet4/
	    INTEGER*4 dr4$l_control		!  Current/Specified attribute control flag
	    INTEGER*4 dr4$l_linetype_asf	!  Linetype ASF 
	    INTEGER*4 dr4$l_linewidth_asf	!  Linewidth scale factor ASF 
	    INTEGER*4 dr4$l_color_asf		!  Polyline colour index ASF 
	    INTEGER*4 dr4$l_index		!  Polyline index 
	    INTEGER*4 dr4$l_linetype		!  Linetype 
	    REAL*4    dr4$f_linewidth		!  Linewidth scale factor 
	    INTEGER*4 dr4$l_color		!  Polyline colour index 
	END STRUCTURE	! gks$typ_locpet4
! 
! 
!  LOCATOR PET 5
!  
!  There are 4 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified) and the
!  polyline/fill area flag (line or fill area). Use constants
!  *K_TYP_LOC_5CURRLN_REC, *K_TYP_LOC_5CURRFA_REC, *K_TYP_LOC_5SPECLN_REC, 
!  or *K_TYP_LOC_5SPECFA_REC with function gks$sizeof to calculate the data 
!  record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpet5/
	    INTEGER*4 dr5$l_plfa			!  Polyline/fill area flag 
	    INTEGER*4 dr5$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            INTEGER*4 dr5$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 dr5$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 dr5$l_plcolor_asf		!  Polyline colour index ASF 
	            INTEGER*4 dr5$l_plindex		!  Polyline index 
	            INTEGER*4 dr5$l_linetype		!  Linetype 
	            REAL*4    dr5$f_linewidth		!  Linewidth scale factor 
	            INTEGER*4 dr5$l_plcolor		!  Polyline colour index
	        END MAP
	        MAP
	            INTEGER*4 dr5$l_intstyle_asf	!  Fill area interior style ASF 
	            INTEGER*4 dr5$l_styleindex_asf	!  Fill area style index ASF 
	            INTEGER*4 dr5$l_facolor_asf		!  Fill area colour index ASF 
	            INTEGER*4 dr5$l_faindex		!  Fill area index 
	            INTEGER*4 dr5$l_intstyle		!  Fill area interior style 
	            INTEGER*4 dr5$l_styleindex		!  Fill area style index 
	            INTEGER*4 dr5$l_facolor		!  Fill area colour index 
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpet5
! 
! 
!  LOCATOR PET 6
!  
!  Use constant *K_TYP_LOC_6_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpet6/
	    INTEGER   dr6$a_title_string	!  Title string
	    INTEGER*4 dr6$l_title_length	!  Title length
	END STRUCTURE	! gks$typ_locpet6
! 
! 
!  LOCATOR PET -1
! 
!  Use constant *K_TYP_LOC_NEG1_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg1/
	    REAL*4    drneg1$f_size_x		!  WC length of box in x direction
	    REAL*4    drneg1$f_size_y		!  WC length of box in y direction
	END STRUCTURE	! gks$typ_locpetneg1
! 
! 
!  LOCATOR PET -2
! 
!  There are 4 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified) and the
!  polyline/fill area flag (line or fill area). Use constants
!  *K_TYP_LOC_NEG2CURRLN_REC, *K_TYP_LOC_NEG2CURRFA_REC, *K_TYP_LOC_NEG2SPECLN_REC, 
!  or *K_TYP_LOC_NEG2SPECFA_REC with function gks$sizeof to calculate the  
!  data record size for the INITIALIZE LOCATOR function.
! 
	STRUCTURE /gks$typ_locpetneg2/
	    INTEGER*4 drneg2$l_plfa			!  Polyline/fill area flag 
	    INTEGER*4 drneg2$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            INTEGER*4 drneg2$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg2$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg2$l_plcolor_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg2$l_plindex		!  Polyline index 
	            INTEGER*4 drneg2$l_linetype		!  Linetype 
	            REAL*4    drneg2$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg2$l_plcolor		!  Polyline colour index
	        END MAP
	        MAP
	            INTEGER*4 drneg2$l_intstyle_asf	!  Fill area interior style ASF 
	            INTEGER*4 drneg2$l_styleindex_asf	!  Fill area style index ASF 
	            INTEGER*4 drneg2$l_facolor_asf	!  Fill area colour index ASF 
	            INTEGER*4 drneg2$l_faindex		!  Fill area index 
	            INTEGER*4 drneg2$l_intstyle		!  Fill area interior style 
	            INTEGER*4 drneg2$l_styleindex	!  Fill area style index 
	            INTEGER*4 drneg2$l_facolor		!  Fill area colour index 
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpetneg2
! 
! 	
!  LOCATOR PET -3
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG3CURR_REC or *K_TYP_LOC_NEG3SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR function.
!  
	STRUCTURE /gks$typ_locpetneg3/
	    INTEGER*4 drneg3$l_control			!  Current/Specified attribute control flag 
	    UNION
	        MAP
	            REAL*4    drneg3$f_point1_x		!  Point 1 (x,y)
	            REAL*4    drneg3$f_point1_y
	            REAL*4    drneg3$f_point2_x		!  Point 2 (x,y)
	            REAL*4    drneg3$f_point2_y
	        END MAP
	        MAP
	            INTEGER*4 drneg3$l_linetype_asf	!  Linetype ASF 
	            INTEGER*4 drneg3$l_linewidth_asf	!  Linewidth scale factor ASF 
	            INTEGER*4 drneg3$l_color_asf	!  Polyline colour index ASF 
	            INTEGER*4 drneg3$l_index		!  Polyline index 
	            INTEGER*4 drneg3$l_linetype		!  Linetype 
	            REAL*4    drneg3$f_linewidth	!  Linewidth scale factor 
	            INTEGER*4 drneg3$l_color		!  Polyline colour index 
	            REAL*4    drneg3$f_lnpoint1_x	!  Point 1 (x,y)
	            REAL*4    drneg3$f_lnpoint1_y
	            REAL*4    drneg3$f_lnpoint2_x	!  Point 2 (x,y)
	            REAL*4    drneg3$f_lnpoint2_y
	        END MAP
	    END UNION
	END STRUCTURE	! gks$typ_locpetneg3
! 
! 	
!  LOCATOR PET -4
! 
!  There are 2 possible sizes for this data record depending on the 
!  value of the attribute control flag (current or specified). Use constant
!  *K_TYP_LOC_NEG4CURR_REC or *K_TYP_LOC_NEG4SPEC_REC with function gks$sizeof to 
!  calculate the data record size for the INITIALIZE LOCATOR