diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkxl/back-ext.mkxl')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkxl/back-ext.mkxl | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkxl/back-ext.mkxl b/Master/texmf-dist/tex/context/base/mkxl/back-ext.mkxl new file mode 100644 index 00000000000..a3d9d2633e8 --- /dev/null +++ b/Master/texmf-dist/tex/context/base/mkxl/back-ext.mkxl @@ -0,0 +1,95 @@ +%D \module +%D [ file=back-ext, +%D version=2019.02.08, % and later, merged file +%D title=\CONTEXT\ Backend Macros, +%D subtitle=Output, +%D author=Hans Hagen, +%D date=\currentdate, +%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] +%C +%C This module is part of the \CONTEXT\ macro||package and is +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. + +% \registerctxluafile{back-ext}{autosuffix} + +\unprotect + +% \let\normalopenout \openout +% \let\normalwrite \write +% \let\normalcloseout\closeout +% \let\normallatelua \latelua +% \let\normalspecial \special + +% rotation + +\permanent\protected\def\dostartrotation#1% + {\forcecolorhack + \clf_startrotation#1\relax} % todo: implement without Q q + +\permanent\protected\def\dostoprotation + {\clf_stoprotation + \forcecolorhack} + +% scaling + +\permanent\protected\def\dostartscaling#1#2% + {\forcecolorhack + \clf_startscaling rx #1 ry #2\relax} + +\permanent\protected\def\dostopscaling + {\clf_stopscaling + \forcecolorhack} + +% mirroring + +\permanent\protected\def\dostartmirroring + {\clf_startmirroring} + +\permanent\protected\def\dostopmirroring + {\clf_stopmirroring} + +% transform + +\permanent\protected\def\dotransformnextbox#1#2#3#4#5#6% + {\dowithnextbox{\dodotransformnextbox{#1}{#2}{#3}{#4}{#5}{#6}}} + +\permanent\protected\def\dodotransformnextbox#1#2#3#4#5#6% + {\hpack + {\kern #5\onebasepoint + \raise#6\onebasepoint + \hpack + {\clf_startmatrix rx #1 sx #2 sy #3 ry #4\relax + \box\nextbox + \clf_stopmatrix}}} + +%D \macros +%D {dostartclipping,dostopclipping} +%D +%D Clipping is implemented in such a way that an arbitrary code can be fed. +%D +%D \starttyping +%D \dostartclipping {pathname} {width} {height} +%D \dostopclipping +%D \stoptyping + +\mutable\let\MPclippath\empty + +\permanent\protected\def\dostartclipping#1#2#3% we can move this to lua and only set a box here + {\forcecolorhack + \meta_grab_clip_path{#1}{#2}{#3}% + \clf_startclipping{\MPclippath}% + \glet\MPclippath\empty} + +\permanent\protected\def\dostopclipping + {\clf_stopclipping} + +%D This wrapper is needed when you use code that messes with e.g. local color +%D directives, invisible for the rest of the machinery. It's only needed in very +%D special cases, like around the above scaler directives: + +\permanent\protected\edef\hcontainer{\hpack \s!direction\directionlefttoright \s!container\space} +\permanent\protected\edef\vcontainer{\vpack \s!direction\directionlefttoright \s!container\space} +\permanent\protected\edef\tcontainer{\tpack \s!direction\directionlefttoright \s!container\space} + +\protect \endinput |