1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
C*GRSY00 -- initialize font definition
C+
SUBROUTINE GRSY00
C
C This routine must be called once in order to initialize the tables
C defining the symbol numbers to be used for ASCII characters in each
C font, and to read the character digitization from a file.
C
C Arguments: none.
C
C Implicit input:
C The file with name specified in environment variable PGPLOT_FONT
C is read, if it is available.
C This is a binary file containing two arrays INDEX and BUFFER.
C The digitization of each symbol occupies a number of words in
C the INTEGER*2 array BUFFER; the start of the digitization
C for symbol number N is in BUFFER(INDEX(N)), where INDEX is an
C integer array of 3000 elements. Not all symbols 1...3000 have
C a representation; if INDEX(N) = 0, the symbol is undefined.
C
* PGPLOT uses the Hershey symbols for two `primitive' operations:
* graph markers and text. The Hershey symbol set includes several
* hundred different symbols in a digitized form that allows them to
* be drawn with a series of vectors (polylines).
*
* The digital representation of all the symbols is stored in common
* block /GRSYMB/. This is read from a disk file at run time. The
* name of the disk file is specified in environment variable
* PGPLOT_FONT.
*
* Modules:
*
* GRSY00 -- initialize font definition
* GRSYDS -- decode character string into list of symbol numbers
* GRSYMK -- convert marker number into symbol number
* GRSYXD -- obtain the polyline representation of a given symbol
*
* PGPLOT calls these routines as follows:
*
* Routine Called by
*
* GRSY00 GROPEN
* GRSYDS GRTEXT, GRLEN
* GRSYMK GRMKER,
* GRSYXD GRTEXT, GRLEN, GRMKER
***********************************************************************
C--
C (2-Jan-1984)
C 22-Jul-1984 - revise to use DATA statements [TJP].
C 5-Jan-1985 - make missing font file non-fatal [TJP].
C 9-Feb-1988 - change default file name to Unix name; overridden
C by environment variable PGPLOT_FONT [TJP].
C 29-Nov-1990 - move font assignment to GRSYMK.
C 7-Nov-1994 - look for font file in PGPLOT_DIR if PGPLOT_FONT is
C undefined [TJP].
C Hacked version -- uses CHARACTER*2 since G77 does not support INTEGER*2
C B. Toby 11/18/95
C-----------------------------------------------------------------------
C INTEGER*2 BUFFER(27000)
CHARACTER*2 BUFFER(27000)
INTEGER FNTFIL, IER, INDEX(3000), NC1, NC2, NC3
INTEGER L, GRTRIM
COMMON /GRSYMB/ NC1, NC2, INDEX, BUFFER
CHARACTER*128 FF
C
C Read the font file. If an I/O error occurs, it is ignored; the
C effect will be that all symbols will be undefined (treated as
C blank spaces).
C
CALL GRGFIL('FONT', FF)
L = GRTRIM(FF)
IF (L.LT.1) L = 1
CALL GRGLUN(FNTFIL)
OPEN (UNIT=FNTFIL, FILE=FF(1:L), FORM='UNFORMATTED',
2 STATUS='OLD', IOSTAT=IER)
IF (IER.EQ.0) READ (UNIT=FNTFIL, IOSTAT=IER)
1 NC1,NC2,NC3,INDEX,BUFFER
IF (IER.EQ.0) CLOSE (UNIT=FNTFIL, IOSTAT=IER)
CALL GRFLUN(FNTFIL)
IF (IER.NE.0) THEN
CALL GRWARN('Unable to read font file: '//FF(:L))
CALL GRWARN('Use environment variable PGPLOT_FONT to specify '
: //'the location of the PGPLOT grfont.dat file.')
END IF
RETURN
END
|
