summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/line-caps-and-joins.mp
blob: cf52919d6ec8ed077db25c29c22ca29a8d62f0ef (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
49
50
51
52
53
54
55
56
\documentclass[border=2mm]{standalone}
\usepackage{luamplib}
\begin{document}
\begin{mplibcode}
beginfig(1);
numeric u; u = 32;
z1 = right scaled u;
z2 = z1 rotated 90;
z3 = z2 rotated 90;
z4 = z3 rotated 90;
z5 = 1/2[z1,z2];
z6 = 1/2[z2,z3];
z7 = 1/2[z3,z4];
z8 = 1/2[z4,z1];

color tb, tr;
tb = (.2,.2,.7);
tr = 0.54 red;

drawoptions (withpen pencircle  scaled 2);
picture p;
for i=0 upto 2:
    for j=0 upto 2:
        linecap := i;
        linejoin := j;
        p := image(
            draw unitsquare shifted -(1/2,1/2) scaled 2u withcolor 7/8;
            label(decimal linecap, z7) withcolor tb;
            label(decimal linejoin, z8) withcolor tr;
            drawarrow z1--z3;
            draw z2--z4;
            drawdot(z5);
            drawdot(z6);
            drawarrow halfcircle scaled u rotated 180 shifted z4;
        ) shifted (5/2u*i, -11/4u*j);
        draw p;
        if (i=1) and (j=1): draw bbox p dashed withdots scaled 3/4 
            withpen pencircle scaled 1/2 
            ; fi
        endfor
    endfor

    label("linecap" infont "cmtt10" scaled 1.2, (5/2u, 7/4u));
    label("butt"    infont "cmtt10" , (   0, 5/4u)) withcolor tb;
    label("rounded" infont "cmtt10" , (5/2u, 5/4u)) withcolor tb;
    label("squared" infont "cmtt10" , (5/1u, 5/4u)) withcolor tb;

    label("linejoin" infont "cmtt10" scaled 1.2 rotated 90, (-7/4u, -11/4u));
    label("mitered" infont "cmtt10"  rotated 90, (-5/4u,0)) withcolor tr;
    label("rounded" infont "cmtt10"  rotated 90, (-5/4u,-11/4u)) withcolor tr;
    label("beveled" infont "cmtt10"  rotated 90, (-5/4u,-11/2u)) withcolor tr;

endfig;
\end{mplibcode}
\end{document}