summaryrefslogtreecommitdiff
path: root/info/drawing-with-metapost/src/qed.mp
blob: e8ef24e4bd30fb0efbe90c8530343cb818800c53 (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
\documentclass[border=5mm]{standalone}
\usepackage{luamplib}
\begin{document}
\mplibtextextlabel{enable}
\begin{mplibcode}
def perpendicular expr t of p = 
  direction t of p rotated 90 shifted point t of p
  enddef;

vardef block(expr r) = 
    save u, n, s, theta, base, ray;
    numeric u, n, s, theta;
    u = 5mm;  n = 32; s = 8u; theta = -45;

    path base, ray[];
    base = origin for i=1 upto n-1: -- (i/n*s,r*normaldeviate) endfor 
        -- (s,0) -- (s,-u) -- (0,-u) -- cycle;

    image(
        fill base withcolor .8[blue,white];
        draw base withcolor .67 blue;

        for i=2 upto 6:
          ray[i] = (left--right) scaled 2/3 s rotated theta shifted (i*u,0);
          b := ypart(ray[i] intersectiontimes base);
          ray[i] := point 0 of ray[i] 
                 -- point b of base 
                 -- point 0 of ray[i] reflectedabout(point b of base, perpendicular b of base);
          drawarrow ray[i];
        endfor   

        label("r=" & decimal r, center base);
    ) enddef;

beginfig(0);

    draw block(0); draw block(0.42) shifted 180 right;


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