summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/callout.mp
blob: be171d03e55d9058ffe9b58fd7b4dfc0c91f4604 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
\documentclass[border=5mm]{standalone}
\usepackage{luamplib}
\begin{document}
\mplibtextextlabel{enable}
\begin{mplibcode}
beginfig(1);
path a; a = (left .. right) scaled 42;
pair P; P = origin; r = 31;
draw a rotated r withcolor 2/3 red; draw a rotated (90+r) withcolor 2/3 red;
drawdot P withpen pencircle scaled dotlabeldiam;
label("$P$", P shifted 10 dir 68);
    z0 = P + 20 dir -20; 
    draw z0 -- P 
        cutafter fullcircle scaled 8 shifted P
        withpen pencircle scaled 1/4;
    label.rt("\textit{pole}", z0);
endfig;
\end{mplibcode}
\end{document}