1
2
3
4
5
6
7
8
9
10
11
12
13
14\unprotect
15
16\registerctxluafile{backtrf}{autosuffix}
17
18
19
20\permanent\protected\def\dostartrotation#1
21 {\forcecolorhack
22 \clf_startrotation#1\relax}
23
24\permanent\protected\def\dostoprotation
25 {\clf_stoprotation
26 \forcecolorhack}
27
28
29
30\permanent\protected\def\dostartscaling#1#2
31 {\forcecolorhack
32 \clf_startscaling rx #1 ry #2\relax}
33
34\permanent\protected\def\dostopscaling
35 {\clf_stopscaling
36 \forcecolorhack}
37
38
39
40\permanent\protected\def\dostartmirroring
41 {\clf_startmirroring}
42
43\permanent\protected\def\dostopmirroring
44 {\clf_stopmirroring}
45
46
47
48\permanent\protected\def\dotransformnextbox#1#2#3#4#5#6
49 {\dowithnextbox{\dodotransformnextbox{#1}{#2}{#3}{#4}{#5}{#6}}}
50
51\permanent\protected\def\dodotransformnextbox#1#2#3#4#5#6
52 {\hpack
53 {\kern #5\onebasepoint
54 \raise#6\onebasepoint
55 \hpack
56 {\clf_startmatrix rx #1 sx #2 sy #3 ry #4\relax
57 \box\nextbox
58 \clf_stopmatrix}}}
59
60
61
62
63
64
65
66
67
68
69
70\mutable\let\MPclippath\empty
71
72\permanent\protected\def\dostartclipping#1#2#3
73 {\forcecolorhack
74 \meta_grab_clip_path{#1}{#2}{#3}
75 \clf_startclipping{\MPclippath}
76 \glet\MPclippath\empty}
77
78\permanent\protected\def\dostopclipping
79 {\clf_stopclipping}
80
81\protect \endinput
82 |