summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/metauml/util_margins.mp
blob: 7b014ee9e7dc4dc27a1372719576b5c735b48775 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% Copyright 2005 2015 Ovidiu Gheorghies
% Licensed under the Apache License, Version 2.0.

if known _util_margins_mp:
   expandafter endinput
fi;
_util_margins_mp:=1;

vardef Margins@#(expr pleft, pright, ptop, pbottom)=
  attributes(@#);
  var(numeric) left, right, top, bottom;

  @#left := pleft;
  @#right := pright;
  @#top := ptop;
  @#bottom := pbottom;
enddef;

vardef MarginsCopy@#(text src)=
  Margins@#(src.left, src.right, src.top, src.bottom);
enddef;