diff options
author | Karl Berry <karl@freefriends.org> | 2018-03-20 22:10:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-03-20 22:10:59 +0000 |
commit | 65d009a0596b194597f47531523addd3e64ed005 (patch) | |
tree | e13bd9beecf63e26491a66aa7a8fa702482f0067 /Master/texmf-dist/metapost/context/base/mpiv/mp-mlib.mpiv | |
parent | d1a186333ced7b341e26877907343f08211199f7 (diff) |
context [current] (20mar18)
git-svn-id: svn://tug.org/texlive/trunk@47050 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/context/base/mpiv/mp-mlib.mpiv')
-rw-r--r-- | Master/texmf-dist/metapost/context/base/mpiv/mp-mlib.mpiv | 42 |
1 files changed, 15 insertions, 27 deletions
diff --git a/Master/texmf-dist/metapost/context/base/mpiv/mp-mlib.mpiv b/Master/texmf-dist/metapost/context/base/mpiv/mp-mlib.mpiv index 0638ee3e1c3..115fe63aeac 100644 --- a/Master/texmf-dist/metapost/context/base/mpiv/mp-mlib.mpiv +++ b/Master/texmf-dist/metapost/context/base/mpiv/mp-mlib.mpiv @@ -1245,33 +1245,21 @@ vardef properties(text t) = image(draw unitcircle t) enddef ; -% if metapostversion < 1.770 : -% -% def withproperties expr p = -% if colormodel p = 3 : -% withcolor greypart p -% elseif colormodel p = 5 : -% withcolor (redpart p,greenpart p,bluepart p) -% elseif colormodel p = 7 : -% withcolor (cyanpart p,magentapart p,yellowpart p,blackpart p) -% fi -% enddef ; -% -% else : - - def withproperties expr p = - if colormodel p = 3 : - withcolor greypart p - elseif colormodel p = 5 : - withcolor (redpart p,greenpart p,bluepart p) - elseif colormodel p = 7 : - withcolor (cyanpart p,magentapart p,yellowpart p,blackpart p) - fi - withprescript prescriptpart p - withpostscript postscriptpart p - enddef ; - -% fi ; +def withproperties expr p = + if colormodel p = 3 : + withcolor greypart p + elseif colormodel p = 5 : + withcolor (redpart p,greenpart p,bluepart p) + elseif colormodel p = 7 : + withcolor (cyanpart p,magentapart p,yellowpart p,blackpart p) + fi + withpen penpart p + % if dashpart p <> nullpicture : % fails + dashed dashpart p + % fi + withprescript prescriptpart p + withpostscript postscriptpart p +enddef ; % Experimental: |