summaryrefslogtreecommitdiff
path: root/systems/doc/metapost/source-tutorial/draw.mp
diff options
context:
space:
mode:
Diffstat (limited to 'systems/doc/metapost/source-tutorial/draw.mp')
-rw-r--r--systems/doc/metapost/source-tutorial/draw.mp44
1 files changed, 44 insertions, 0 deletions
diff --git a/systems/doc/metapost/source-tutorial/draw.mp b/systems/doc/metapost/source-tutorial/draw.mp
new file mode 100644
index 0000000000..8b3affb5d9
--- /dev/null
+++ b/systems/doc/metapost/source-tutorial/draw.mp
@@ -0,0 +1,44 @@
+prologues:=3;
+
+if scantokens(mpversion) > 1.005:
+ outputtemplate :=
+else:
+ filenametemplate
+fi
+"%j-%c.mps";
+
+verbatimtex
+%&latex
+\documentclass[11pt]{article}
+\usepackage[charter]{mathdesign}
+\usepackage[T1]{fontenc}
+\renewcommand*{\ttdefault}{lmtt}
+\begin{document}
+etex
+
+% Set unit size to 72bp = 1in
+u:=72;
+
+beginfig(1);
+ % Draw line segmented path
+ draw (0,0)--(3*u/4,u/4)--(u,u) dashed evenly scaled 0.6;
+
+ % Draw curved path
+ draw (0,0){right}..{dir 45}(3*u/4,u/4){dir 45}..{up}(u,u);
+
+ % Label the 3 points
+ label.bot(btex \texttt{z1} etex,(0,0));
+ label.lrt(btex \texttt{z2} etex,(3*u/4,u/4));
+ label.rt(btex \texttt{z3} etex,(u,u));
+endfig;
+
+beginfig(2);
+ % Draw arrow around curved path
+ drawarrow (0,0){right}..{dir 45}(3*u/4,u/4){dir 45}..{up}(u,u);
+
+ % Label the 3 points
+ label.bot(btex \texttt{z1} etex,(0,0));
+ label.lrt(btex \texttt{z2} etex,(3*u/4,u/4));
+ label.rt(btex \texttt{z3} etex,(u,u));
+endfig;
+end