summaryrefslogtreecommitdiff
path: root/systems/doc/metapost/source-tutorial/draw.mp
blob: 8b3affb5d96db467235fd5d271ccc048fbf0e653 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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