'\" 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
'ie \*(.Tcan \{\
'fp 4 vS
'ft B
'ps 22
'ds FT B
'\}
'el \{\
'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		\" 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 \\$2FIRST .M4
'ds ff "'' \fR\&\\$1 ' \\*(DA\fP '"
'ds RF \&\\$1
.if \\$2FIRST .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 \{\
.\" \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'
\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 \{\
.    sp |\\n(BBu-\\n(CHu+0.15i
.    ft H
.    ps 14
.    vs 15
.    nf
.    po +.05i
Rocky 
Mountain
Technology 
Center
.    po
.    fi
.    ps
.    vs
.    ft
.    po +1i
.    sp |\\n(BBu
.    sp 0.45i	\" makes logo line up correctly on baseline
\D'Z 1.5i 1.5i'
.    sp -1
.    pf /usr/lib/tmac/devlogo.ps
.    po
.\}
.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\s14Slide %\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\h0.15i'u
\(bu\h0.15i\c
.if !\\$1 \&\\$1
..
.de 3
.in 1.0i
.\" TSC 'if \*(.Tcan .ft vS
.\" TSC .ti -\w\(ci\h'0.15i'u
.\" TSC \(ci\h'0.15i'\c
.\" TSC 'ie \*(.Tcan .ft B
.\" TSC 'el .ft PB
.ti -\w'\(bu\h0.15i'u
\(bu\h0.15i\c
.if !\\$1 \&\\$1
..
.de 4
.in 1.5i
.ti -\w'\s(26\fB\(sq\fP\s0\h0.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
..
.ie \*(.Tcan .ds FF (TA
.el .ds FF (CB
.de b
.ie \*(.Tcan \{\
.ft TA
.ps 20
.\}
.el \{\
.ft CB
.ps 23
.\}
.nr X 8*\w' 'u
.ta +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu +\\nXu
.nf
..
.de e
.\" TSC 'ie \*(.Tcan \{\
.ft B
.ps 23
.\" TSC .\}
.\" TSC 'el \{\
.\" TSC .ft PB
.\" TSC .ps 23
.\" TSC .\}
.vs 23
.fi
..
.de CX
.ie \*(.Tcan .ds ZZ \\f(CX\\s(20
.el .ds ZZ \\f(BI\\s23
\&\\*(ZZ\\$1\fP\s0\\$2\& \\$3 \\$4 \\$5 \\$6
..
.de TA
.ie \*(.Tcan .ds ZZ \\f(TA\\s(20
.el .ds ZZ \\f(CB\\s23
\\*(ZZ\c
..
.de ET
'ie \*(.Tcan \{\
'ft B
'ps 22
'\}
'el \{\
'ft PB
'ps 23
'\}
'vs 23
'fi
..
.de BI 
\\f(BI\\$1\fP\\$2
..
.de SM
\\s-2\\$1\\s0\\$2
..
.de UR
\\fI\\s-2\\$1\\s0\fB\\$2
..
.de MP
\\f(BI\\$1\\fP\|(\\$2)
..
.de M 
\\f(BI\\$1\\fP\|(\\$2)
..
.de U2
'2
\\$1
.br
.in +2n
'UR "\\$2"
.in -2n
.br
..
.de T
.\" TSC .ie \*(.Tcan .ds ZZ \\f(TA\\s(20
.\" TSC .el .ds ZZ \\f(CB\\s(23
.ds ZZ \f(CB\s23
\&\\*(ZZ\\$1\fP\s0\\$2\& \\$3 \\$4 \\$5 \\$6
..
.hy 0
.de sz
.ps \\$1
.vs \\$1
..
'\"#ident	"@(#)pic:PS-PEmacros	1.4"
'\"		Copyright (c) 1984 AT&T
'\"		  All Rights Reserved
'\"     THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
'\"   The copyright notice above does not evidence any actual
'\"   or intended publication of such source code.
.de PS	\" start picture
.	\" $1 is height, $2 is width, both in inches
.if t .sp .3
.in (\\n(.lu-\\$2)/2u
.ne \\$1
..
.de PE	\" end of picture
.in
.if t .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	\" page numbers on
.nr L 1 \" logos off
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-2p'+\s0\v'.1v'\h'-1p'
.b

.e