🚀 go-pugleaf

I'm still having a problem with line drawing and/or
positioning with troff and our LaserWriter.  The troff
(not ditroff) macros included below provide a simple
failure case.  The output should be two pages with
a set of 4 L shaped crop marks (which are intended to
show the framing of a smaller sized page).  The horizontal
lines should be 9.25 inches apart, while the vertical
ones should be 6.125 inches apart.  It works
fine on our other troff previewers, but on the LaserWriter
it produces 3 pages of, well, see for yourself.

To run, just put the text below in a file and
feed to ptroff (use no macros packages).

Mark Wallen

UC San Diego
wallen@nprdc.arpa
ucbvax!sdcsvax!sdcsla!wallen.uucp

----------cut here--------------------
.xx cW == size of crop mark side
.nr cW .125i
.xx lM == size of left margin
.nr lM .8125i
.po \n(lMu+.25i+\n(cWu
.ll 4.5i
.lt 4.5i
.nr ux 0.60i
.nr bx \n(.pu-(9.25i-1.i+\n(cWu)
.wh 0 he
.wh -\n(bxu fo
.de he
.cM top
'sp \\n(uxu-\\n(uXu
.tl '''\\*(HA     \\s10%\\s0'
'sp .25i
..
.de cM
.nr ,l \\n(.l
.ls 1
.ll 7.53i-\\n(.ou
'po -(\\n(cWu+\\n(lMu)
'ti 0
.ie ~\\$1~top~ \{\
'	sp |\\n(cWu
.	nr , 0-\\n(cWu
.\}
.el \{\
.	nr , \\n(cWu
.\}
.xx .tm cM \\$1 po=\\n(.o cW=\\n(cW ,=\\n,
'ti 0
\l'\\n(cWu\(ul'\L'\\n,u'\h'6.125i-\w'\(br''\L'-\\n,u'\l'\\n(cWu\(ul'
'br
.ll \\n(,lu
.ls
.if ~\\$1~top~ \{\
'	sp |\\n(cWu
.\}
'po +(\\n(cWu+\\n(lMu)
..
.de fo
.TM fo \\n(nl \\n(.t x=\nx	qB=\\n(qB
.nr dn 0
.xx cut mark
'sp |9.25i+\\n(cWu
.cM bottom
'bp
..
.ds HA test
.sp
this is a bunch of test text.
.bp