> To print the titles of the poems on the odd pages in the right
> corners is my goal. The title of the even page in the first
> line an the  title of  the  odd page in the second line of the
> header. Is the poem longer than one page so the header line is
> empty respectivly.

I'm not quite sure I understand you correctly.
Maybe you could create a little ASCII mock-up?

Anyhow, here's my interpretation of what you intend.
The trick is to print the titles not from the header,
but from the footer, so you can set the title from
the page currently being formatted.


.\"
.\" ------------------------------------------------------------------------
.\" .de hd                                  \" Page header
.\" '       sp .5i
.\" .       tl '''poem one'
.\" .       tl '''poem two'
.\" '       sp .3i
.\" ..
.\" .de fo                                  \" Page footer
.\" '       sp 1v
.\" .       tl ''%''
.\" '       bp
.\" ..
.\" .\"
.\" .wh 0 hd                                \" trap at top of the page
.\" .wh -1i fo                              \" trap one inch from bottom
.\" .\"
.\" .nf
.\" .bp
.\" .ds left poem one
.\" \*[left]
.\" .sp 1
.\" Text
.\" Text
.\" Text
.\" Text
.\" Text
.\" .bp
.\" .ds right poem two
.\" \*[right]
.\" .sp 1
.\" Text
.\" Text
.\" Text
.\" Text
.\" .bp
.\" .ex
.\" ------------------------------------------------------------------------
.pl 29.7c
.wh 0 HD
.wh -1.2i FT
.ds HE "
.ds HO "
.\" Header macro
.de HD
.if e .RS
.sp |1.2i
..
.\" Footer macro
.de FT
.vpt 0
.if o .PT
.sp |\\n(.pu-.8i
.if \\n%>1 .PN
.vpt
.bp
..
.\" Print page number
.de PN
.ie e .tl '%'''
.el   .tl '''%'
..
.\" Reset titles
.de RS
.ds HE "
.ds HO "
..
.\" Print titles
.de PT
.sp |.5i
.tl '''\\*(HE'
.tl '''\\*(HO'
..
.\" Begin poem
.de PM
.bp
.ie e .ds HE "\\$*
.el   .ds HO "\\$*
.ce 1
\\$*
.sp
.nf
..
.\" End macro
.de EM
.if e .bp
..
.\" ------------------------------------------------------------------------
.ce 1
Title
.PM Poem one
Text
Text
Text
Text
Text
.PM Poem two
Text
Text
Text
Text
.PM Poem three
Text
Text
Text
.PM Poem four
Text
Text
.EM

Reply via email to