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 ;