From 316fec3fcb4b5e6f352a3a58db1656e08659202c Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Mon, 31 May 2021 14:38:45 +0200 Subject: 2021-05-31 14:12:00 --- metapost/context/base/mpxl/mp-luas.mpxl | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'metapost') diff --git a/metapost/context/base/mpxl/mp-luas.mpxl b/metapost/context/base/mpxl/mp-luas.mpxl index b98305bba..2313fbe09 100644 --- a/metapost/context/base/mpxl/mp-luas.mpxl +++ b/metapost/context/base/mpxl/mp-luas.mpxl @@ -317,3 +317,9 @@ vardef textextanchor(expr p) = enddef ; permanent textextanchor ; + +newscriptindex mfid_anchorxy ; mfid_anchorxy := scriptindex "anchorxy" ; def anchorxy(expr name, x, y) = runscript mfid_anchorxy name x y enddef ; +newscriptindex mfid_anchorx ; mfid_anchorx := scriptindex "anchorx" ; def anchorx (expr name, x, y) = runscript mfid_anchorx name x y enddef ; +newscriptindex mfid_anchory ; mfid_anchory := scriptindex "anchory" ; def anchory (expr name, x, y) = runscript mfid_anchory name x y enddef ; + +permanent anchorxy, anchorx, anchory ; -- cgit v1.2.3