From 268cc2e9f10c887b29ac2136e9a0cdf40e464796 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Tue, 1 Jun 2021 17:45:33 +0200 Subject: 2021-06-01 17:02:00 --- metapost/context/base/mpxl/mp-luas.mpxl | 26 +++++++++++++++++++++----- 1 file changed, 21 insertions(+), 5 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mpxl/mp-luas.mpxl b/metapost/context/base/mpxl/mp-luas.mpxl index 2313fbe09..4b92bb423 100644 --- a/metapost/context/base/mpxl/mp-luas.mpxl +++ b/metapost/context/base/mpxl/mp-luas.mpxl @@ -310,7 +310,7 @@ permanent showproperty, showhashentry ; newscriptindex mfid_textextanchor ; mfid_textextanchor := scriptindex("textextanchor") ; -def textextanchor = runscript mfid_textextanchor enddef ; +% def textextanchor = runscript mfid_textextanchor enddef ; vardef textextanchor(expr p) = runscript mfid_textextanchor (prescriptpart p) @@ -318,8 +318,24 @@ 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 ; +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 ; +newscriptindex mfid_anchorht ; mfid_anchorht := scriptindex "anchorht" ; def anchorht (expr name, x, y) = runscript mfid_anchorht name x y enddef ; +newscriptindex mfid_anchordp ; mfid_anchordp := scriptindex "anchordp" ; def anchordp (expr name, x, y) = runscript mfid_anchordp name x y enddef ; +newscriptindex mfid_anchorll ; mfid_anchorll := scriptindex "anchorll" ; def anchorll (expr name, x, y) = runscript mfid_anchorll name x y enddef ; +newscriptindex mfid_anchorur ; mfid_anchorur := scriptindex "anchorur" ; def anchorur (expr name, x, y) = runscript mfid_anchorur name x y enddef ; +newscriptindex mfid_anchorbox ; mfid_anchorbox := scriptindex "anchorbox" ; + +vardef anchorbox(expr lname, lx, ly, rname, rx, ry) = + (runscript mfid_anchorbox lname lx ly rname rx ry) +enddef ; + +vardef matrixbox (expr fx, fy, tx, ty) = + anchorbox ("matrix", fx, fy) ("matrix", tx + 1, ty) +enddef ; -permanent anchorxy, anchorx, anchory ; +permanent + anchorxy, anchorx, anchory, + anchorht, anchordp, + anchorll, anchorur, anchorbox ; -- cgit v1.2.3