diff options
Diffstat (limited to 'metapost/context/base/mpxl/mp-tool.mpxl')
-rw-r--r-- | metapost/context/base/mpxl/mp-tool.mpxl | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/metapost/context/base/mpxl/mp-tool.mpxl b/metapost/context/base/mpxl/mp-tool.mpxl index 7ea222fb0..88d34769c 100644 --- a/metapost/context/base/mpxl/mp-tool.mpxl +++ b/metapost/context/base/mpxl/mp-tool.mpxl @@ -3792,7 +3792,23 @@ vardef bymatrix(expr rx, sx, sy, ry, tx, ty) = t enddef ; -permanent totransform, bymatrix ; +% vardef bytopdownmatrix(expr rx, sx, sy, ry, tx, ty) = +% save t ; transform t ; +% xxpart t = rx ; yypart t = ry ; +% xypart t = -sy ; yxpart t = -sx ; +% xpart t = tx ; ypart t = ty ; +% t +% enddef ; + +def closedcurve expr p = + p if not cycle p : .. cycle fi +enddef ; + +def closedlines expr p = + p if not cycle p : -- cycle fi +enddef ; + +permanent totransform, bymatrix, closedcurve, closedlines ; let xslanted = slanted ; |