summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/context/base/mpiv/mp-grap.mpiv
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/context/base/mpiv/mp-grap.mpiv')
-rw-r--r--Master/texmf-dist/metapost/context/base/mpiv/mp-grap.mpiv28
1 files changed, 10 insertions, 18 deletions
diff --git a/Master/texmf-dist/metapost/context/base/mpiv/mp-grap.mpiv b/Master/texmf-dist/metapost/context/base/mpiv/mp-grap.mpiv
index 0299c0587a1..e799f629c0f 100644
--- a/Master/texmf-dist/metapost/context/base/mpiv/mp-grap.mpiv
+++ b/Master/texmf-dist/metapost/context/base/mpiv/mp-grap.mpiv
@@ -266,27 +266,19 @@ enddef ;
graph_margin_fraction.low=-.07 ; % bbox fraction for default range start
graph_margin_fraction.high=1.07 ; % bbox fraction for default range stop
-%def graph_with_pen_and_color(expr q) =
-% withpen penpart q
-% withcolor
-% if colormodel q=1 :
-% false
-% elseif colormodel q=3 :
-% (greypart q)
-% elseif colormodel q=5 :
-% (redpart q, greenpart q, bluepart q)
-% elseif colormodel q=7 :
-% (cyanpart q, magentapart q, yellowpart q, blackpart q)
-% fi
-% withprescript prescriptpart q
-% withpostscript postscriptpart q
-%enddef ;
-
def graph_with_pen_and_color(expr q) =
- withproperties q
+ withpen penpart q withcolor
+ if colormodel q=1 :
+ false
+ elseif colormodel q=3 :
+ (greypart q)
+ elseif colormodel q=5 :
+ (redpart q, greenpart q, bluepart q)
+ elseif colormodel q=7 :
+ (cyanpart q, magentapart q, yellowpart q, blackpart q)
+ fi
enddef ;
-
% Add picture component q to picture @# and change part p to tp,
% where p is something from q that needs coordinate transformation.
% The type of p is pair or path.