diff options
author | Karl Berry <karl@freefriends.org> | 2006-07-15 21:07:44 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-07-15 21:07:44 +0000 |
commit | addfc6cb8f4f70fdc76a72cb6338bd0c69c4c4c3 (patch) | |
tree | 9df3d1ec788caf8f5a848d259f44cfbafa7ad717 /Master/texmf-dist/metapost/metauml/metauml_class_assoc.mp | |
parent | 9599b464aebb35b4a1bc3bf70a4cd2740f3765f7 (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/metauml_class_assoc.mp')
-rw-r--r-- | Master/texmf-dist/metapost/metauml/metauml_class_assoc.mp | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/metauml/metauml_class_assoc.mp b/Master/texmf-dist/metapost/metauml/metauml_class_assoc.mp new file mode 100644 index 00000000000..457e3015d3a --- /dev/null +++ b/Master/texmf-dist/metapost/metauml/metauml_class_assoc.mp @@ -0,0 +1,95 @@ +% MetaUML, a MetaPost library for typesetting exquisite UML diagrams. +% 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_class_assoc_mp: + expandafter endinput +fi; +_metauml_class_assoc_mp:=1; + +input util_log; +input metauml_defaults; + +FontInfo.assocFont(metauml_defaultFont, .7); +PictureInfo.iAssoc(2, 2, 2, 2)(assocFont); +iAssoc.ignoreNegativeBase := 1; + +vardef QualifiedAssociationInfo@#= + color @#background; + color @#borderColor; + numeric @#borderScale; + + @#background := .9white; + @#borderColor := black; + @#borderScale := .5; + + FontInfo.@#iFont(metauml_defaultFont, .9); + PictureInfo.@#iPict(2, 2, 2, 2)(@#iFont); + PictureStackInfo.@#iStack(2, 2, 1, 1)(7)(@#iPict); + + @#iStack.iPict.ignoreNegativeBase := 1; +enddef; + +vardef QualifiedAssociationInfoCopy@#(text src)= + color @#background; + color @#borderColor; + numeric @#borderScale; + + @#background := src.background; + @#borderColor := src.borderColor; + @#borderScale := src.borderScale; + + FontInfoCopy.@#iFont(src.iFont); + PictureInfoCopy.@#iPict(src.iPict); + PictureStackInfoCopy.@#iStack(src.iStack); +enddef; + +QualifiedAssociationInfo.iQualifiedAssociation; + +% +% QualifiedAssociation +% +vardef EQualifiedAssociation@#(text _info)(text qualifiedAssociations) = + ObjectEquations(@#); + @#className := "QualifiedAssociation"; + + QualifiedAssociationInfoCopy.@#info(_info); + + EPictureStack.@#elementsStack(@#info.iStack)(qualifiedAssociations)("vleftbase"); + + @#nw = @#elementsStack.nw; + @#se = @#elementsStack.se; +enddef; + +vardef QualifiedAssociation@#(text qualifiedAssociations)= + EQualifiedAssociation@#(iQualifiedAssociation)(qualifiedAssociations); +enddef; + +vardef QualifiedAssociation_paintSkin@# = + log "Painting qualifiedAssociation skin..."; + + fill objectBox(@#) withcolor @#info.background; + + draw objectBox(@#) + withpen pencircle scaled @#info.borderScale withcolor @#info.borderColor; +enddef; + +vardef QualifiedAssociation_draw@# = + PictureStack_layout.@#elementsStack; + + QualifiedAssociation_paintSkin.@#; + drawObject(@#elementsStack); +enddef; |