summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/interdigitrodes.mp
blob: 8b4488ba775038de17665bf02c7111f1ea6ddfd1 (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
% interdigitrodes.mp
% L. Nobre G.
% 2012

prologues := 1;

beginfig(1);
  numeric u, t, i, j, len;
  u = 1mm;
  t = 4u;
  i = 1u;
  len = 2*(t+i);
  path basepath;
  basepath = ((0,0.5t)---(3len,0.5t)--(3len,-0.5t)---(0,-0.5t)..cycle)
    shifted (-len,0.5*(t+i));
  fill basepath;
  fill basepath shifted (0,len);
  fill basepath shifted (0,-len);
  fill basepath shifted (0,-2len);
  fill (2len,-2len)--(3len,-2len)--(3len,2len)--(2len,2len)--cycle;
  draw currentpicture rotated 180 withcolor 0.333white;
endfig;

end.