.\"	slides macros
.\"	rsc via rob
.\"
.\"	... | troff | striptease | lp -dstdout |
.\"		awk '{print} NR==1 {print "%%BoundingBox: 0 0 640 480"}' >out.ps
.\"
.\"
.\" 	PS, PE, P1, P2, OF, B, BI, R, I, CW
.\"	hijacked from /sys/lib/tmac/tmac.s
.\"
.de PS	\" start picture
.	\" $1 is height, $2 is width, both in inches
.if \\$1>0 .sp .35
.ie \\$1>0 .nr $1 \\$1
.el .nr $1 0
.in (\\n(.lu-\\$2)/2u
.ne \\$1
..
.de PE	\" end of picture
.in
.if \\n($1>0 .sp .65
..
.			\" .P1/.P2 macros for programs
.
.nr XP 1	\" delta point size for program
.nr XV 1p	\" delta vertical for programs
.nr XT 8	\" delta tab stop for programs
.nr DV .5v	\" space before start of program
.
.de P1
.nr p1 .4i	\" program indent in .p1
.nr OI .4i
.if \\n(.$ .nr p1 \\$1
.br
.nr v \\n(.v
.di p1
.in \\n(p1ub
.nf
.ps -\\n(XP
.vs -\\n(XVu
.ft CW
.nr t \\n(XT*\\w'x'u
.ta 1u*\\ntu 2u*\\ntu 3u*\\ntu 4u*\\ntu 5u*\\ntu 6u*\\ntu 7u*\\ntu 8u*\\ntu 9u*\\ntu 10u*\\ntu 11u*\\ntu 12u*\\ntu 13u*\\ntu 14u*\\ntu
..
.
.de P2
.br
.ps \\n(PS
.vs \\n(VSp
.vs \\nvu
.ft 1
.in
.di
.br
.sp \\n(DVu
.br
.if \\n(.$=0 .ne \\n(dnu  \" -\\n(DVu
.nf
.p1
.sp \\n(DVu
.br
.fi
..
.		\" fontname(CW) fontstr(\f(CW) first_arg goes_after goes_before
.de OF		\" this is completely WRONG if any argument contains "'s
.nr PQ \\n(.f
.hy 0
.if t .if "\\$3"" .ft \\$1
.if t .if !"\\$3"" \{\
\&\\$5\\$2\\$3\\f\\n(PQ\\$4
.hy \\n(HY\}
.if n \{\
.	if \\n(.$=5 \&\\$5
.	ie "\\$3"" .ul 1000
.	el .ul 1
.	if \\n(.$=3 \&\\$3
.	if \\n(.$>3 \&\\$3\\c
.	if \\n(.$>3 \&\\$4
.	hy \\n(HY\}
..
.	\"B - bold font
.de B
.OF 3 \\f3 "\\$1" "\\$2" "\\$3"
..
.de BI	\" bold italic -- only on 202
.OF 4 \\f4 "\\$1" "\\$2" "\\$3"
..
.	\"R - Roman font
.de R
.nr PQ \\n(.f
.ft 1
.ie \\n(.$>0 \&\\$1\f\\n(PQ\\$2
.el .if n .ul 0
..
.	\"I - italic font
.de I
.OF 2 \\f2 "\\$1" "\\$2" "\\$3"
..
.	\"CW - constant width font
.de CW
.nr PQ \\n(.f
.if t .if \\n(.$>0 \%\&\\$3\f(CW\\$1\f\\n(PQ\&\\$2
.if t .if \\n(.$=0 .OF CW \\f(CW "\\$1" "\\$2" "\\$3"
.if n .OF CW \\f(CW "\\$1" "\\$2" "\\$3"
..
.\"
.\""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
.\"
.\"	begin ppt-specific troff code
.\"
.\"	pull in Lucida Sans CW scaled for use with Times
.fp 5 CW LucidaSansCW83
.\"
.\"	embed raw postscript commands in output
.\"
.\"	groff uses \\X'ps: exec foo'
.\"	troff uses \\X'PS foo'
.\"
.\"	groff treats year 2000 as \n(yr == 100,
.\"	troff treats it as \n(yr == 0.
.\"
.ie \n(yr>=100 .ds Ps "ps: exec
.el .ds Ps PS
.de XX
\\X'\\$1'
.br
.sp -1
..
.\"
.\"
.\"	set color rgb triple	(invoked as .RGB, \\$1 is B)
.de RG
.XX "\*(Ps \\$2 \\$3 \\$4 setrgbcolor
..
.de CO
.if "\\$1"black" .RGB 0 0 0
.if "\\$1"white" .RGB 1 1 1
.if "\\$1"red" .RGB 1 0 0
.if "\\$1"green" .RGB 0 1 0
.if "\\$1"blue" .RGB 0 0 1
.if "\\$1"cyan" .RGB 0 1 1
.if "\\$1"magenta" .RGB 1 0 1
.if "\\$1"yellow" .RGB 1 1 0
.if "\\$1"grey" .RGB .5 .5 .5
.if "\\$1"lightgrey" .RGB .75 .75 .75
.if "\\$1"darkgrey" .RGB .25 .25 .25
.if "\\$1"paleyellow" .RGB 1 1 .6667
.if "\\$1"darkyellow" .RGB .9333 .9333 .6196
.if "\\$1"darkgreen" .RGB .2667 .5333 .2667
.if "\\$1"palegreen" .RGB .6667 1 .6667
.if "\\$1"medgreen" .RGB .5333 .8 .5333
.if "\\$1"darkblue" .RGB 0 0 .3333
.if "\\$1"palebluegreen" .RGB .6667 1 1
.if "\\$1"paleblue" .RGB 0 0 .7333
.if "\\$1"bluegreen" .RGB 0 .5333 .5333
.if "\\$1"greygreen" .RGB .3333 .6667 .6667
.if "\\$1"palegreygreen" .RGB .6196 .9333 .9333
.if "\\$1"yellowgreen" .RGB .6 .6 .2980
.if "\\$1"medblue" .RGB 0 0 .6
.if "\\$1"greyblue" .RGB 0 .3647 .7333
.if "\\$1"palegreyblue" .RGB .2863 .5765 .8667
.if "\\$1"purpleblue" .RGB .5333 .5333 .8
..
.\"
.\"
.\"	reset page layout
.\"
.de RS
.pl \\n(PLu
.ll \\n(LLu
.ps \\n(PS
.vs \\n(VSp
.hy \\n(HY
.po \\n(LMu
.ad l
.ce 0
.in 0
.fi
.nr Lx 0
..
.\"
.\"
.\"	copy current page to output
.de CP
.br
.mk a
\\X'copypage' \"
.sp |\\nau
..
.\"
.\"
.\"	title slide
.de TL
.RS
.sp |120p
.ce 100
.ps 36
.vs 42
.B
..
.\"	author
.de AU
.ps 28
.vs 32
.\" .CO darkblue
.sp
.R
..
.\"
.\"
.\"	lines at various indentation and size levels
.\"
.de LX
.br
... .tm :\\$1 :\\$2 :\\$3 :\\$4 :\\$5 :\\$6 :\\$7 :\\$8 :\\$9
.ps \\$1
.vs \\$2p
.if \\n(Lx>0 .sp \\$3
.nr Lx \\$8
.in \\$4u
.CO \\$5
.if !"\\$6"" \{\
.ti -\\w'\\$6'u
\&\\$6
\}
.ft \\$7
..
.de L1
.LX "\\n(P1" "\\n(V1" "\\n(S1" "\\n(I1" "\\*(C1" "\\*(M1" \\*(F1 1
..
.de L2
.LX "\\n(P2" "\\n(V2" "\\n(S2" "\\n(I2" "\\*(C2" "\\*(M2" \\*(F2 2
..
.de K2
.LX "\\n(P2" "\\n(V2" "\\n(S2" "\\n(I2" "\\*(C2" "" \\*(F2 2
..
.am TL
.XX "\*(Ps gsave 1 1 .93 setrgbcolor 0 0 moveto 6400 0 rlineto 0 -4800 rlineto -6400 0 rlineto closepath fill grestore
..
.\"
.\"
.\"	new slide
.de SL
.bp
.XX "\*(Ps gsave 1 1 .93 setrgbcolor 0 0 moveto 6400 0 rlineto 0 -4800 rlineto -6400 0 rlineto closepath fill grestore
.XX "\*(Ps gsave .93 .93 1 setrgbcolor 0 0 moveto 6400 0 rlineto 0 -350 rlineto -6400 0 rlineto closepath fill grestore
.RS
.nr pn \\n(pn+1
.\" .ta \\n(LLuR
.\" .lc .
.B
\s+2\f3\\$1\fP\s-4
... .BP /tmp/cow02.eps 1i 1i r 0i t
.br
.L1
.\"
.\"
..
.\"""""""""""""""""""""""""""""""""""""""""""""""
.\"
.\"	spacing and size variables
.\"
.\"
.nr XT 4		\" tab stop in programs
.nr XP 4		\" point size delta for programs
.nr XV 4p		\" vertical spacing delta for programs
.nr TM 20p	\" top margin
.nr BM 20p	\" bottom margin
.nr LM 20p	\" left margin
.nr RM 20p	\" right margin
.nr PW 640p	\" page width (conveniently, about 11.1i)
.nr PH 480p	\" page height (conveniently, about 8.3i)
.nr LL \n(PW-\n(LM-\n(RMu	\" line length
.nr PL \n(PH-\n(TM-\n(BMu+100p	\" page length	(100p is fudge)
.nr HY 0		\" hyphenation off
.nr PS 20		\" 20 pt text
.nr VS 22		\" 22 pt spacing
.nr pn 1		\" page number
.\"
.nr P1 24		\" point size for L1
.nr V1 26		\" vertical spacing for L1
.nr S1 1		\" inter-L1 spacing
.nr I1 0		\" indent for L1
.			\" color for L1
.ds C1 black
.			\" marker for L1
.ds M1
.			\" font for L1
.ds F1 R
.\"
.nr P2 20		\" point size for L2
.nr V2 22		\" vertical spacing for L2
.nr S2 0.3		\" inter-L2 spacing
.nr I2 0.5i		\" indent for L2
.			\" color for L2
.ds C2 black
.			\" marker for L2
.ds M2 \-
.			\" font for L2
.ds F2 R
.na