summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mparrows/mparrowsexamples.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-02-15 22:09:51 +0000
committerKarl Berry <karl@freefriends.org>2016-02-15 22:09:51 +0000
commit7a71974f40b3428a65dd3a30deb8f34b865b22f6 (patch)
treecc2bdc99327f49f3abe7f4459fd2a9d12d8fd1b5 /Master/texmf-dist/doc/metapost/mparrows/mparrowsexamples.mp
parent05a82e7a677f0d89489d237fd08ff5ba2bfa34ec (diff)
mparrows (15feb16)
git-svn-id: svn://tug.org/texlive/trunk@39729 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mparrows/mparrowsexamples.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/mparrows/mparrowsexamples.mp90
1 files changed, 90 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/mparrows/mparrowsexamples.mp b/Master/texmf-dist/doc/metapost/mparrows/mparrowsexamples.mp
new file mode 100644
index 00000000000..d642e03079b
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/mparrows/mparrowsexamples.mp
@@ -0,0 +1,90 @@
+% Copyright 2016, Palle Jorgensen, hamselv(at)pallej.dk
+%
+% This file is part of the mparrows MetaPost module.
+%
+% mparrows is free software: you can redistribute it and/or modify it
+% under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% Foobar is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with Foobar. If not, see <http://www.gnu.org/licenses/>.
+verbatimtex
+%&latex
+\documentclass[11pt]{scrbook}
+\usepackage{tgpagella}
+\usepackage[T1]{fontenc}
+
+\begin{document}
+etex;
+
+input mparrows;
+
+filenametemplate "%j%c.mps";
+
+for s within btex text etex:
+ defaultfont:=fontpart.s;
+ defaultscale:=xxpart.s;
+ exitif true;
+endfor
+
+for i = 0 upto 7:
+ beginfig(i);
+ setarrows(i);
+ drawarrow (origin{right}..{up}(0,2mm));
+ drawdblarrow ((0,-2mm){up}..origin{right}..{up}(0,2mm)) shifted (5mm,0);
+ currentpicture:=currentpicture scaled 5;
+ endfig;
+endfor
+
+setarrows(barbed);
+for i = 0 upto 10:
+ beginfig(i+10);
+ barbedarrowindent:=2*i/10;
+ drawarrow origin{dir 20}..{dir 20}(1cm,0);
+ currentpicture:=currentpicture scaled 5;
+ label.rt("barbedarrowindent=" & decimal.barbedarrowindent, (55mm,0mm));
+ endfig;
+endfor;
+
+beginfig(30);
+ barbedarrowindent:=-.6;
+ drawarrow origin{dir 20}..{dir 20}(1cm,0);
+ currentpicture:=currentpicture scaled 5;
+ label.rt("barbedarrowindent=" & decimal.barbedarrowindent, (55mm,0mm));
+endfig;
+
+setarrows(orig);
+
+beginfig(31);
+ drawarrow (origin{right}..{up}(0,2mm));
+ draw _apth withcolor red;
+ currentpicture:=currentpicture scaled 5;
+endfig;
+
+setarrows(default);
+
+beginfig(32);
+ drawarrow (origin{right}..{up}(0,2mm));
+ draw _apth withcolor red;
+ currentpicture:=currentpicture scaled 5;
+endfig;
+
+setarrows(barbedunfilled);
+
+beginfig(33);
+ barbedarrowindent:=.6;
+ drawarrow (origin{right}..{up}(0,2mm));
+ draw (makepath pencircle scaled 2ahlength) shifted (0,2mm) withcolor red withpen currentpen scaled .2;
+ draw (makepath pencircle scaled (2*barbedarrowindent*ahlength)) shifted (0,2mm) withcolor green withpen currentpen scaled .2;
+ currentpicture:=currentpicture scaled 5;
+
+endfig;
+
+
+end.