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 97