.\" $Id: tmac.an,v 1.1 93/11/13 23:48:06 lee Exp Locker: lee $
.
.\" configuration
.
.ds BodyText.Family Bembo
.ds BodyText.Face I
.ds BodyText.Size 12
.ds BodyText.VerticalSpace 13.5
.
.ds Folio.Family GillSans
.ds Folio.Face R
.ds Folio.Size 10
.ds Folio.VerticalSpace 11.5\" not normally needed
.
.nr LeftIndent 0
.nr Measure 5i
.
.ds InnerMargin 2.25i
.ds OuterMargin 0.75i
.
.\" emphasis
.ds +B "\\f[BI]
.ds -B "\\fP
.ds +I "\\<\\fR
.ds -I "\\fP\\>
.
.\" page processing
.de _Page.Top
' ev _Page.ev
.  sp |1c
.  ffam \\*[Folio.Family]
.  ft \\*[Folio.Face]
.  ps \\*[Folio.Size]
.  vs \\*[Folio.VerticalSpace]
.  ll \\n[Measure]u
.  lt \\n[Measure]u
.  ie o 'po \\*[InnerMargin]
.  el   'po \\*[OuterMargin]
.  ie o .tl '\\*[_TH.Header]''\\*[_TH.Package](\\*[_TH.Section])'
.  el   .tl '\\*[_TH.Package](\\*[_TH.Section])''\\*[_TH.Header]'
.  sp -1 \" move back to the title line
.
.  nr _PH.Extra (\\*[InnerMargin]-\\*[OuterMargin])
.  if \\n[_PH.Extra]<0 .nr _PH.Extra 0-\\n[_PH.Extra]
.
.  \" draw a line of pointy arrows, very _designer_ish, so simply _very_:
.  ie o \&\h[-\\n[_PH.Extra]u]\l[\\n[_PH.Extra]u-0.5P\f[ZDB]\s-4\[a177]\s+4\fP]
.  el \&\h[|\\n[Measure]u+0.5P]\l[\\n[_PH.Extra]u-0.5P\f[ZDBR]\s-4\[a177]\s+4\fP]
.  sp |3c
' ev
' ie o 'po \\*[InnerMargin]
' el   'po \\*[OuterMargin]
' ns \" no-space mode to prevent extra blank lines at the top of the page
..
.
.de _Page.Foot
' ev _Page.ev
.  ie o 'po \\*[InnerMargin]
.  el   'po \\*[OuterMargin]
.  nr _Page.FootMargin 11i-1.5c
.  sp |\\n[_Page.FootMargin]u
.  ie o .tl '\\*[_TH.Package](\\*[_TH.Section])'\\*[_TH.Footer]'Page %'
.  el   .tl 'Page %'\\*[_TH.Footer]'\\*[_TH.Package](\\*[_TH.Section])'
.
.  sp |\\n[_Page.FootMargin]u
.
.  nr _PF.Extra (\\*[InnerMargin]-\\*[OuterMargin])
.  if \\n[_PF.Extra]<0 .nr _PF.Extra 0-\\n[_PF.Extra]
.
.  \" draw a line of pointy arrows, very _designer_ish, so simply _very_:
.  ie o \&\h[-\\n[_PF.Extra]u]\l[\\n[_PF.Extra]u-0.5P\f[ZDB]\s-4\[a177]\s+4\fP]
.  el \&\h[|\\n[Measure]u+0.5P]\l[\\n[_PF.Extra]u-0.5P\f[ZDBR]\s-4\[a177]\s+4\fP]
.  br
' ev
'
' \" report progress:
' ie r _TheEndIsInSight ' sy echo '[\\n[%]].' 1>&2
' el ' sy echo -n '[\\n%]' 1>&2
' bp
..
.
.de _EndMacro
. SH "LAST MODIFIED"
This manual entry was last changed on \\*[_TH.Date].
. nr _TheEndIsInSight 1
..
.
.wh 0 _Page.Top
.wh -3c _Page.Foot
.em _EndMacro
.
.\" Paragraphs
.
.de TP
. LP
. ne 2
. nr LeftIndent 0
. it 1 _TP.EndHeading
. di _TP.Text
..
.
.de _TP.EndHeading
. br
. di
. mk _TP.Top
. nf
. in 0
. _TP.Text
. fi
. RS
. sp |\\n[_TP.Top]u
. if \\n[dl]+0.1P>=3P \{.\"
.  ie \\n[dl]>1v .sp \\n[dl]u
.  el .ti +(\\n[dl]u-3P)^+0.25P
. \}
. rm _TP.Text
..
.
.de LP
. nr LeftIndent 0
. P \\$1
..
.
.de PP
. nr LeftIndent 0
. P \\$1
..
.
.de IP
. P \\$1
. nr LeftIndent +3P
. in \\n[LeftIndent]u
..
.
.nr _LeftIndent.Base 0
.
.de P
. br
. ffam \*[BodyText.Family]
. ft \*[BodyText.Face]
. ps \*[BodyText.Size]
. vs \*[BodyText.VerticalSpace]
. sp
. ll \\n[Measure]u
. if !'\\$1'' .nr _LeftIndent.Base \\$1
. in \\n[LeftIndent]u_\\n[_LeftIndent.Base]u
. ne 3
..
. \" Indents (ugh)
.
.de RS
. nr LeftIndent +3P
. P \\$@
..
.de RE
. nr LeftIndent -3P
. P \\$@
..
.
.\" tables
.de TS
. br
. ne 2
. di _TS.Text
..
.
.de TE
. di
. nr _TS.Height \\n[dn]
. nr _TS.Width \\n[dl]
. if \\n[.t]<\\n[dn] \{.
.  br
\f[GillSansB]\s[9]See table overleaf\s0\fP
. \}
. ne \\n[dn]u
. nf
. in 0
. nr _TS.InsideTable 1
. _TS.Text
. nr _TS.InsideTable 0
. br
. fi
. rm _TS.Text
. P
..
.
.\"  headings and titles
.de TH \" package section date footer header
. ds _TH.Package "\\$1
. if ''\\*[_TH.Package]' .ds _TH.Package "UNIX"
. ds _TH.Section "\\$2
. if ''\\*[_TH.Section]' .ds _TH.Section "local"
. ds _TH.Date "\\$3
. if ''\\*[_TH.Date]' .ds _TH.Date "\\n[dy]-\\n[mo]-19\\n[yr]"
. ds _TH.Footer "\\$4
. ds _TH.Header "\\$5
. if ''\\*[_TH.Header]' .ds _TH.Header "\\*[_TH.Package](\\*[_TH.Section])
. 
. br
. ne 7i
..
.
.de ^T0
..
.
.de ^T1
..
.
.de ^T2
..
.
.de SH \" Section Heading
. br
. LP
. ffam GillSans
. ft B
. ps 14
. vs 16
. sp
. ne 5
. tr AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
. di _SH.di
\\$*
. br
. tr AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ
. di
.
. nr _SH.Extra (\\*[InnerMargin]-\\*[OuterMargin])
. if \\n[_SH.Extra]<0 .nr _SH.Extra 0-\\n[_SH.Extra]
.
. ll \\n[Measure]u+\\n[_SH.Extra]u
. nr _SH.RuleWidth \\n[.l]-\\n[dl]-0.5P
. ie o \{.
.  po -\\n[_SH.Extra]u
.  in 0
\l[\\n[_SH.RuleWidth]u\f[ZDB]\s-6\[a177]\s+6]
.  sp -1
.  in \\n[_SH.RuleWidth]u+0.25P
.  nf
. tr AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
.  _SH.di
.  br
. tr AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ
.  po +\\n[_SH.Extra]u
. \}
. el \{
.  in \\n[dl]u+0.5P
\l[\\n[_SH.RuleWidth]u\f[ZDBR]\s-6\[a177]\s+6]
.  sp -1
.  in 0
.  nf
. tr AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz
.  _SH.di
.  br
. tr AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ
. \}
. in 0
. rm _SH.di
. fi
. LP
..
.
.\" styles
.
.de B
\&\\*[+B]\\$*\\*[-B]
..
.
.de I
\&\\*[+I]\\$*\\*[-I]
..
.
.de BI
. set \<
. AlternateStyles "\\*[+B]" "\\*[-B]\\*[+I]" "\\*[-I]" \\$@
. set \>
..
.
.de IB
. set \<
. AlternateStyles "\\*[+I]" "\\*[-I]\\*[+B]" "\\*[-B]" \\$@
. set \>
..
.
.de BR \" British Rail
. set \<
. AlternateStyles "\\*[+B]" "\\*[-B]" "\&" \\$@
. set \>
..
.
.de RB
. set \<
. AlternateStyles "\&" "\\*[+B]" "\\*[-B]" \\$@
. set \>
..
. 
.de IR
. set \<
. AlternateStyles "\\*[+I]" "\\*[-I]" "\&" \\$@
. set \>
..
.
.de RI
. set \<
. AlternateStyles "\&" "\\*[+I]" "\\*[-I]" \\$@
. set \>
..
.
.de SM
. set \<
. ie \\n[.$]==3 \&\\$2\\s-3\&\\$1\s+3\&\\$3
. el \&\\s-3\&\\$1\s+3\&\\$2
. set \>
..
.
.de AlternateStyles
. ds _AS._ "\&
. _AlternateStyles.Iter \\$@
\\*[_AS._]
. rm _AS._
..
.de _AlternateStyles.Iter
. if \\n[.$]>3 \{.
.  as _AS._ "\\$1\\$4\\$2\\$5\\$3
.  _AlternateStyles.Iter \\$[@ 1 3] \\$[@ 6]
. \}
..
.
.\" Useful strings
.
.ds lq \[od]
.ds rq \[cd]
.\" NOTDONE:
.\" .de HP
.\" .de LP
.\" .de PD
.\" .de RE
.\" .de RS
.\" .de SB
.\" .de SH
.\" .de SM
.\" .de SM
.\" .de SS Blank Interpretation
.\" .de TH SH 1 string
.\" .de TP 14
.\" .de TX DMBG \" --> DoingMoreWithSunOS