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 : [email protected] /
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
___________________________________________________________________________________
