summaryrefslogtreecommitdiff
path: root/systems/doc/metapost/source-manual/grdemo.mp
blob: 14fb7609259e17b7d57bdb74c4def6c5f6e706b4 (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
verbatimtex
.EQ
delim $$
.EN
\# etex

prologues := 2;

input boxes

beginfig(1);
  pair shadowshift;
  shadowshift = (1, -1) * bp;

  def drawshadowed(text t) =
    forsuffixes $ = t:
      fill bpath$ shifted shadowshift;
      unfill bpath$;
      drawboxed($);
    endfor
  enddef;

  boxit.a(btex \[12] \s8A\s+2 \[lh] a etex);
  circleit.b(btex $e sup {i omega t}$ etex rotated 20);

  b.w - a.e = (10bp, 0);

  drawshadowed(a, b);
  draw a.e .. b.w;

  label.top(btex \[Cs] \[Po] \[Eu] etex, a.n);
  label.llft(btex \[Fn] etex, a.s);

  draw bbox currentpicture dashed evenly;
endfig;

end