[AdgTable] s/_cell_get_title/_cell_title/
[adg.git] / nodist / adg.mp
blobaa182b0dcfa32812c7d27add605a2da8d36067bd
1 % ADG logo in MetaPost
3 u  := 5mm;
4 r1 := 4u;       % Radius for D and G
5 d1 := (1 - sind(30)) * r1;
6 r2 := 4u;       % Radius of video screen
7 d2 := (1 - sind(45)) * r2;
9 beginfig(0)
11 linecap := rounded;
12 linejoin := rounded;
14 drawoptions(withpen pencircle scaled 3/2u);
15 draw (4u, 6u) -- (12u, 14u) .. (16u, 10u) .. (12u, 6u) -- (12u, 14u);
16 draw (20u, 10u + r1) .. (20u - r1, 10u) .. (20u, 10u - r1) --
17      (20u, 8u) -- (19u, 8u);
18 draw (12u, 8u) -- (8u, 8u);
20 drawoptions(withpen pencircle scaled 4/5u);
21 draw (2u, 2u) -- (23u, 2u) -- (23u, 18u) -- (2u, 18u) -- cycle;
22 draw (3u, 3u + r2) .. (3u + d2, 3u + d2) .. (3u + r2, 3u) --
23      (22u - r2, 3u) .. (22u - d2, 3u + d2) .. (22u, 3u + r2) --
24      (22u, 17u - r2) .. (22u - d2, 17u - d2) .. (22u - r2, 17u) --
25      (3u + r2, 17u) .. (3u + d2, 17u - d2) .. (3u, 17u - r2) --
26      cycle;
28 endfig;
30 end.