Merge commit 'd26ed8388f100a12996c0b92a98040ef2ba7fa8e' as 'ast'

1 files changed, 124 insertions, 0 deletions

diff --git a/ast/GRF_PAR b/ast/GRF_PAR
new file mode 100644
index 0000000..0c1d9aa
--- /dev/null
+++ b/ast/GRF_PAR
@@ -0,0 +1,124 @@
+*+
+*  Name:
+*     GRF_PAR
+
+*  Purpose:
+*     Define the constants needed to implement Fortran GRF routines.
+
+*  Language:
+*     Fortran 77
+
+*  Type of Module:
+*     Include file.
+
+*  Description:
+*     This file contains definitions which are required by Fortran 77
+*     programs which implement their own grf routines (routines for
+*     drawing graphics primitive used by the AST Plot class).
+
+*  Copyright:
+*     Copyright (C) 1997-2006 Council for the Central Laboratory of the
+*     Research Councils
+
+*  Licence:
+*     This program is free software: you can redistribute it and/or
+*     modify it under the terms of the GNU Lesser General Public
+*     License as published by the Free Software Foundation, either
+*     version 3 of the License, or (at your option) any later
+*     version.
+*     
+*     This program is distributed in the hope that it will be useful,
+*     but WITHOUT ANY WARRANTY; without even the implied warranty of
+*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+*     GNU Lesser General Public License for more details.
+*     
+*     You should have received a copy of the GNU Lesser General
+*     License along with this program.  If not, see
+*     <http://www.gnu.org/licenses/>.
+
+*  Authors:
+*     DSB: David S. Berry (Starlink)
+
+*  History:
+*     13-JUN-2001 (DSB):
+*        Original version.
+*-
+
+*  Values identifying different graphics attributes.
+      INTEGER GRF__STYLE
+      PARAMETER ( GRF__STYLE  = 0 )
+
+      INTEGER GRF__WIDTH
+      PARAMETER ( GRF__WIDTH  = 1 )
+
+      INTEGER GRF__SIZE
+      PARAMETER ( GRF__SIZE   = 2 )
+
+      INTEGER GRF__FONT
+      PARAMETER ( GRF__FONT   = 3 )
+
+      INTEGER GRF__COLOUR
+      PARAMETER ( GRF__COLOUR = 4 )
+
+*  Values identifying different graphics primatives.
+      INTEGER GRF__TEXT
+      PARAMETER ( GRF__TEXT = 0 )
+
+      INTEGER GRF__LINE
+      PARAMETER ( GRF__LINE = 1 )
+
+      INTEGER GRF__MARK
+      PARAMETER ( GRF__MARK = 2 )
+
+*  The number of different graphics attributes.
+      INTEGER GRF__NATTR
+      PARAMETER ( GRF__NATTR = 5 )
+
+*  Values identifying capabilities.
+      INTEGER GRF__ESC
+      PARAMETER ( GRF__ESC = 0 )
+
+      INTEGER GRF__MJUST
+      PARAMETER ( GRF__MJUST = 1 )
+
+      INTEGER GRF__SCALES
+      PARAMETER ( GRF__SCALES = 2 )
+
+* Values identifying types of graphics escape sequence
+      INTEGER GRF__ESPER
+      PARAMETER ( GRF__ESPER = 1 )
+
+      INTEGER GRF__ESSUP
+      PARAMETER ( GRF__ESSUP = 2 )
+
+      INTEGER GRF__ESSUB
+      PARAMETER ( GRF__ESSUB = 3 )
+
+      INTEGER GRF__ESGAP
+      PARAMETER ( GRF__ESGAP = 4 )
+
+      INTEGER GRF__ESBAC
+      PARAMETER ( GRF__ESBAC = 5 )
+
+      INTEGER GRF__ESSIZ
+      PARAMETER ( GRF__ESSIZ = 6 )
+
+      INTEGER GRF__ESWID
+      PARAMETER ( GRF__ESWID = 7 )
+
+      INTEGER GRF__ESFON
+      PARAMETER ( GRF__ESFON = 8 )
+
+      INTEGER GRF__ESCOL
+      PARAMETER ( GRF__ESCOL = 9 )
+
+      INTEGER GRF__ESSTY
+      PARAMETER ( GRF__ESSTY = 10 )
+
+      INTEGER GRF__ESPOP
+      PARAMETER ( GRF__ESPOP = 11 )
+
+      INTEGER GRF__ESPSH
+      PARAMETER ( GRF__ESPSH = 12 )
+
+