📄 gksdefs.f
字号:
INTEGER*4 GKS$M_PLINE_COLOR
PARAMETER (GKS$M_PLINE_COLOR = '00000004'X)
INTEGER*4 GKS$M_MARKERTYPE
PARAMETER (GKS$M_MARKERTYPE = '00000008'X)
INTEGER*4 GKS$M_MARKERSIZE
PARAMETER (GKS$M_MARKERSIZE = '00000010'X)
INTEGER*4 GKS$M_PMARK_COLOR
PARAMETER (GKS$M_PMARK_COLOR = '00000020'X)
INTEGER*4 GKS$M_TEXT_FONT_PREC
PARAMETER (GKS$M_TEXT_FONT_PREC = '00000040'X)
INTEGER*4 GKS$M_CHAR_EXPAN_FAC
PARAMETER (GKS$M_CHAR_EXPAN_FAC = '00000080'X)
INTEGER*4 GKS$M_CHAR_SPACE
PARAMETER (GKS$M_CHAR_SPACE = '00000100'X)
INTEGER*4 GKS$M_TEXT_COLOR
PARAMETER (GKS$M_TEXT_COLOR = '00000200'X)
INTEGER*4 GKS$M_FILL_INTER_STYLE
PARAMETER (GKS$M_FILL_INTER_STYLE = '00000400'X)
INTEGER*4 GKS$M_FILL_STYLE
PARAMETER (GKS$M_FILL_STYLE = '00000800'X)
INTEGER*4 GKS$M_FILL_COLOR
PARAMETER (GKS$M_FILL_COLOR = '00001000'X)
INTEGER*4 GKS$M_UNCHANGE_PLINE
PARAMETER (GKS$M_UNCHANGE_PLINE = '00002000'X)
INTEGER*4 GKS$M_UNCHANGE_PMARK
PARAMETER (GKS$M_UNCHANGE_PMARK = '00004000'X)
INTEGER*4 GKS$M_UNCHANGE_TEXT
PARAMETER (GKS$M_UNCHANGE_TEXT = '00008000'X)
INTEGER*4 GKS$M_UNCHANGE_FILL
PARAMETER (GKS$M_UNCHANGE_FILL = '00010000'X)
INTEGER*4 GKS$M_EDGETYPE
PARAMETER (GKS$M_EDGETYPE = '00020000'X)
INTEGER*4 GKS$M_EDGEWIDTH
PARAMETER (GKS$M_EDGEWIDTH = '00040000'X)
INTEGER*4 GKS$M_EDGE_COLOR
PARAMETER (GKS$M_EDGE_COLOR = '00080000'X)
INTEGER*4 GKS$M_EDGE_CONTROL
PARAMETER (GKS$M_EDGE_CONTROL = '00100000'X)
INTEGER*4 GKS$M_SIMULATION
PARAMETER (GKS$M_SIMULATION = '40000000'X)
! USA paper sizes
INTEGER*4 GKS$M_PAPERSIZE_A
PARAMETER (GKS$M_PAPERSIZE_A = '00000000'X)
INTEGER*4 GKS$M_PAPERSIZE_LEGAL
PARAMETER (GKS$M_PAPERSIZE_LEGAL = '00010000'X)
INTEGER*4 GKS$M_PAPERSIZE_B
PARAMETER (GKS$M_PAPERSIZE_B = '00020000'X)
INTEGER*4 GKS$M_PAPERSIZE_C
PARAMETER (GKS$M_PAPERSIZE_C = '00030000'X)
INTEGER*4 GKS$M_PAPERSIZE_D
PARAMETER (GKS$M_PAPERSIZE_D = '00040000'X)
INTEGER*4 GKS$M_PAPERSIZE_E
PARAMETER (GKS$M_PAPERSIZE_E = '00050000'X)
INTEGER*4 GKS$M_PAPERSIZE_COMP
PARAMETER (GKS$M_PAPERSIZE_COMP = '00060000'X)
! Metric paper sizes
INTEGER*4 GKS$M_PAPERSIZE_A0
PARAMETER (GKS$M_PAPERSIZE_A0 = '00100000'X)
INTEGER*4 GKS$M_PAPERSIZE_A1
PARAMETER (GKS$M_PAPERSIZE_A1 = '00200000'X)
INTEGER*4 GKS$M_PAPERSIZE_A2
PARAMETER (GKS$M_PAPERSIZE_A2 = '00300000'X)
INTEGER*4 GKS$M_PAPERSIZE_A3
PARAMETER (GKS$M_PAPERSIZE_A3 = '00400000'X)
INTEGER*4 GKS$M_PAPERSIZE_A4
PARAMETER (GKS$M_PAPERSIZE_A4 = '00500000'X)
INTEGER*4 GKS$M_PAPERSIZE_A5
PARAMETER (GKS$M_PAPERSIZE_A5 = '00600000'X)
INTEGER*4 GKS$M_PAPERSIZE_B4
PARAMETER (GKS$M_PAPERSIZE_B4 = '00700000'X)
INTEGER*4 GKS$M_PAPERSIZE_B5
PARAMETER (GKS$M_PAPERSIZE_B5 = '00800000'X)
! Page formats
INTEGER*4 GKS$M_PORTRAIT
PARAMETER (GKS$M_PORTRAIT = '10000000'X)
INTEGER*4 GKS$M_LANDSCAPE
PARAMETER (GKS$M_LANDSCAPE = '00000000'X)
! Color Map
INTEGER*4 GKS$M_COLOR_MAP_VIRTUAL
PARAMETER (GKS$M_COLOR_MAP_VIRTUAL = '00000000'X)
INTEGER*4 GKS$M_COLOR_MAP_PHYSICAL
PARAMETER (GKS$M_COLOR_MAP_PHYSICAL = '01000000'X)
! LaserJet DPI
INTEGER*4 GKS$M_DPI_75
PARAMETER (GKS$M_DPI_75 = '01000000'X)
INTEGER*4 GKS$M_DPI_150
PARAMETER (GKS$M_DPI_150 = '02000000'X)
INTEGER*4 GKS$M_DPI_300
PARAMETER (GKS$M_DPI_300 = '00000000'X)
! DPI
INTEGER*4 GKS$M_DPI_72
PARAMETER (GKS$M_DPI_72 = '01000000'X)
INTEGER*4 GKS$M_DPI_90
PARAMETER (GKS$M_DPI_90 = '00000000'X)
INTEGER*4 GKS$M_DPI_144
PARAMETER (GKS$M_DPI_144 = '02000000'X)
INTEGER*4 GKS$M_DPI_180
PARAMETER (GKS$M_DPI_180 = '03000000'X)
! Color Table Size
INTEGER*4 GKS$M_COLOR_MAP_2
PARAMETER (GKS$M_COLOR_MAP_2 = '04000000'X)
INTEGER*4 GKS$M_COLOR_MAP_8
PARAMETER (GKS$M_COLOR_MAP_8 = '08000000'X)
INTEGER*4 GKS$M_COLOR_MAP_16
PARAMETER (GKS$M_COLOR_MAP_16 = '0C000000'X)
INTEGER*4 GKS$M_COLOR_MAP_256
PARAMETER (GKS$M_COLOR_MAP_256 = '00000000'X)
! Regis output only
INTEGER*4 GKS$M_VT125_OUTPUT
PARAMETER (GKS$M_VT125_OUTPUT = '00100000'X)
INTEGER*4 GKS$M_VT125BW_OUTPUT
PARAMETER (GKS$M_VT125BW_OUTPUT = '00200000'X)
INTEGER*4 GKS$M_VT240_OUTPUT
PARAMETER (GKS$M_VT240_OUTPUT = '00300000'X)
INTEGER*4 GKS$M_VT240BW_OUTPUT
PARAMETER (GKS$M_VT240BW_OUTPUT = '00400000'X)
INTEGER*4 GKS$M_VT330_OUTPUT
PARAMETER (GKS$M_VT330_OUTPUT = '00500000'X)
INTEGER*4 GKS$M_VT340_OUTPUT
PARAMETER (GKS$M_VT340_OUTPUT = '00600000'X)
INTEGER*4 GKS$M_VT286_OUTPUT
PARAMETER (GKS$M_VT286_OUTPUT = '00300000'X)
INTEGER*4 GKS$M_VT284_OUTPUT
PARAMETER (GKS$M_VT284_OUTPUT = '00400000'X)
! VT3xx masks
INTEGER*4 GKS$M_NOPOINTER
PARAMETER (GKS$M_NOPOINTER = '00010000'X)
INTEGER*4 GKS$M_COLOR_MAP_RESET
PARAMETER (GKS$M_COLOR_MAP_RESET = '01000000'X)
! Metafile encodings
INTEGER*4 GKS$M_CHARACTER_ENCODING
PARAMETER (GKS$M_CHARACTER_ENCODING = '00020000'X)
INTEGER*4 GKS$M_BINARY_ENCODING
PARAMETER (GKS$M_BINARY_ENCODING = '00030000'X)
INTEGER*4 GKS$M_CLEAR_TEXT_ENCODING
PARAMETER (GKS$M_CLEAR_TEXT_ENCODING = '00040000'X)
! Color Map Size
! Logical Types
INTEGER*4 GKS$K_FALSE
PARAMETER (GKS$K_FALSE = '00000000'X)
INTEGER*4 GKS$K_TRUE
PARAMETER (GKS$K_TRUE = '00000001'X)
! Visibility
INTEGER*4 GKS$K_INVISIBLE
PARAMETER (GKS$K_INVISIBLE = '00000000'X)
INTEGER*4 GKS$K_VISIBLE
PARAMETER (GKS$K_VISIBLE = '00000001'X)
! Detectability
INTEGER*4 GKS$K_UNDETECTABLE
PARAMETER (GKS$K_UNDETECTABLE = '00000000'X)
INTEGER*4 GKS$K_DETECTABLE
PARAMETER (GKS$K_DETECTABLE = '00000001'X)
! Highlighting
INTEGER*4 GKS$K_NORMAL
PARAMETER (GKS$K_NORMAL = '00000000'X)
INTEGER*4 GKS$K_HIGHLIGHTED
PARAMETER (GKS$K_HIGHLIGHTED = '00000001'X)
! Input Class
INTEGER*4 GKS$K_INPUT_CLASS_NONE
PARAMETER (GKS$K_INPUT_CLASS_NONE = '00000000'X)
INTEGER*4 GKS$K_INPUT_CLASS_LOCATOR
PARAMETER (GKS$K_INPUT_CLASS_LOCATOR = '00000001'X)
INTEGER*4 GKS$K_INPUT_CLASS_STROKE
PARAMETER (GKS$K_INPUT_CLASS_STROKE = '00000002'X)
INTEGER*4 GKS$K_INPUT_CLASS_VALUATOR
PARAMETER (GKS$K_INPUT_CLASS_VALUATOR = '00000003'X)
INTEGER*4 GKS$K_INPUT_CLASS_CHOICE
PARAMETER (GKS$K_INPUT_CLASS_CHOICE = '00000004'X)
INTEGER*4 GKS$K_INPUT_CLASS_PICK
PARAMETER (GKS$K_INPUT_CLASS_PICK = '00000005'X)
INTEGER*4 GKS$K_INPUT_CLASS_STRING
PARAMETER (GKS$K_INPUT_CLASS_STRING = '00000006'X)
INTEGER*4 GKS$K_INPUT_CLASS_VIEWPORT
PARAMETER (GKS$K_INPUT_CLASS_VIEWPORT = '00000007'X)
! Simultaneous Events Flag
INTEGER*4 GKS$K_NOMORE_EVENTS
PARAMETER (GKS$K_NOMORE_EVENTS = '00000000'X)
INTEGER*4 GKS$K_MORE_EVENTS
PARAMETER (GKS$K_MORE_EVENTS = '00000001'X)
! Coordinate Switch
INTEGER*4 GKS$K_COORDINATES_WC
PARAMETER (GKS$K_COORDINATES_WC = '00000000'X)
INTEGER*4 GKS$K_COORDINATES_NDC
PARAMETER (GKS$K_COORDINATES_NDC = '00000001'X)
! Dynamic modification
INTEGER*4 GKS$K_IRG
PARAMETER (GKS$K_IRG = '00000000'X)
INTEGER*4 GKS$K_IMM
PARAMETER (GKS$K_IMM = '00000001'X)
! Input on device handler
INTEGER*4 GKS$K_CURSOR_MOVEMENT
PARAMETER (GKS$K_CURSOR_MOVEMENT = '00000001'X)
INTEGER*4 GKS$K_CHARACTER
PARAMETER (GKS$K_CHARACTER = '00000002'X)
INTEGER*4 GKS$K_POINT_TRIGGER
PARAMETER (GKS$K_POINT_TRIGGER = '00000003'X)
INTEGER*4 GKS$K_TERMINATION_TRIGGER
PARAMETER (GKS$K_TERMINATION_TRIGGER = '00000004'X)
INTEGER*4 GKS$K_DELETE_KEY
PARAMETER (GKS$K_DELETE_KEY = '00000005'X)
INTEGER*4 GKS$K_BREAK
PARAMETER (GKS$K_BREAK = '00000006'X)
INTEGER*4 GKS$K_CHOICE_NUMBER
PARAMETER (GKS$K_CHOICE_NUMBER = '00000007'X)
INTEGER*4 GKS$K_CYCLE
PARAMETER (GKS$K_CYCLE = '00000008'X)
INTEGER*4 GKS$K_NOCYCLE
PARAMETER (GKS$K_NOCYCLE = '00000009'X)
INTEGER*4 GKS$K_STROKE_MEASURE
PARAMETER (GKS$K_STROKE_MEASURE = '0000000A'X)
INTEGER*4 GKS$K_TOGGLE_INSERT
PARAMETER (GKS$K_TOGGLE_INSERT = '0000000B'X)
INTEGER*4 GKS$K_RESTORE_INITIAL
PARAMETER (GKS$K_RESTORE_INITIAL = '0000000C'X)
INTEGER*4 GKS$K_BUFFER_BEGINNING
PARAMETER (GKS$K_BUFFER_BEGINNING = '0000000D'X)
INTEGER*4 GKS$K_BUFFER_END
PARAMETER (GKS$K_BUFFER_END = '0000000E'X)
INTEGER*4 GKS$K_VALUATOR_VALUE
PARAMETER (GKS$K_VALUATOR_VALUE = '0000000F'X)
INTEGER*4 GKS$K_SIGNAL
PARAMETER (GKS$K_SIGNAL = '00000010'X)
INTEGER*4 GKS$K_LOG_ERROR
PARAMETER (GKS$K_LOG_ERROR = '00000011'X)
! Commands for Japanese Workstation Manager
INTEGER*4 GKS$K_JWM_CHARACTER
PARAMETER (GKS$K_JWM_CHARACTER = '00000002'X)
INTEGER*4 GKS$K_JWM_TERMINATION_TRIGGER
PARAMETER (GKS$K_JWM_TERMINATION_TRIGGER = '00000004'X)
INTEGER*4 GKS$K_JWM_DELETE
PARAMETER (GKS$K_JWM_DELETE = '00000005'X)
INTEGER*4 GKS$K_JWM_BREAK
PARAMETER (GKS$K_JWM_BREAK = '00000006'X)
INTEGER*4 GKS$K_JWM_TOGGLE_INSERT
PARAMETER (GKS$K_JWM_TOGGLE_INSERT = '0000000B'X)
INTEGER*4 GKS$K_JWM_RECALL_INIT_STRING
PARAMETER (GKS$K_JWM_RECALL_INIT_STRING = '0000000C'X)
INTEGER*4 GKS$K_JWM_BUFFER_BEGINNING
PARAMETER (GKS$K_JWM_BUFFER_BEGINNING = '0000000D'X)
INTEGER*4 GKS$K_JWM_BUFFER_END
PARAMETER (GKS$K_JWM_BUFFER_END = '0000000E'X)
INTEGER*4 GKS$K_JWM_MOVE_CH_CURSOR_LEFT
PARAMETER (GKS$K_JWM_MOVE_CH_CURSOR_LEFT = '00000015'X)
INTEGER*4 GKS$K_JWM_MOVE_CH_CURSOR_RIGHT
PARAMETER (GKS$K_JWM_MOVE_CH_CURSOR_RIGHT = '00000016'X)
INTEGER*4 GKS$K_JWM_NON_CONV
PARAMETER (GKS$K_JWM_NON_CONV = '00000017'X)
INTEGER*4 GKS$K_JWM_CONV_HIRAGANA
PARAMETER (GKS$K_JWM_CONV_HIRAGANA = '00000018'X)
INTEGER*4 GKS$K_JWM_CONV_KATAKANA
PARAMETER (GKS$K_JWM_CONV_KATAKANA = '00000019'X)
INTEGER*4 GKS$K_JWM_CONV_FULL
PARAMETER (GKS$K_JWM_CONV_FULL = '0000001A'X)
INTEGER*4 GKS$K_JWM_CONV_HALF
PARAMETER (GKS$K_JWM_CONV_HALF = '0000001B'X)
INTEGER*4 GKS$K_JWM_CONV_SYMBOL
PARAMETER (GKS$K_JWM_CONV_SYMBOL = '0000001C'X)
INTEGER*4 GKS$K_JWM_CONV_KANJI
PARAMETER (GKS$K_JWM_CONV_KANJI = '0000001D'X)
INTEGER*4 GKS$K_JWM_PREV_KANJI
PARAMETER (GKS$K_JWM_PREV_KANJI = '0000001E'X)
INTEGER*4 GKS$K_JWM_SHRINK_CLAUSE
PARAMETER (GKS$K_JWM_SHRINK_CLAUSE = '0000001F'X)
INTEGER*4 GKS$K_JWM_EXPAND_CLAUSE
PARAMETER (GKS$K_JWM_EXPAND_CLAUSE = '00000020'X)
INTEGER*4 GKS$K_JWM_NEXT_CLAUSE
PARAMETER (GKS$K_JWM_NEXT_CLAUSE = '00000021'X)
INTEGER*4 GKS$K_JWM_PREV_CLAUSE
PARAMETER (GKS$K_JWM_PREV_CLAUSE = '00000022'X)
INTEGER*4 GKS$K_JWM_CANCEL_CONV
PARAMETER (GKS$K_JWM_CANCEL_CONV = '00000023'X)
INTEGER*4 GKS$K_JWM_CONV_DONE
PARAMETER (GKS$K_JWM_CONV_DONE = '00000024'X)
! Input on device handler
INTEGER*4 GKS$K_RELATIVE
PARAMETER (GKS$K_RELATIVE = '00000000'X)
INTEGER*4 GKS$K_ABSOLUTE
PARAMETER (GKS$K_ABSOLUTE = '00000001'X)
! Input on device handler
INTEGER*4 GKS$K_START_INPUT
PARAMETER (GKS$K_START_INPUT = '00000001'X)
INTEGER*4 GKS$K_GET_INPUT
PARAMETER (GKS$K_GET_INPUT = '00000002'X)
INTEGER*4 GKS$K_STOP_INPUT
PARAMETER (GKS$K_STOP_INPUT = '00000003'X)
INTEGER*4 GKS$K_IGNORE_INPUT
PARAMETER (GKS$K_IGNORE_INPUT = '00000004'X)
INTEGER*4 GKS$K_ACCEPT_INPUT
PARAMETER (GKS$K_ACCEPT_INPUT = '00000005'X)
! Arc types
INTEGER*4 GKS$K_ARC_TYPE_OPEN
PARAMETER (GKS$K_ARC_TYPE_OPEN = '00000001'X)
INTEGER*4 GKS$K_ARC_TYPE_PIE
PARAMETER (GKS$K_ARC_TYPE_PIE = '00000002'X)
INTEGER*4 GKS$K_ARC_TYPE_CHORD
PARAMETER (GKS$K_ARC_TYPE_CHORD = '00000003'X)
! GDP's
INTEGER*4 GKS$K_GDP_DISJOINT_PLINE
PARAMETER (GKS$K_GDP_DISJOINT_PLINE = 'FFFFFF9C'X)
INTEGER*4 GKS$K_GDP_CIRCLE_CTR_PT
PARAMETER (GKS$K_GDP_CIRCLE_CTR_PT = 'FFFFFF9B'X)
INTEGER*4 GKS$K_GDP_CIRCLE_3PT
PARAMETER (GKS$K_GDP_CIRCLE_3PT = 'FFFFFF9A'X)
INTEGER*4 GKS$K_GDP_CIRCLE_CTR_RAD
PARAMETER (GKS$K_GDP_CIRCLE_CTR_RAD = 'FFFFFF99'X)
INTEGER*4 GKS$K_GDP_CIRCLE_2PT_RAD
PARAMETER (GKS$K_GDP_CIRCLE_2PT_RAD = 'FFFFFF98'X)
INTEGER*4 GKS$K_GDP_ARC_CTR_RAD_ANG
PARAMETER (GKS$K_GDP_ARC_CTR_RAD_ANG = 'FFFFFF97'X)
INTEGER*4 GKS$K_GDP_ARC_CTR_2PT
PARAMETER (GKS$K_GDP_ARC_CTR_2PT = 'FFFFFF96'X)
INTEGER*4 GKS$K_GDP_ARC_3PT
PARAMETER (GKS$K_GDP_ARC_3PT = 'FFFFFF95'X)
INTEGER*4 GKS$K_GDP_ARC_CTR_2VEC_RAD
PARAMETER (GKS$K_GDP_ARC_CTR_2VEC_RAD = 'FFFFFF94'X)
INTEGER*4 GKS$K_GDP_ARC_2PT_RAD
PARAMETER (GKS$K_GDP_ARC_2PT_RAD = 'FFFFFF93'X)
INTEGER*4 GKS$K_GDP_ARC_CTR_PT_ANG
PARAMETER (GKS$K_GDP_ARC_CTR_PT_ANG = 'FFFFFF92'X)
INTEGER*4 GKS$K_GDP_ELLIPSE_CTR_AXES
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -