[NTG-context] Re: [ page setup ]

[garulfo@azules.eu]

A proposal based on lmt_parshape, \startshapetext, and \getshapetext.

Be sure to use \endgraf to break the line ==> it probably work only if you stay in the same par.

% 8<---
\setuppapersize [A4]
\setupheader [state=empty, no]
\usetypescript[ibmplex]
\setupbodyfont[ibmplex, serif, 11pt]

% \setupinterlinespace[14pt]      % LET DEFAULT

\setuplayout[%
     backspace=10mm,
     topspace=20mm,
     header=0mm,
     footer=0mm,
     height=180mm,
]

\definelayout[one][width=98.8mm]
\definelayout[two][width=158.2mm]

\definelayout[1,2,5,6][one]
\definelayout[3,4,7,8][two]

%=================================================

\startuseMPgraphic{testA}
path p ;
p := fullsquare xscaled 98.8mm yscaled 180mm;
lmt_parshape [ path = p,] ;
\stopuseMPgraphic

\startuseMPgraphic{testB}
path p ;
p := fullsquare xscaled 158.2mm yscaled 180mm;
lmt_parshape [ path = p,] ;
\stopuseMPgraphic

\startshapetext
  [testA,testB,testA,testB,testA,testB,
   testA,testB,testA,testB,testA,testB,
   testA]
  \setupalign[verytolerant,stretch,normal]
  {\bf\strut This is the beginning}.\endgraf   % DON'T FORGET THE STRUT HERE
  \dorecurse{30}
    {\strut\color[middlemagenta]{\bf \recurselevel}\endgraf
     \input knuth\endgraf}
  {\bf This is the end}.
\stopshapetext

%=================================================

\showframe
\showgrid

\starttext

\dorecurse{13}{\getshapetext}

\stoptext
% --->8
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl
webpage  : https://www.pragma-ade.nl / https://context.aanhet.net (mirror)
archive  : https://github.com/contextgarden/context
wiki     : https://wiki.contextgarden.net
___________________________________________________________________________________