summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/metaplot/examples/figures_8-9.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/metaplot/examples/figures_8-9.mp')
-rw-r--r--Master/texmf-dist/doc/latex/metaplot/examples/figures_8-9.mp98
1 files changed, 98 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/metaplot/examples/figures_8-9.mp b/Master/texmf-dist/doc/latex/metaplot/examples/figures_8-9.mp
new file mode 100644
index 00000000000..264f022358b
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/metaplot/examples/figures_8-9.mp
@@ -0,0 +1,98 @@
+% Figures 8-9 from _MetaPlot, MetaContour, and Other Collaborations
+% with METAPOST_, preprint version, given at the Practical TeX 2004
+% conference.
+
+prologues:=0;
+input metaplot % MetaPlot macros
+
+
+% mc2.mp is produced by the very pre-release version of metacontour
+% that should be included with this file; the program consists of
+% the files metacontour.cc, metacontour.h, cpoint.cc, cpoint.h,
+% and metacontour_main.cc. There is no input file; the data to
+% be plotted is generated within the program.
+%
+% Note that the resulting file is not in true "plot object" form;
+% we need to manually clip it and define the plot scale here.
+% This will, of course, be fixed in later versions of metacontour.
+
+input mc2
+clip contplotA.LinePlot to (0,0)--(0,1)--(1,1)--(1,0)--cycle;
+clip contplotA.FillPlot to (0,0)--(0,1)--(1,1)--(1,0)--cycle;
+clip contplotA.Grid to (0,0)--(0,1)--(1,1)--(1,0)--cycle;
+
+contplotA.xleft = -1.0;
+contplotA.xright = 1.0;
+contplotA.ybot = -1.0;
+contplotA.ytop = 1.0;
+
+
+% Define pens, for convenience.
+
+pen thickline; thickline := pencircle scaled 2pt;
+pen thinline; thinline := pencircle scaled 1pt;
+pen hairline; hairline := pencircle scaled 0.25pt;
+
+
+% Figure 8: Sample graph created by MetaContour and MetaPlot,
+% showing potential lines for a combination of a linear gradient
+% and a point source, plotted on a polar grid.
+
+plot_instantiate(cplotA, contplotA);
+
+cplotA.pagewidth = 2.25in;
+plot_setequalaxes(cplotA);
+cplotA.llft = (0,0);
+
+beginfig(8);
+ draw cplotA.plot(LinePlot) withpen thinline;
+ draw cplotA.plot(Grid) withpen hairline;
+ linejoin:=mitered;
+ draw cplotA.llft--cplotA.lrt--cplotA.urt--cplotA.ulft--cycle withpen thickline;
+ draw plot_xtickscale(cplotA)(
+ cplotA.llft, cplotA.lrt,
+ 0.08in, 0.06in, down, 0.0, 0.5, "%3f")
+ withpen thinline;
+ draw plot_xtickscale(cplotA)(
+ cplotA.llft, cplotA.lrt,
+ 0.05in, 0.06in, down, 0.0, 0.1, "")
+ withpen thinline;
+ draw plot_ytickscale(cplotA)(
+ cplotA.llft, cplotA.ulft,
+ 0.08in, 0.06in, left, 0.0, 0.5, "%3f")
+ withpen thinline;
+ draw plot_ytickscale(cplotA)(
+ cplotA.llft, cplotA.ulft,
+ 0.05in, 0.06in, left, 0.0, 0.1, "")
+ withpen thinline;
+endfig;
+
+
+% Figure 9: Another sample graph created by MetaContour and MetaPlot,
+% illustrating a filled contour-plot style rather than using contour
+% lines.
+
+beginfig(9);
+ draw cplotA.plot(FillPlot);
+ draw cplotA.plot(Grid) withpen hairline;
+ linejoin:=mitered;
+ draw cplotA.llft--cplotA.lrt--cplotA.urt--cplotA.ulft--cycle withpen thickline;
+ draw plot_xtickscale(cplotA)(
+ cplotA.llft, cplotA.lrt,
+ 0.08in, 0.06in, down, 0.0, 0.5, "%3f")
+ withpen thinline;
+ draw plot_xtickscale(cplotA)(
+ cplotA.llft, cplotA.lrt,
+ 0.05in, 0.06in, down, 0.0, 0.1, "")
+ withpen thinline;
+ draw plot_ytickscale(cplotA)(
+ cplotA.llft, cplotA.ulft,
+ 0.08in, 0.06in, left, 0.0, 0.5, "%3f")
+ withpen thinline;
+ draw plot_ytickscale(cplotA)(
+ cplotA.llft, cplotA.ulft,
+ 0.05in, 0.06in, left, 0.0, 0.1, "")
+ withpen thinline;
+endfig;
+
+end