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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
<HTML>
<HEAD><TITLE>Source t208d.f</TITLE></HEAD>
<BODY>
<a name="SYMSF"><h3>SUBROUTINE SYMSF ( FONT, SWCHAR )</h3></a>
<blockquote>
<table><tr><td align="left"><b>Argument Definitions</b> <small>(+ indicates altered content)</small><b></b><br></td></tr>
<tr><td><pre>INTEGER font(1), swchar(1)
</pre></td></tr></table>
<table><tr><td align="left"><b>Description</b></td></tr>
<tr><td><pre> (Select Font)
Select one of the Hershey fonts for subsequent text
plotting. Up to five fonts may be in effect at one time.
The last selected is the default one. If more than five
fonts are requested, the sixth will replace the first, the
seventh the second, and so on in a cyclic fashion. This
restriction is purely dimensional, and may easily be
changed if required. The case switch characters are
initialized to "<" and ">" for to-upper and to-lower
respectively. The backspace character switch is
initialized to 0, suppressing the backspace facility. The
arguments are:
FONT(*).....5-character string selecting font (see below).
SWCHAR(*)...Single character (e.g. 1H=) used as a switch
character to return to this font from another.
It will be interpreted as a switch character if
it occurs only once. However, two successive
switch characters for a single font will be
collapsed to a single character and will not be
interpreted as a font switch. A blank or zero
value indicates that no switch character is
selected.
The fonts are selected by a five-character string made up
of a 2-character case specification, a 2-character type
specification, and a 1-character variant specification, as
follows:
Case: UC - Upper Case
LC - Lower Case
Type: KR - Cartographic Roman (9)
KG - Cartographic Greek (9)
IR - Indexical Roman (13)
II - Indexical Roman Italic (13)
IG - Indexical Greek (13)
SA - Simplex ASCII (15)
BA - Block ASCII (15)
SR - Simplex Roman (21)
SS - Simplex Roman Script (21)
SG - Simplex Greek (21)
CR - Complex Normal Roman (21)
CI - Complex Normal Roman Italic (21)
CG - Complex Normal Greek (21)
CS - Complex Script (21)
DR - Duplex Roman (21)
TR - Triplex Roman (21)
GE - Gothic English (21)
GI - Gothic Italian (21)
GG - Gothic German (21)
CC - Complex Cyrillic (21)
Variant: 1 - Principal
2 - Secondary
3 - Tertiary
4 - Quaternary
Selector letters may be either upper- or lower-case. The
case specification is arranged such that if upper-case is
requested, upper-case text will be mapped into upper-case,
and lower-case into lower-case. If lower-case is
requested, both upper- and lower-case letters are mapped
into lower case. The four variants are provided to allow
representation of special characters within the limited
FORTRAN set. The Gothic and Cyrillic fonts have only two
variants available. Requests for variants 3 or 4 will be
reduced to variant 2. The ASCII fonts have only one
variant, and requests for variants 2, 3, or 4 will be
reduced to variant 1.
The numbers (9), (13), (15), and (21) following the type
indicate the height of the characters in raster units. The
spacing between lines of text is conventionally measured by
the printer's unit "em", giving the distance from the
bottom of one line of type to the bottom of the next line.
It should be 21 raster units for indexical size, and 32
raster units for normal size.
If any of the three parts of the font specification is in
error, a message will be issued, and a default for that
part will be assumed. The default corresponds to "UCTR1".
(01-APR-83)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
EXTERNAL REFERENCES (FUNCTION,SUBROUTINE,COMMON)
EXTERNAL REFS ERRAT, ERRCK, ERRMS, KARASC
EXTERNAL REFS KARCM2, KARUC, KARUPK, MIN0
EXTERNAL REFS MOD
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
EXTERNAL FUNCTIONS AND SUBROUTINES</pre></td></tr></table>
<table><tr><td><b>Source file:</b></td><td>t208d.f</td></tr>
<tr><td></td></tr>
</table>
<table><tr><td align="left"><b>Intrinsic Functions Called</b><br></td></tr>
<tr><td><pre>INTEGER min0, mod
</pre></td></tr></table>
<table><tr><td align="left"><b>External Functions and Subroutines Called</b><br></td></tr>
<tr><td><pre>INTEGER karasc, karcm2, karuc
SUBROUTINE errat, errck, errms, karupk
</pre></td></tr></table>
<table><tr><td align="left"><b>Local Variables</b> <small>(+ indicates altered content)</small><b></b><br></td></tr>
<tr><td><pre>INTEGER +accent, +alpha, +ampsnd, +at
INTEGER +ba, +beta, +caret, +cc
INTEGER +cg, +chi, +ci, +colon
INTEGER +comma, +cr, +cs, +cya
INTEGER +cyb, +cyche, +cyd, +cye
INTEGER +cyee, +cyeek, +cyf, +cyg
INTEGER +cyk, +cykha, +cyl, +cym
INTEGER +cymznk, +cyn, +cyo, +cyoo
INTEGER +cyp, +cyr, +cys, +cysh
INTEGER +cyshch, +cyt, +cytse, +cytznk
INTEGER +cyv, +cyya, +cyye, +cyyiri
INTEGER +cyyoo, +cyz, +cyzhe, +del
INTEGER +delta, +dollar, +dquote, +dr
INTEGER +epslon, +equals, +eta, +exclpt
INTEGER +fcase, +ftype, +fvar, +gamma
INTEGER +ge, +gg, +gi, +i
INTEGER +idig, +ig, +ii, +ilc
INTEGER +iota, +ir, +iuc, +kappa
INTEGER +kg, +kr, +lambda, +langle
INTEGER +lbrace, +lbrakt, +lca, +lcb
INTEGER +lcc, +lcd, +lce, +lcf
INTEGER +lcg, +lch, +lci, +lcj
INTEGER +lck, +lcl, +lcm, +lcn
INTEGER +lco, +lcp, +lcq, +lcr
INTEGER +lcs, +lct, +lcu, +lcv
INTEGER +lcw, +lcx, +lcy, +lcz
INTEGER +loc0, +loc0sv, +loclc, +locuc
INTEGER +lparen, +minus, +mu, +n20147
INTEGER +nochar, npr007, npr008, npr010
INTEGER npr011, npr012, npr013, npr015
INTEGER npr016, npr019, npr027, npr028
INTEGER npr032, npr033, npr043, npr044
INTEGER +nu, +nul, +number, +nx0028
INTEGER +nx0050, +nx0061, +nx0100, +nx0114
INTEGER +nx0141, +nx0204, +nx0244, +omcron
INTEGER +omega, +percnt, +period, +phi
INTEGER +pi, +plus, +psi, +query
INTEGER +rangle, +rbrace, +rbrakt, +rho
INTEGER +rparen, +rslant, +sa, +scolon
INTEGER +sg, +sigma, +slash, +space
INTEGER +squote, +sr, +ss, +star
INTEGER +tau, +theta, +tilde, +tr
INTEGER +uca, +ucb, +ucc, +ucd
INTEGER +uce, +ucf, +ucg, +uch
INTEGER +uci, +ucj, +uck, +ucl
INTEGER +ucm, +ucn, +uco, +ucp
INTEGER +ucq, +ucr, +ucs, +uct
INTEGER +ucu, +ucv, +ucw, +ucx
INTEGER +ucy, +ucz, +upslon, +uscore
INTEGER +vbar, +xi, +zeta
LOGICAL +error
</pre></td></tr></table>
<table>
<tr><td align="left"><b>Referenced Common Block Variables</b> <small>(+ indicates altered content)</small><b></b></td></tr>
<tr><td><pre>SYM02 INTEGER +kfont, maxfnt
SYM02 INTEGER +nfont, +nfused
SYM03 INTEGER +ascii(96,5)
SYM03 INTEGER +bswtch(5)
SYM03 INTEGER +fontid(5)
SYM03 INTEGER +fontnm(5,5)
SYM03 INTEGER +fswtch(5)
SYM03 INTEGER +lswtch(5)
SYM03 INTEGER +uswtch(5)
</pre></td></tr></table>
</blockquote>
<BR>
</BODY>
</HTML>
|
