From addfc6cb8f4f70fdc76a72cb6338bd0c69c4c4c3 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 15 Jul 2006 21:07:44 +0000 Subject: new metapost package metauml (21mar06) git-svn-id: svn://tug.org/texlive/trunk@1851 c570f23f-e606-0410-a88d-b1316a301751 --- .../metapost/metauml/metauml_class_assoc.mp | 95 ++++++++++++++++++++++ 1 file changed, 95 insertions(+) create mode 100644 Master/texmf-dist/metapost/metauml/metauml_class_assoc.mp (limited to 'Master/texmf-dist/metapost/metauml/metauml_class_assoc.mp') 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; -- cgit v1.2.3