summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/metauml/util_shade.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-07-15 21:07:44 +0000
committerKarl Berry <karl@freefriends.org>2006-07-15 21:07:44 +0000
commitaddfc6cb8f4f70fdc76a72cb6338bd0c69c4c4c3 (patch)
tree9df3d1ec788caf8f5a848d259f44cfbafa7ad717 /Master/texmf-dist/metapost/metauml/util_shade.mp
parent9599b464aebb35b4a1bc3bf70a4cd2740f3765f7 (diff)
new metapost package metauml (21mar06)
git-svn-id: svn://tug.org/texlive/trunk@1851 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/metauml/util_shade.mp')
-rw-r--r--Master/texmf-dist/metapost/metauml/util_shade.mp55
1 files changed, 55 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/metauml/util_shade.mp b/Master/texmf-dist/metapost/metauml/util_shade.mp
new file mode 100644
index 00000000000..2cc6f99af91
--- /dev/null
+++ b/Master/texmf-dist/metapost/metauml/util_shade.mp
@@ -0,0 +1,55 @@
+% MetaUtil, an easier MetaPost life
+% Copyright (C) 2005 Ovidiu Gheorghies
+%
+% This program is free software; you can redistribute it and/or
+% modify it under the terms of the GNU General Public License
+% as published by the Free Software Foundation; either version 2
+% of the License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
+if known _metauml_shade_mp:
+ expandafter endinput
+fi;
+_metauml_shade_mp:=1;
+
+input util_log;
+
+vardef ShadeInfo@#=
+ _n_ := str @#;
+ generic_declare(numeric) _n.shift;
+ generic_declare(color) _n.background;
+
+ @#shift := 1;
+ @#background := .7white;
+enddef;
+
+vardef ShadeInfoCopy@#(text src)=
+ ShadeInfo.@#;
+ ShadeInfo_copy@#(src);
+enddef;
+
+vardef ShadeInfo_copy@#(text src)=
+ @#shift := src.shift;
+ @#background := src.background;
+enddef;
+
+vardef ShadeInfo_toString@#=
+ save @#ret;
+ string @#ret;
+ @#ret := "Shade (shift: " & (decimal @#shift) & " back: (" &
+ (decimal redpart @#background) & ", " &
+ (decimal greenpart @#background) & ", " &
+ (decimal bluepart @#background) & ")";
+
+ @#ret
+enddef;
+
+