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
|
--- plfig.c.orig Tue Jul 5 09:21:25 1988
+++ plfig.c Wed Apr 3 10:27:15 2002
@@ -121,7 +121,48 @@
htrue = vtrue = 0;
}
-troff(s) /* handle ".ps n" to set the pen size to "n" pixels */
+/* handle ".ps n" to set the pen size to "n" pixels */
+/* handle ".ft n" to set the output font to number n
+ (.ft value)
+ -1 Default font
+ 0 Times Roman
+ 1 Times Italic
+ 2 Times Bold
+ 3 Times Bold Italic
+ 4 AvantGarde Book
+ 5 AvantGarde Book Oblique
+ 6 AvantGarde Demi
+ 7 AvantGarde Demi Oblique
+ 8 Bookman Light
+ 9 Bookman Light Italic
+ 10 Bookman Demi
+ 11 Bookman Demi Italic
+ 12 Courier
+ 13 Courier Oblique
+ 14 Courier Bold
+ 15 Courier Bold Oblique
+ 16 Helvetica
+ 17 Helvetica Oblique
+ 18 Helvetica Bold
+ 19 Helvetica Bold Oblique
+ 20 Helvetica Narrow
+ 21 Helvetica Narrow Oblique
+ 22 Helvetica Narrow Bold
+ 23 Helvetica Narrow Bold Oblique
+ 24 New Century Schoolbook Roman
+ 25 New Century Schoolbook Italic
+ 26 New Century Schoolbook Bold
+ 27 New Century Schoolbook Bold Italic
+ 28 Palatino Roman
+ 29 Palatino Italic
+ 30 Palatino Bold
+ 31 Palatino Bold Italic
+ 32 Symbol
+ 33 Zapf Chancery Medium Italic
+ 34 Zapf Dingbats
+*/
+
+troff(s)
char *s;
{
if (strncmp (s, ".ps", 3) == 0) {
@@ -131,6 +172,16 @@
pensize (size);
else
fprintf (stderr, "Malformed .ps command: %s\n", s);
+ return;
+ }
+ if (strncmp (s, ".ft", 3) == 0) {
+ int size;
+ extern int font;
+
+ if (sscanf (s + 3, " %d ", &size) == 1)
+ font = size;
+ else
+ fprintf (stderr, "Malformed .ft command: %s\n", s);
return;
}
|
