nodist/symbols.mp

   1 % Miscellaneous symbols
   2
   3 linecap := rounded;
   4 linejoin := rounded;
   5
   6 pen thin, thick;
   7 thin := pencircle scaled 3;
   8 thick := pencircle scaled 5;
   9
  10
  11 beginfig(0) % Server
  12
  13 pickup thick;
  14 draw (300, 300) -- (180, 260) --
  15      (180,  50) .. controls (200, 30) and (250, 0) .. (280, 0) --
  16      (400, 100) -- (400, 280) -- cycle;
  17
  18 pickup thin;
  19 draw (280, 210) .. controls (250, 210) and (200, 230) .. (180, 260);
  20 draw fullcircle scaled 15 yscaled 1.4 shifted (260, 80);
  21 draw fullcircle scaled 15 yscaled 1.4 shifted (260, 50);
  22 draw (260, 185) .. controls (240, 190) and (220, 190) .. (190, 220);
  23 draw (260, 165) .. controls (240, 170) and (220, 170) .. (190, 200);
  24 draw (400, 280) -- (280, 210) -- (280, 0);
  25
  26 endfig;
  27
  28
  29 beginfig(1) % Database
  30
  31 pickup thick;
  32 draw halfcircle scaled 400 yscaled 0.2 shifted (200, 200) --
  33      halfcircle rotated 180 scaled 400 yscaled 0.2 shifted (200, 40) --
  34      cycle;
  35
  36 pickup thin;
  37 draw halfcircle rotated 180 scaled 400 yscaled 0.2 shifted (200, 200);
  38
  39 endfig;
  40
  41
  42 beginfig(2) % Printer
  43
  44 pickup thick;
  45 draw (100, 0) -- (300, 0) -- (300, 70) -- (100, 70) -- cycle;
  46 draw (300, 50) --
  47      quartercircle rotated -90 scaled 60 shifted (370, 80) --
  48      quartercircle scaled 60 shifted (370, 200) --
  49      quartercircle rotated 90 scaled 60 shifted (30, 200) --
  50      quartercircle rotated 180 scaled 60 shifted (30, 80) -- (100, 50);
  51 draw (300, 230) -- (300, 330) -- (100, 330) -- (100, 230);
  52
  53 pickup thin;
  54 draw (120, 20) -- (280, 20);
  55 draw (120, 35) -- (280, 35);
  56 draw (120, 50) -- (280, 50);
  57 draw (40, 200) -- (360, 200) -- (360, 190) -- (40, 190) -- cycle;
  58
  59 endfig;
  60
  61
  62 beginfig(3) % Sheet
  63
  64 pickup thick;
  65 draw (50, 0) -- (350, 0) -- (350, 300) -- (250, 400) -- (50, 400) -- cycle;
  66 linecap := butt;
  67 draw (350, 300) -- (250, 300) -- (250, 400);
  68
  69 pickup thin;
  70 for n = 50 step 30 until 290:
  71     draw (100, n) -- (300, n);
  72 endfor
  73
  74 draw (100, 320) -- (250, 320);
  75 draw (100, 350) -- (250, 350);
  76
  77 endfig;
  78
  79
  80 beginfig(4) % Laptop
  81
  82 pickup thick;
  83 draw (50, 100) -- (350, 100) -- (350, 300) -- (50, 300) -- cycle;
  84 draw (50, 100) -- (0, 20) -- (10, 0) -- (390, 0) -- (400, 20) -- (350, 100);
  85 draw (0, 20) -- (400, 20);
  86
  87 pickup thin;
  88 draw quartercircle rotated -90 scaled 40 shifted (320, 130) --
  89      quartercircle scaled 40 shifted (320, 270) --
  90      quartercircle rotated 90 scaled 40 shifted (80, 270) --
  91      quartercircle rotated 180 scaled 40 shifted (80, 130) -- cycle;
  92 draw (35, 55) -- (55, 92) -- (345, 92) -- (365, 55) -- cycle;
  93 draw (170, 50) -- (230, 50) -- (233, 28) -- (167, 28) -- cycle;
  94
  95 endfig;
  96
  97
  98 end.