From 4ca0e50699e2f4fc4dbe8b1dc4fe528a51b5429d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 27 Apr 2016 21:54:13 +0000 Subject: context (27apr16) git-svn-id: svn://tug.org/texlive/trunk@40787 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/metapost/context/base/mpiv/mp-luas.mpiv | 4 ++-- Master/texmf-dist/metapost/context/base/mpiv/mp-tool.mpiv | 11 +++++++++++ 2 files changed, 13 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/metapost') diff --git a/Master/texmf-dist/metapost/context/base/mpiv/mp-luas.mpiv b/Master/texmf-dist/metapost/context/base/mpiv/mp-luas.mpiv index c919ba2159c..c3079824773 100644 --- a/Master/texmf-dist/metapost/context/base/mpiv/mp-luas.mpiv +++ b/Master/texmf-dist/metapost/context/base/mpiv/mp-luas.mpiv @@ -56,7 +56,7 @@ vardef mlib_luas_luacall(text t) = elseif numeric s : & decimal s elseif boolean s : - & if s : "true" else "false" fi + & if s : "true" else : "false" fi fi endfor ) enddef ; @@ -74,7 +74,7 @@ vardef mlib_luas_lualist(expr c)(text t) = elseif numeric s : & decimal s elseif boolean s : - & if s : "true" else "false" fi + & if s : "true" else : "false" fi fi endfor & ")" ) enddef ; diff --git a/Master/texmf-dist/metapost/context/base/mpiv/mp-tool.mpiv b/Master/texmf-dist/metapost/context/base/mpiv/mp-tool.mpiv index 05f9d9edc0a..7696eb372df 100644 --- a/Master/texmf-dist/metapost/context/base/mpiv/mp-tool.mpiv +++ b/Master/texmf-dist/metapost/context/base/mpiv/mp-tool.mpiv @@ -330,6 +330,11 @@ vardef set_outer_boundingbox text q = % obsolete setbounds q to outerboundingbox q; enddef; +% secondarydef a boundedto b = % will this cleanup ? +% hide(picture mfun_a_b ; mfun_a_b := a ; setbounds mfun_a_b to b;) +% mfun_a_b +% enddef ; + %D Some missing functions can be implemented rather straightforward (thanks to %D Taco and others): @@ -876,6 +881,12 @@ primarydef p rightenlarged d = ( llcorner p -- (lrcorner p) shifted (d,0) -- (u primarydef p topenlarged d = ( llcorner p -- lrcorner p -- (urcorner p) shifted (0,d) -- (ulcorner p) shifted (0,d) -- cycle ) enddef ; primarydef p bottomenlarged d = ( llcorner p shifted (0,-d) -- lrcorner p shifted (0,-d) -- urcorner p -- ulcorner p -- cycle ) enddef ; +%D Handy as stepper: + +vardef rotation(expr i, n) = + if (n == 0) : 0 else : i * 360 / n fi +enddef ; + %D Handy for testing/debugging: primarydef p crossed d = ( -- cgit v1.2.3