summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp
diff options
context:
space:
mode:
authorTaco Hoekwater <taco@elvenkind.com>2011-04-05 15:03:39 +0000
committerTaco Hoekwater <taco@elvenkind.com>2011-04-05 15:03:39 +0000
commit540927ad17a1d3f65acd988f4f93edf13d4b303e (patch)
treea10e681396bb0e38d080c7f6e312c915d380b7e2 /Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp
parent3bd11c5b320d265b89c965f63f57018ef818b876 (diff)
and here is metapost 1.504 (which is still tentative)
git-svn-id: svn://tug.org/texlive/trunk@21976 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp17
1 files changed, 17 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp b/Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp
index 6c97e9d6b79..e458d2fa252 100644
--- a/Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp
+++ b/Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp
@@ -807,4 +807,21 @@ beginfig(60);
draw origin--(4.38in,0);
endfig;
+
+beginfig(61);
+ def shape_with_cardinal_points(expr shape) =
+ image(
+ interim ahangle := 30;
+ interim ahlength := 6bp;
+ drawarrow shape withpen pencircle scaled .5;
+ for k = 0 upto length shape:
+ drawdot point k of shape withpen pencircle scaled dotlabeldiam;
+ endfor
+ )
+ enddef;
+
+ draw shape_with_cardinal_points(fullcircle scaled 1in);
+ draw shape_with_cardinal_points(unitsquare scaled 1in) withcolor .5white;
+endfig;
+
end