'\" macro package for making foils
'if \n(mo-0 .ds mo Jan
'if \n(mo-1 .ds mo Feb
'if \n(mo-2 .ds mo Mar
'if \n(mo-3 .ds mo Apr
'if \n(mo-4 .ds mo May
'if \n(mo-5 .ds mo Jun
'if \n(mo-6 .ds mo Jul
'if \n(mo-7 .ds mo Aug
'if \n(mo-8 .ds mo Sept
'if \n(mo-9 .ds mo Oct
'if \n(mo-10 .ds mo Nov
'if \n(mo-11 .ds mo Dec
'ds DA \\*(mo \n(dy, 19\n(yr
'na
'ft PB
'ps 23
'ds FT (PB
'vs 23
'\" Parameters: 
'nr PW 11i			\" PW=paper width
'nr PH 8.5i			\" PH=paper height
'nr MB 1i			\" MB=margin border
'nr MT 0.5i			\" MT=margin text 
'nr BW \n(PWu-\n(MBu-\n(MBu	\" BW=border width
'nr TW \n(BWu-\n(MTu-\n(MTu	\" TW=text width
.nr C  0.5i			\" C =corner radius
'nr PT \n(MBu+\n(MTu		\" PT=page offset for text
'nr BB \n(PHu-\n(MBu		\" BB=bottom of box
'\" 0.7i is the amount the logo sticks up over line
'nr CH 0.6i			\" CH=height of logo (above base)/2
'nr BT \n(BBu-\n(CHu-1v		\" BT=bottom of text
'if \nL=1 \{\
'  tm Setting bottom line for no logo
'  nr BT \n(BBu-1v		\" BT=bottom of text (no logo)
'\}
'nr CW 2.3i			\" CW=width of logo
'				\" MW=width of middle title
'				\" DW=width of date
'pl \n(PHu
'll \n(TWu
'lt \n(Twu
'ev 1
'll \n(TWu
'lt \n(TWu
'ev
'po \n(PTu
'wh \n(BTu fa
.de au
.if ^\\$2^FIRST^ .M4
'ds ff "'' \fR\&\\$1 ' \\*(DA\fP '"
'ds RF \&\\$1
.if ^\\$2^FIRST^ .nn
..
.de hd	\" header
'sp \\n(MBu
.\"'sp \\n(MTu
..
'wh 0 hd
'ds ff "''' \*(DA '"
'de Ft	\" footer
'ds ff \&\\$1
..
.de fa
.ch fa
.ev 1
.vs 0
.sp |\\n(MBu
.po \\n(MBu
.nr W \\n(BWu-\\nCu-\\nCu   \" actual width for box drawing
.nr H \\n(PHu-\\n(MBu-\\n(MBu-\\nCu-\\nCu   \" actual height for box
'ie !^\\*(RF^^ 'nr MW \w'\s9 \\*(RF \s0'u
'el 'nr MW 0
'nr DW \w'\s9 \\*(DA \s0'u		\" DW=width of date
.nr a1 ((\\n(BWu-\\n(MWu)/2u)-\\nCu	\" width of half of bottom straight line
.nr a2 \\n(a1u-\\n(CWu
.nr a3 \\n(a1u-\\n(DWu
.ps 36
.ds Z \h'\\n(CWu'
.if \\nL .ds Z \D'l \\n(CWu 0'
.if \\n(NB=0 \{\
.\"  Maybe your troff allows you to make thicker lines:  \D't 12u'
\v'\\nCu'\D'l 0 \\nHu'\D'a \\nCu 0 0 \\nCu'\\*Z\D'l \\n(a2u 0'\h'\\n(MWu'\D'l \\n(a3u 0'\h'\\n(DWu'\D'a 0 -\\nCu \\nCu 0'\D'l 0 -\\nHu'\D'a -\\nCu 0 0 -\\nCu'\D'l -\\nWu 0'\D'a 0 \\nCu -\\nCu 0'
.br
.\}
.ps
.po
.sp |\\n(BBu
'ps 9
.sp 3p	\" to center on the line instead of have baseline on line
.if \\n(NB=0 'tl \\*(ff
'ps
.if !\\nL \{\
.tm you sly dog -- you set L to 0!  No logo for you.
.\}
.vs
.if \\nP \{\
.    sp |\\n(BBu
.    sp 0.5i
.    po 0.4i
.    nr QQ \\n(PW-0.4i-0.4i
.    lt \\n(QQu
.    tl '''\f(CW\s14Page %\s0\fP'
.    lt
.    po
.\}
'bp
.ev
.wh \\n(BTu fa
..
.de c
.in 0
.ce
.if !^^\\$1^ \&\\$1
..
.de 1
.in \w'  'u
.ti -\w'  'u
.if !^^\\$1^ \&\\$1
..
.de 2
.in 0.5i
.ti -\w'\(bu\h^0.15i^'u
\(bu\h^0.15i^\c
.if !^^\\$1^ \&\\$1
..
.de 3
.in 1.0i
.ti -\w^\(ci\h'0.15i'^u
\(ci\h'0.15i'\c
.ft PB
.if !^^\\$1^ \&\\$1
..
.de 4
.in 1.5i
.ti -\w'\s(26\fB\(sq\fP\s0\h^0.15i^'u
\s(26\fB\v'0.02i'\(sq\v'-0.02i'\fP\s0\h'0.15i'\c
.if !^^\\$1^ \&\\$1
..
.de n
.in \\$1
.ti -\w^\\$2^
\&\\$2
.sp -1
.if !^^\\$3^ \&\\$3
..
.ds FF (CB
.de b
.ft CB
.ps 23
.nr X 8*\w' 'u
.ta +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu
.nf
..
.de e
.ft PB
.ps 23
.vs 23
.fi
..
.de TA
.ds ZZ \\f(CB\\s(23
\\*(ZZ\c
..
.de ET
'ft PB
'ps 23
'vs 23
'fi
..
.de T
.ds ZZ \\f(CB\\s(23
\&\\*(ZZ\\$1\fP\s0\\$2\& \\$3 \\$4 \\$5 \\$6
..
.hy 0
.de sz
.ps \\$1
.vs \\$1
..
.de PS \" $1 is height, $2 is width, both in inches
.sp .3
.in (\\n(.lu-\\$2)/2u
.ne \\$1
..
.de PE
.in
.sp .6
..
.de nn
.tm Slide \\*(RF starts on page \\n%
..
.de M4
.br
.nr NB 1
'ds ff "''' \*(DA '"
'ds RF\"
.nr QQ \\n%-(\\n%/4*4)
.if !'1'\\n(QQ' .bp
.nr QQ \\n%-(\\n%/4*4)
.if !'1'\\n(QQ' .bp
.nr QQ \\n%-(\\n%/4*4)
.if !'1'\\n(QQ' .bp
.nr QQ \\n%-(\\n%/4*4)
.if !'1'\\n(QQ' .ab M4 left me on page \\n%????????
.nr NB 0
..
.de HH
.di NT
.ps 60
.vs 60
\\$1
.br
.ps
.vs
.di
.nr Uw \\n(dlu+0.5i
.nr Uh \\n(dnu+0.2i
.sp |3.35i
.nr QQ (\\n(.lu-\\n(Uwu)/2u
\h'\\n(QQu'\D'l \\n(Uwu 0'\D'l 0 \\n(Uhu'\D'l -\\n(Uwu 0'\D'l 0 -\\n(Uhu'
.sp 0.45i
.ce
.NT
..
.br
.nr P 1
.nr L 1
