diff options
author | Taco Hoekwater <taco@elvenkind.com> | 2011-04-05 15:03:39 +0000 |
---|---|---|
committer | Taco Hoekwater <taco@elvenkind.com> | 2011-04-05 15:03:39 +0000 |
commit | 540927ad17a1d3f65acd988f4f93edf13d4b303e (patch) | |
tree | a10e681396bb0e38d080c7f6e312c915d380b7e2 /Master/texmf-dist/doc/metapost/base/source-manual/mpman.mp | |
parent | 3bd11c5b320d265b89c965f63f57018ef818b876 (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.mp | 17 |
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 |