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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# FONT.COM -- Character width font tables. Each array contains the width
# of ASCII chars 32 (space) thru 126 (~) expressed as 10 times the width
# in pixels as drawn on a 300dpi page. This allows us to compute fractional
# pixels when placing strings.
#
# The default font chosen is a 10-point Times-Roman in normal, bold and italic.
# Other font sizes chosen will be scaled from these values. Fixed width fonts
# don't need width tables and are defined in the PSTOOLS.H file.
# Set an alias for the width of a space char so we can change it easily
# in the package include and not forget about it here.
define SW SPACE_WIDTH
# Declare the width tables.
int i
short roman[96], bold[96], italic[96]
# Times-Roman 10-point normal.
data (roman(i), i= 1, 7) / SW, 33, 41, 50, 50, 83, 78/
data (roman(i), i= 8,14) / 33, 33, 33, 50, 56, 25, 33/
data (roman(i), i=15,21) / 25, 28, 50, 50, 50, 50, 50/
data (roman(i), i=22,28) / 50, 50, 50, 50, 50, 28, 28/
data (roman(i), i=29,35) / 56, 56, 56, 44, 92, 72, 67/
data (roman(i), i=36,42) / 67, 72, 61, 56, 72, 72, 33/
data (roman(i), i=43,49) / 39, 72, 61, 89, 72, 72, 56/
data (roman(i), i=50,56) / 72, 67, 56, 61, 72, 72, 94/
data (roman(i), i=57,63) / 72, 72, 61, 33, 28, 33, 47/
data (roman(i), i=64,70) / 50, 33, 44, 50, 44, 50, 44/
data (roman(i), i=71,77) / 33, 50, 50, 28, 28, 50, 28/
data (roman(i), i=78,84) / 78, 50, 50, 50, 50, 33, 39/
data (roman(i), i=85,91) / 28, 50, 50, 72, 50, 50, 44/
data (roman(i), i=92,96) / 48, 20, 48, 54, 0/
# Times-Roman 10-point bold.
data (bold(i), i= 1, 7) / SW, 33, 56, 50, 50, 100, 83/
data (bold(i), i= 8,14) / 33, 33, 33, 50, 57, 25, 33/
data (bold(i), i=15,21) / 25, 28, 50, 50, 50, 50, 50/
data (bold(i), i=22,28) / 50, 50, 50, 50, 50, 33, 33/
data (bold(i), i=29,35) / 57, 57, 57, 50, 93, 72, 67/
data (bold(i), i=36,42) / 72, 72, 67, 61, 78, 78, 39/
data (bold(i), i=43,49) / 50, 78, 67, 94, 72, 78, 61/
data (bold(i), i=50,56) / 78, 72, 56, 67, 72, 72, 100/
data (bold(i), i=57,63) / 72, 72, 67, 33, 28, 33, 58/
data (bold(i), i=64,70) / 50, 33, 50, 56, 44, 56, 44/
data (bold(i), i=71,77) / 33, 50, 56, 28, 33, 56, 28/
data (bold(i), i=78,84) / 83, 56, 50, 56, 56, 44, 39/
data (bold(i), i=85,91) / 33, 56, 50, 72, 50, 50, 44/
data (bold(i), i=92,96) / 39, 22, 39, 52, 0/
# Times-Roman 10-point italic.
data (italic(i), i= 1, 7) / SW, 33, 42, 50, 50, 83, 78/
data (italic(i), i= 8,14) / 33, 33, 33, 50, 68, 25, 33/
data (italic(i), i=15,21) / 25, 28, 50, 50, 50, 50, 50/
data (italic(i), i=22,28) / 50, 50, 50, 50, 50, 33, 33/
data (italic(i), i=29,35) / 68, 68, 68, 50, 92, 61, 61/
data (italic(i), i=36,42) / 67, 72, 61, 61, 72, 72, 33/
data (italic(i), i=43,49) / 44, 67, 56, 83, 67, 72, 61/
data (italic(i), i=50,56) / 72, 61, 50, 56, 72, 61, 83/
data (italic(i), i=57,63) / 61, 56, 56, 39, 28, 39, 42/
data (italic(i), i=64,70) / 50, 33, 50, 50, 44, 50, 44/
data (italic(i), i=71,77) / 28, 50, 50, 28, 28, 44, 28/
data (italic(i), i=78,84) / 72, 50, 50, 50, 50, 39, 39/
data (italic(i), i=85,91) / 28, 50, 44, 67, 44, 44, 39/
data (italic(i), i=92,96) / 40, 27, 40, 54, 0/
|
