summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/bisection-vector.mp
blob: 55a8166df926cc4e27aed182348ffdb11f416b12 (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
\documentclass{standalone}
\usepackage{luamplib}
\usepackage{dwmpcode}
\mplibtextextlabel{enable}
\begin{document}
\vbox{\openup 1pt \halign to 4in{#\cr
\begin{code}
vardef vector_bisector(expr a,b,c,r) = 
   b + unitvector (a-b) scaled r 
     + unitvector (c-b) scaled r
enddef;
\end{code}
\cr\kern 64pt
\begin{mplibcode}
input bisection
beginfig(1);
z0 = vector_bisector(A,B,C,50);
drawarrow B--A  cutafter fullcircle scaled 5 shifted A;
drawarrow B--C  cutafter fullcircle scaled 5 shifted C;
drawarrow B--z0 cutafter fullcircle scaled 5 shifted z0 
withcolor .67 red;
dotlabel.top(btex $A$ etex, A);
dotlabel.lft(btex $B$ etex, B);
dotlabel.lrt(btex $C$ etex, C);
dotlabel.lrt(btex $E$ etex, z0);
undraw bbox currentpicture;
endfig;
\end{mplibcode}
\cr}}
\end{document}