nodist/symbols.mp

   1 % Miscellaneous symbols
   2
   3 filenametemplate "%j-%c.mps";
   4
   5 linecap := rounded;
   6 linejoin := rounded;
   7
   8 pen thin, thick;
   9 thin := pencircle scaled 3;
  10 thick := thin scaled 2;
  11
  12
  13 beginfig(0) % Server
  14
  15 pickup thick;
  16 draw (300, 300) -- (180, 260) --
  17      (180,  50) .. controls (200, 30) and (250, 0) .. (280, 0) --
  18      (400, 100) -- (400, 280) -- cycle;
  19
  20 pickup thin;
  21 draw (280, 210) .. controls (250, 210) and (200, 230) .. (180, 260);
  22 draw fullcircle scaled 15 yscaled 1.4 shifted (260, 80);
  23 draw fullcircle scaled 15 yscaled 1.4 shifted (260, 50);
  24 draw (260, 185) .. controls (240, 190) and (220, 190) .. (190, 220);
  25 draw (260, 165) .. controls (240, 170) and (220, 170) .. (190, 200);
  26 draw (400, 280) -- (280, 210) -- (280, 0);
  27
  28 endfig;
  29
  30
  31 beginfig(1) % Database
  32
  33 pickup thick;
  34 draw halfcircle scaled 200 yscaled 0.2 shifted (100, 100) --
  35      halfcircle rotated 180 scaled 200 yscaled 0.2 shifted (100, 20) --
  36      cycle;
  37
  38 pickup thin;
  39 draw halfcircle rotated 180 scaled 200 yscaled 0.2 shifted (100, 100);
  40
  41 endfig;
  42
  43
  44 beginfig(2) % Printer
  45
  46 pickup thick;
  47 draw (100, 0) -- (300, 0) -- (300, 70) -- (100, 70) -- cycle;
  48 draw (300, 50) --
  49      quartercircle rotated -90 scaled 60 shifted (370, 80) ..
  50      quartercircle scaled 60 shifted (370, 200) ..
  51      quartercircle rotated 90 scaled 60 shifted (30, 200) ..
  52      quartercircle rotated 180 scaled 60 shifted (30, 80) .. (100, 50);
  53 draw (300, 230) -- (300, 330) -- (100, 330) -- (100, 230);
  54
  55 pickup thin;
  56 draw (120, 20) -- (280, 20);
  57 draw (120, 35) -- (280, 35);
  58 draw (120, 50) -- (280, 50);
  59 draw (40, 200) -- (360, 200) -- (360, 190) -- (40, 190) -- cycle;
  60
  61 endfig;
  62
  63
  64 beginfig(3) % Sheet
  65
  66 pickup thick;
  67 draw (0, 0) -- (200, 0) -- (200, 180) -- (100, 280) -- (0, 280) -- cycle;
  68 linecap := butt;
  69 draw (200, 180) -- (100, 180) -- (100, 280);
  70
  71 pickup thin;
  72 draw (170, 30) -- (30, 30) -- (30, 250) -- cycle;
  73 draw (115, 60) -- (60, 60) -- (60, 145) -- cycle;
  74 for n = 50 step 20 until 210: draw (30, n) -- (40, n); endfor
  75 linecap := rounded;
  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 beginfig(5) % Cloud
  99
 100 pickup thick;
 101 draw (305,  25) .. controls (279,  20) and (253,  26) ..
 102      (235,  39) .. controls (225,  30) and (223,  24) ..
 103      (198,  20) .. controls (148,  12) and (118,  30) ..
 104      (107,  60) .. controls (106,  62) and (106,  65) ..
 105      (105,  67) .. controls ( 70,  64) and ( 35,  81) ..
 106      ( 25, 108) .. controls ( 15, 135) and ( 33, 162) ..
 107      ( 66, 174) .. controls ( 64, 177) and ( 63, 180) ..
 108      ( 61, 183) .. controls ( 50, 213) and ( 74, 244) ..
 109      (113, 252) .. controls (132, 256) and (152, 254) ..
 110      (168, 247) .. controls (177, 262) and (193, 273) ..
 111      (216, 278) .. controls (248, 284) and (280, 274) ..
 112      (297, 255) .. controls (304, 259) and (312, 262) ..
 113      (321, 264) .. controls (361, 272) and (402, 254) ..
 114      (412, 224) .. controls (417, 209) and (414, 194) ..
 115      (404, 181) .. controls (414, 174) and (421, 165) ..
 116      (425, 155) .. controls (436, 125) and (412,  94) ..
 117      (373,  85) .. controls (369,  84) and (365,  84) ..
 118      (360,  83) .. controls (362,  56) and (340,  31) .. cycle;
 119
 120 endfig;
 121
 122
 123 beginfig(6) % Tablet
 124
 125 pickup thick;
 126 draw quartercircle rotated -90 scaled 60 shifted (140, 30) ..
 127      quartercircle scaled 60 shifted (140, 170) ..
 128      quartercircle rotated 90 scaled 60 shifted (60, 170) ..
 129      quartercircle rotated 180 scaled 60 shifted (60, 30) .. cycle;
 130
 131 pickup thin;
 132 draw (45, 35) -- (45, 165) -- (155, 165) -- (155, 35) -- cycle;
 133 draw fullcircle scaled 25 shifted (100, 18);
 134 draw (75, 185) -- (125, 185) -- (120, 180) -- (80, 180) -- cycle;
 135
 136 endfig;
 137
 138
 139 beginfig(7) % Workstation
 140
 141 pickup thick;
 142 draw (0, 100) -- (300, 100) -- (300, 300) -- (0, 300) -- cycle;
 143 draw (130, 90) -- (170, 90){down} .. (180, 65) -- (120, 65) .. {up}cycle;
 144 draw (80, 50) -- (0, 10) -- (10, 0) -- (290, 0) -- (300, 10) -- (220, 50) -- cycle;
 145 draw (318, 28) .. controls (320, 33) and (335, 43) ..
 146      (350, 38) .. controls (367, 32) and (380, 15) ..
 147      (368,  4) .. controls (360, -5) and (344,  7) ..
 148      (339, 11) .. controls (334, 15) and (318, 23) .. (318, 28) .. cycle;
 149
 150 pickup thin;
 151 draw quartercircle rotated -90 scaled 40 shifted (270, 130) ..
 152      quartercircle scaled 40 shifted (270, 270) ..
 153      quartercircle rotated 90 scaled 40 shifted (30, 270) ..
 154      quartercircle rotated 180 scaled 40 shifted (30, 130) .. cycle;
 155 draw (0, 10) -- (300, 10);
 156 draw (370, 10) .. {dir 135}(340, 20) .. (320, 30);
 157
 158 draw (313, 35){dir 135} .. (280, 50) .. (290, 60) .. (250, 70) ..
 159      (220, 70) .. {dir 220}(185, 75);
 160
 161
 162 endfig;
 163
 164
 165 beginfig(8) % ADG logo
 166
 167 pickup thick scaled 2;
 168 draw (20, 40) -- (100, 120) .. (140, 80) .. (100, 40) -- (100, 120);
 169 draw (180, 120) .. (140, 80) .. (180, 40) -- (180, 60) -- (170, 60);
 170 draw (100, 60) -- (60, 60);
 171
 172 pickup thick;
 173 draw (0, 0) -- (210, 0) -- (210, 160) -- (0, 160) -- cycle;
 174
 175 pickup thin;
 176 draw quartercircle rotated -90 scaled 80 shifted (160, 50) ..
 177      quartercircle scaled 80 shifted (160, 110) ..
 178      quartercircle rotated 90 scaled 80 shifted (50, 110) ..
 179      quartercircle rotated 180 scaled 80 shifted (50, 50) .. cycle;
 180
 181 endfig;
 182
 183
 184 beginfig(9) % Gear
 185
 186 pickup thick;
 187 draw fullcircle scaled 100 shifted (115, 115);
 188 draw for n = 0 step 1 until 7:
 189          subpath (n, n + 0.5) of fullcircle scaled 190 --
 190          subpath (n + 0.5, n + 1) of fullcircle scaled 230 --
 191      endfor
 192   cycle shifted (115, 115);
 193
 194 endfig;
 195
 196
 197 end.