diff options
Diffstat (limited to 'metapost/context/base/mpxl/mp-base.mpxl')
| -rw-r--r-- | metapost/context/base/mpxl/mp-base.mpxl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/metapost/context/base/mpxl/mp-base.mpxl b/metapost/context/base/mpxl/mp-base.mpxl index a111c7337..430e75a62 100644 --- a/metapost/context/base/mpxl/mp-base.mpxl +++ b/metapost/context/base/mpxl/mp-base.mpxl @@ -10,12 +10,11 @@ % remove some code as well). After all, there is no development in % this format. -string base_name, base_version ; +message "loading metafun for lmtx, including the plain 1.004 base definitions"; -base_name := "plain" ; -base_version := "1.004 for metafun iv and xl" ; +if known metafun_loaded_base : endinput ; fi ; -message "loading metafun, including plain.mp version " & base_version ; +newinternal boolean metafun_loaded_base ; metafun_loaded_base := true ; immutable metafun_loaded_base ; delimiters () ; % this makes parentheses behave like parentheses @@ -57,7 +56,8 @@ enddef ; % \\ and ??? can go -permanent $, $$, (, ), upto, downto, exitunless, relax, \\, [[, ]], --, ---, ..., gobble, gobbled, stop, ?, ??? ; +permanent $, $$, (, ), upto, downto, exitunless, relax, \\, [[, ]], --, ---, ..., gobble, gobbled, stop, ??? ; +mutable ? ; % These need to be adapted to a library approach: @@ -475,7 +475,7 @@ tertiarydef p softjoin q = endgroup enddef ; -permanent direction, directionpoint, softjoin ; +permanent direction, directionpoint, intersectionpoint, softjoin ; newinternal join_radius ; path cuttings ; % what got cut off |