nodist/adg.mp

   1 % ADG logo in MetaPost
   2
   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;
   8
   9 beginfig(0)
  10
  11 linecap := rounded;
  12 linejoin := rounded;
  13
  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);
  19
  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;
  27
  28 endfig;
  29
  30 end.