[NTG-context] Quotations

[Hans Hagen]

Gerben Wierda wrote:
> I use \startquotation and \stopquotation a lot. I would like to  
> visually strengthen the quotations because some are pretty lengthy  
> and a reader might forget that it is not me that is writing here. I  
> have been thinking about applying a light grey background or a border  
> of sorts (which should then be open at the top of bottom if the  
> quotation flows over a page boundary. Can someone tell me how to do  
> this?
>   
the following example (maybe one of the happy gwtex users can wikify it for you) shows the principles 

- cross page backgrounds
- dedicated background graphics that adapt 
- a bit of tuning of margins 

\starttext

\setupcolors[state=start]

\defineblank[myquotation][3*medium]

\definetextbackground
  [myquotation]
  [state=start,
   location=paragraph,
%    before={\blank[myquotation]\startnarrower},
%    after={\stopnarrower\blank[myquotation]},
   before={\blank[myquotation]},
   after={\blank[myquotation]},
   mp=mpos:par:poem]

\startuseMPgraphic{mpos:par:poem}
  for i = 1 upto nofmultipars :
    multipars[i] := multipars[i]
        enlarged .5ExHeight
        rightenlarged -.5ExHeight;
    drawoptions (
        dashed evenly
        withpen pencircle scaled 1.5pt
    ) ;
    fill multipars[i] withcolor .8white ;
    if multilocs[i] = 1 :
        draw
            llcorner multipars[i] --
            ulcorner multipars[i] --
            urcorner multipars[i] --
            lrcorner multipars[i]
            withcolor .5red ;
    elseif multilocs[i] = 3 :
        draw
            ulcorner multipars[i] --
            llcorner multipars[i] --
            lrcorner multipars[i] --
            urcorner multipars[i]
            withcolor .5red ;
    else :
        draw leftboundary  multipars[i] withcolor .5red ;
        draw rightboundary multipars[i] withcolor .5red ;
    fi ;
  endfor ;
\stopuseMPgraphic

\setupdelimitedtext
  [quotation]
  [leftmargin=.5em,
   rightmargin=.5em,
   before={\starttextbackground[myquotation]},
   after=\stoptextbackground]

\starttext

\input tufte

\startquotation
\dorecurse{10}{\input zapf }
\stopquotation

\input davis

\stoptext

\unprotect

\def\geneq
  {\begingroup
   \setbox\scratchbox\hbox{$=$}%
   \hbox to \wd\scratchbox
     {\copy\scratchbox
      \hskip-\wd\scratchbox
      \hss\incolortrue\localcolortrue\color[white]{\vrule height .6\ht\scratchbox depth 0pt width .1ex}\hss}%
   \endgroup}

\geneq

\stoptext


-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
     tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------