Re: Horizontal centering \startlines...\stoplines / poems

[Steve Lumos <slumos@nevada.edu>]

>>This centers the title on the poem, but what I was hoping to do
>>was center the entire poem horizontally on the page.  This definitely
>>gives me a way to get started though.
>
>>> ... 
>>>\def\stopFancyPoem%
>>>  {\stoplines
>>>   \endofshapebox
>>>   \dimen1=0pt
>>>   \reshapebox
>>>     {\setbox\scratchbox=\hbox{\unhcopy\shapebox}%
>>>      \ifdim\wd\scratchbox>\dimen1 \global\dimen1=\wd\scratchbox \fi
>>>      \unhbox\shapebox}
>>>   \bgroup
>>>     \hsize\dimen1
>>>     \PoemTitle
>>>   \egroup
>
>Then add here: 
>
>\expanded{\setuplayout[width=\the\dimen1]}
>
>>>   \flushshapebox}
>>>
>>>\starttext
>
>(untested)
>
>
>Hans

Changing width like this moves the margin away from the edge of the
page.  I'm doubltess about to show how much of a beginner I am, but
this is what I did:

\def\startCenterBlock%
  {\beginofshapebox}

\def\stopCenterBlock%
  {\endofshapebox
   \dimen1=0pt
   \reshapebox
     {\setbox\scratchbox=\hbox{\unhcopy\shapebox}%
      \ifdim\wd\scratchbox>\dimen1 \global\dimen1=\wd\scratchbox \fi
     \unhbox\shapebox}
  \dimen2=\hsize
  \advance\dimen2 by-\dimen1
  \divide\dimen2 by 2
  \moveright\dimen2\box\newshapebox
  \flushshapebox}

I'm not sure whether it is considered bad to reference \newshapebox,
but I couldn't figure out another way.  This seems to work as long as
the poem is shorter than a page.  I'm still playing with settings, but
here's what I'm using now if it makes any difference:

\definepapersize[booklet][width=5.5in,height=8.5in]
\setuppapersize[booklet][letter,landscape]
\setuplayout
  [topspace=0.1in,
   backspace=0.25in,
   header=0.25in,
   footer=0pt,
   leftmargin=0pt,
   leftmargindistance=0pt,
   rightmargin=0.4in,
   rightmargindistance=0.1in,
   height=fit,
   width=fit]

\setuppagenumbering
  [alternative=doublesided,
   location={header,inmargin},
   command=\InverseBox]
\setuparranging[2UP,rotated]

Steve