summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/whatever.mp
blob: 70b4678182726e35db7c90d57ffcadbb7fd36503 (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
45
46
47
48
\documentclass[border=1mm]{standalone}
\usepackage{luatex85}
\usepackage{luamplib}
\usepackage{dwmpcode}
\mplibtextextlabel{enable}
\begin{document}
\hbox to 5.3in{$\vcenter{%
\begin{mplibcode}
beginfig(1);
    z1 = (10, 50); 
    z2 = (80, 190);
    z3 = (0, 170);
    z4 = (60, 10);

    draw z1--z2;
    draw z3--z4;

    z0 = alpha [z1, z2] = beta [z3, z4];

    forsuffixes @=0,1,2,3,4: 
        dotlabel.rt("$z_" & decimal @ & "$", z@) 
        withcolor 2/3 if @=0: red else: blue fi; 
    endfor

    %label.urt(decimal alpha, (x2, y0));
    %label.lrt(decimal beta, (x2, y0));

endfig;
\end{mplibcode}}
\qquad\vcenter{
\begin{code}
beginfig(1);
    z1 = (10, 50); 
    z2 = (80, 190);
    z3 = (0, 170);
    z4 = (60, 10);

    z0 = whatever [z1, z2] = whatever [z3, z4];

    draw z1--z2;
    draw z3--z4;
    forsuffixes @=0,1,2,3,4: 
        dotlabel.rt("$z_" & decimal @ & "$", z@) 
        withcolor 2/3 if @=0: red else: blue fi; 
    endfor
endfig;
\end{code}}$\hss}
\end{document}