Untitled Metapost Sample #metapost-sandbox

main.mp

outputtemplate := "%j.eps";

beginfig(1);
  % Единица измерения
  u := 1cm;
  
  % Определяем точки
  pair center, left, right;
  center := (5u, 3u);
  left := (2u, 3u);
  right := (8u, 3u);
  
  % Рисуем коромысло весов
  draw center + (0, 1u) -- center + (0, 0);
  draw center + (-3u, 0) -- center + (3u, 0);
  
  % Рисуем чаши весов
  draw left + (1u, 0) .. left + (0, -0.5u) .. 
       left + (-1u, 0) .. left + (0, 0.5u) .. cycle;
  
  draw right + (1u, 0) .. right + (0, -0.5u) .. 
       right + (-1u, 0) .. right + (0, 0.5u) .. cycle;
  
  % Рисуем гири
  % Гиря 2
  draw center + (-1u, -1u) -- center + (-1u, -2u) -- 
       center + (-2u, -2u) -- center + (-2u, -1u) -- cycle;
  
  % Гиря 3
  draw center + (1u, -1u) -- center + (1u, -2.5u) -- 
       center + (2.5u, -2.5u) -- center + (2.5u, -1u) -- cycle;
  
  % Добавляем метки
  label("2", center + (-1.5u, -1.5u));
  label("3", center + (1.75u, -1.75u));
  
endfig;
end;