1 .de CO				\" Set type color; no value => reset
2 .ie '\\$1'' .ds oC \\*(pC
3 .el \{\
4 .ds pC \\*(oC
5 .ds oC \\$1 \\$2 \\$3 \\$4
6 ...\}
7 \\X'color \\*(oC'\c
8 ..
9 .de BC				\" Set background color; no value => reset
10 .ie '\\$1'' .ds oB \\*(pB
11 .el \{\
12 .ds pB \\*(oB
13 .ds oB \\$1 \\$2 \\$3 \\$4
14 ...\}
15 \\X'bgcolor \\*(oB'\c
16 ..
17 .de CL
18 \\X'clear'\c
19 ..
20 .de IN				\" Include picture $1 with ul corner at ($2,$3)
21 .nr xc \\$2i
22 .nr yc \\$3i
23 \\X'picfile \\$1 \\n(xc \\n(yc'\c
24 ..
25 .de CW				\" clear window ($1,$2) is ul ($3,$4) is lr, uses bg color
26 .nr x0 \\$1i
27 .nr y0 \\$2i
28 .nr x1 \\$3i
29 .nr x2 \\$4i
30 \\X'clrwin \\n(x0 \\n(y0 \\n(x1 \\n(y1
31 ..
32 .de BW				\" window border ($1,$2) is ul ($3,$4) is lr, uses fg color
33 .nr x0 \\$1i
34 .nr y0 \\$2i
35 .nr x1 \\$3i
36 .nr x2 \\$4i
37 \\X'border \\n(x0 \\n(y0 \\n(x1 \\n(y1
38 ..
39 .de SL				\" start slide, args are optional title
40 .bp
41 .ce 0
42 .ft B
43 .nf
44 .if !'\\$1'' \{\
45 .ps 36p
46 .vs 36p
47 \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
48 ...\}
49 .ps 30p
50 .vs 30p
51 ..
52 .de PS				\" Start pic picture
53 .				\" $1 is height, $2 is width, both in inches
54 .sp .3
55 .in (\\n(.lu-\\$2)/2u
56 .ne \\$1
57 ..
58 .de PE				\" End pic picture
59 .in
60 .sp .6
61 ..
62 .de IS				\" Start ideal picture
63 .				\" $1 is width, $2 is height, both in inches
64 .				\" in ideal, however, we see two IS's for each picture,
65 .				\" and only the second one has the goods
66 .nr ID 0
67 .ie !'\\$1'' \{\
68 .sp .3
69 .nr ID 1
70 .in (\\n(.lu-\\$1)/2u
71 .ne \\$2
72 ...\}
73 ..
74 .de IE				\" End ideal picture
75 .if \\n(ID .in
76 .if \\n(ID .if t .sp .6
77 ..
78 .ds oC 255 255 255 255			\" type color
79 .ds oB   0   0   0   0			\" background color
80 .pl 4.8i				\" page length
81 .po .1i					\" left margin
82 .ll 6.2i				\" line length
83 .ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
84 .nf
85 .ps 30p
86 .vs 30p
87 .fp 1 R Lucida
88 .fp 2 I LucidaI
89 .fp 3 B LucidaB
90 .fp 4 BI LucidaBI
91 .fp 5 S LucidaS
92 .fp 6 SB LucidaSB
93 .fp 7 SI LucidaSI
94 .fp 8 SK LucidaSBI
95 .fp 9 CW LucidaCW
96 .ft B