summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp
diff options
context:
space:
mode:
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