diff options
| -rw-r--r-- | Master/texmf-dist/tex/latex/pst-uml/pst-uml.sty | 889 |
1 files changed, 889 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/pst-uml/pst-uml.sty b/Master/texmf-dist/tex/latex/pst-uml/pst-uml.sty new file mode 100644 index 00000000000..80b5cb58377 --- /dev/null +++ b/Master/texmf-dist/tex/latex/pst-uml/pst-uml.sty @@ -0,0 +1,889 @@ +%% +%% This is file `pst-uml.sty', +%% +%% IMPORTANT NOTICE: +%% +%% Package `pst-uml.sty' +%% +%% Maurice Diamantini <diam@ensta.fr> +%% +%% May 07, 2003 +%% +%% This program can be redistributed and/or modified under the terms +%% of the LaTeX Project Public License Distributed from CTAN archives +%% in directory macros/latex/base/lppl.txt. +%% +%% DESCRIPTION: +%% `pst-uml' is a PSTricks package to draw UML diagrams +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Fichier pst-uml.sty $Id: pst-uml.sty,v 1.23 1998/08/24 07:10:32 diam Exp $ +% +% Ce fichier fournit des macro pstricks pour faciliter la création +% de diagrammes UML : +% +% Inspir\'e des exemples de Denis GIROU +% +% mise `a jour par diam@ensta.fr : +% 22/02/98 : création +% 15/03/98 : utilsation des cl\'e pour les option de \umlClass + +\def\filename{pst-uml} +\def\fileBut{Quelques macros pstricks pour diagrammes UML} +\def\fileversion{0.8} +\def\filedate{1998/04/15} +\def\fileMailAutor{diam@ensta.fr} +% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{\filename}% + [\filedate\space v\fileversion\space-\space\fileMailAutor] +\typeout{\space\space\space But\space:\space\fileBut.} +% +% Chargement de pstricks puis de graphicx +% \usepackage{pst-all} +% pstcol charge color dans le bon ordre, necessite un fichier color.cfg +\RequirePackage{pstcol} % Require a color.cfg file defined +% \RequirePackage{pst-grad} +% \RequirePackage{pst-plot} +% \RequirePackage{pst-coil} +% \RequirePackage{pst-text} +% \RequirePackage{pst-char} +\RequirePackage{pst-node} +% \RequirePackage{pst-3d} +% \RequirePackage{pst-eps} +% \RequirePackage{pst-fill} +\RequirePackage{pst-tree} +\RequirePackage{multido} + +\RequirePackage{calc} +\RequirePackage{ifthen} + +\RequirePackage[dvips]{graphicx} % a charger APRES pstricks + + +% DPC interface to the `keyval' package (until keyval based version +% of PSTricks) +\IfFileExists{pst-key.tex}{% + % \RequirePackage{pst-key}% "pst-key.sty" does not exist as latex style + \input{pst-key.tex}% +}{% + \PackageWarning{pst-uml}{*** You should install package "pst-key" ***}% + % \input{needed/pst-key.tex}% + \input{pst-key.tex}% +} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Définition de quelques couleur par défaut utilisées pour UML +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\definecolor{uml_greyLight} {rgb}{0.9,0.9,0.9} +\definecolor{uml_grey80} {rgb}{0.8,0.8,0.8} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Quelques variable ou boite temporaires : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% compteur (i.e. entiers) pour les calculs temporaires +\newcounter{umlint@a} +\newcounter{umlint@b} +\newcounter{umlint@c} +\newcounter{umlint@d} +% longueurs pour les calculs temporaires +\newlength{\umldim@a} +\newlength{\umldim@b} +\newlength{\umldim@c} +\newlength{\umldim@d} +\newlength{\umldim@D}% Depth +\newlength{\umldim@H}% Height +\newlength{\umldim@W}% Width +% boite temporaire de memoristion des parametres +\newsavebox{\umlbox@a} +\newsavebox{\umlbox@b} +\newsavebox{\umlbox@c} +\newsavebox{\umlbox@d} +\newsavebox{\umlbox@out} +% boolean temporaires +\newboolean{umlbool@a} +\newboolean{umlbool@b} +\newboolean{umlbool@c} +\newboolean{umlbool@d} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Affectation des valeurs par defaut standard de pstricks : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\setkeys{psset}{ + % labelsep=0.5mm, % au lieu de +/- 2mm + labelsep=1mm, % au lieu de +/- 2mm + subgriddiv=1, % pour une grille de 1cm en pointilles + griddots=10, + gridlabels=6pt, + arrowscale=2, +} +\SpecialCoor + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Definition des parametres par défaut (nouvelles longueurs, ...) +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% % For debug : ShowPosition +% % +% % usage : +% % \ifthenelse{\value{umlDebug} > 0}{\ShowPosition}{}% +% % +% \newboolean{umlDebug}\setboolean{umlDebug}{false} + +% Un entier pour Degoguer +% ATTENTION : si pb de portée de variable (si besoin compteur global) : +% passer par \edef +% +\newcounter{umlDebug} +\define@key{psset}{umlDebug}{% + \setcounter{umlDebug}{#1}% + % + % \setcounter{umlint@a}{#1} + % \setcounter{umlDebug}{\the\umlint@a}% + % + % \pst@cntg=#1\relax% + % \edef\psk@Integer{\the\pst@cntg}% +} + + +% Alignement du texte dans la boite umlstack (l, c, r) +\newcommand{\umlstr@Align}{} +\define@key{psset}{umlAlign}{\renewcommand{\umlstr@Align}{#1}} + +% Positionnement vertical de la boite umlstack (t, b, c) +\newcommand{\umlstr@Pos}{} +\define@key{psset}{umlPos}{\renewcommand{\umlstr@Pos}{#1}} + +% Distance de séparation du texte à la boite umlstack +% Influe sur colsep pour l'espace horizontal et sur des strut pour +% l'espace vertical +\newlength\umldim@StackSep +\define@key{psset}{umlStackSep}{\pssetlength\umldim@StackSep{#1}} + +% cooéficient de modif de l'interligne de umlstack +\newcommand{\umlreal@StackLinesStretch}{} +\define@key{psset}{umlStackLinesStretch}{% + \renewcommand{\umlreal@StackLinesStretch}{#1}} + +% Largeur de la boite "umlStack" +\newlength\umldim@StackWidth +\define@key{psset}{umlStackWidth}{\pssetlength\umldim@StackWidth{#1}} + +% Largeur de la boite "classe" +\newlength\umldim@ClassWidth +\define@key{psset}{umlClassWidth}{\pssetlength\umldim@ClassWidth{#1}} + +% distance entre deux \hline dans la boite "classe" +\newlength\umldim@umlDoubleRuleSep +\define@key{psset}{umlDoubleRuleSep}{\pssetlength\umldim@umlDoubleRuleSep{#1}} + +% Chaine "Template" +% umlParameter +\newcommand{\umlstr@umlParameter}{} +\define@key{psset}{umlParameter}{\renewcommand{\umlstr@umlParameter}{#1}} + + +% % un parametre boolean +% \newif\ifuml@Shadow +% \define@key{psset}{umlShadow}[true]{\@nameuse{uml@Shadow#1}} +% un parametre boolean +\newboolean{umlbool@Shadow} +\define@key{psset}{umlShadow}[true]{\setboolean{umlbool@Shadow}{#1}} + + +% Epaisseur de ligne pour le dessin d'un acteur +\newlength\umldim@ActorLineWidth +\define@key{psset}{umlActorLineWidth}{\pssetlength\umldim@ActorLineWidth{#1}} + +% Nom d'un objet (umlState, ...) N'EST PAS UTILISE ! +\newcommand{\umlname@umlTitle}{} +\define@key{psset}{umlTitle}{\renewcommand{\umlname@umlTitle}{#1}} + +% Affectation des valeurs par defaut sprecifique a pst-uml: +\setkeys{psset}{ + umlClassWidth=0, + umlShadow=true, + umlActorLineWidth=0.6mm, + umlParameter=, + umlTitle=, + umlDoubleRuleSep=2mm, + umlStackLinesStretch=0.85, + umlStackSep=0, + umlStackWidth=0, + umlAlign=c, + umlPos=c, +} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Quelques commandes utilitaires generales : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% pour passer plusieurs lignes (par \\) dans un parametre simple +% +% La difficulté était de gérer l'option "StackSep" pour le +% haut et le bas du texte. +% ATTENTION il faut s'assurer que cette commande fonctionne même +% si le texte passé en parametre commence ou finit par \hline ! +% +% +\newcommand{\umlStack}[2][]{{% + \setkeys{psset}{#1}% + \setlength{\tabcolsep}{\umldim@StackSep}% + \renewcommand{\arraystretch}{\umlreal@StackLinesStretch}% + \ifthenelse{\lengthtest{\umldim@StackWidth=0pt}}{% + % dimensionnement automatique + \begin{tabular}[\umlstr@Pos]{\umlstr@Align}% + }{% else + % dimensionnement fixe + \begin{tabular*}{\umldim@StackWidth}[\umlstr@Pos]{\umlstr@Align}% + }% endif + % \begin{tabular}[\umlstr@Pos]{\umlstr@Align}% + \setlength{\umldim@a}{1.5ex+\umldim@StackSep}% + \rule{0pt}{\umldim@a}% + \\[-2.5ex]% + #2% + \\[-2.5ex]% + \setlength{\umldim@a}{-\umldim@StackSep}% + \rule[-\umldim@StackSep]{0pt}{0pt}% + % \end{tabular}% + \ifthenelse{\lengthtest{\umldim@StackWidth=0pt}}{% + % dimensionnement automatique + \end{tabular}% + }{% else + % dimensionnement fixe + \end{tabular*}% + }% endif +}} + +% FONCTIONNE MAIS LE PREMIER \rule gene si #2 commence par \hline +% \newcommand{\umlStack}[2][]{{% +% \setkeys{psset}{#1}% +% \setlength{\tabcolsep}{\umldim@StackSep}% +% \renewcommand{\arraystretch}{\umlreal@StackLinesStretch}% +% \begin{tabular}{\umlstr@Align}% +% \setlength{\umldim@a}{1.5ex+\umldim@StackSep}% +% \rule{0pt}{\umldim@a}% +% #2% +% \setlength{\umldim@a}{-\umldim@StackSep}% +% \rule[-\umldim@StackSep]{0pt}{0pt} +% \end{tabular}% +% }} + +% Pour creer une boite vide width, height +% Exemple \umlEmptyBox{7cm}{10cm} +\newcommand{\umlEmptyBox}[2]{% + \rule{#1}{0cm}% + \rule{0cm}{#2}% +} + +% permet d'afficher <<MonStereoType>> sans serif. +\newcommand{\umlStereoType}[1]{% + {\footnotesize\ensuremath{\ll}}\textsf{#1}{\footnotesize\ensuremath{\gg}}% +} + +% permet d'afficher un triangle plein vers la droite. +% Pas d'option pour l'instant +\newcommand{\umlTriRight}[1][]{{% + \setkeys{psset}{#1}% + \space + \begin{pspicture}(0,0)(1.1ex,1.1ex)% + \pstriangle[linewidth=0,fillstyle=solid,fillcolor=black,gangle=-90]% + (0.55ex,0.55ex)(1.1ex,1.1ex)% + \end{pspicture}% + \space +}} +% permet d'afficher un triangle plein vers la gauche. +% Pas d'option pour l'instant +\newcommand{\umlTriLeft}[1][]{{% + \setkeys{psset}{#1}% + \space + \begin{pspicture}(0,0)(1.1ex,1.1ex)% + \pstriangle[linewidth=0,fillstyle=solid,fillcolor=black,gangle=90]% + (0.55ex,0.55ex)(1.1ex,1.1ex)% + \end{pspicture}% + \space +}} + +% For drawing a grid of 1cm in pointed line +% but \showgrid could be already define by another package +% PLANTE SI \showgrid EST REDEFINIE DANS fvrbext.sty +% \providecommand{\showgrid}{% +% \psset{subgriddiv=1,griddots=10,gridlabels=6pt,} +% \psgrid +% } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% La macro principal pour dessiner une classe : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% Le corps de la commande est entre {{ }} pour assurer des changements +% LOCAUX des valeurs de parametres (tels que \psset{...}) +\newcommand{\umlClass}[3][]{{% + \setkeys{psset}{#1}% Reading keyOptions + \setlength{\doublerulesep}{\umldim@umlDoubleRuleSep}% + \def\next{#2}% + \ifx\next\empty% + % Title IS EMPTY (JAMAIS UTILISE ! : A VIRER ??) + \sbox{\umlbox@out}{\texttt{\umlStack[umlStackSep=1ex]{#3}}}% + \else% + % Title is NOT EMPTY + \def\next{#3}% + \ifx\next\empty% + % Body IS EMPTY + \sbox{\umlbox@out}{\textbf{\umlStack[umlStackSep=1ex]{#2}}}% + \else% + % Body is NOT EMPTY + \sbox{\umlbox@out}{\ttfamily% + \begin{tabular}{l}% + \hfil\normalfont\textbf{% + \setlength{\tabcolsep}{0pt} + \begin{tabular}{c} + #2 + \end{tabular} + }% + \\ \hline% + #3% + \end{tabular}% + }% + \fi% + \fi% + % Output box is now define + % + % On dessine la boite finale : + \ifthenelse{\boolean{umlbool@Shadow}}{% + \psshadowbox[fillstyle=solid,framesep=0,fillcolor=uml_grey80]% + {\usebox{\umlbox@out}}% + }{% + {\setlength{\fboxsep}{0pt}\fbox{\usebox{\umlbox@out}}}% + }% + % + % On superpose éventuellement le template (rectangle pointillé) + % + \settowidth{\umldim@a}{\umlstr@umlParameter}% + \ifthenelse{\lengthtest{\umldim@a=0pt}}{% + }{% + \settoheight{\umldim@H}{\usebox{\umlbox@out}}% Height + \setlength{\umldim@a}{1.5ex}% dx + \setlength{\umldim@b}{\umldim@H - 0.3ex}% Height - dy + % + \rput[br](\umldim@a,\umldim@b){% + \psframebox[fillstyle=solid,fillcolor=white,linestyle=dashed]% + {\Large\textbf{\umlstr@umlParameter}}% + }% + }% + % +}} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Memorisation d'une classe dans une boite +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% Surcourche à la commande de dessin de classe : +% CECI FONCTIONNE MAL (la boite cree s'appel "#" ) +% Je n'ai pas reussi en jonglant aves les \csname et autre \@nameuse +\newcommand{\umlSaveClass}[3][]{% + \newsavebox{\#2}% + \savebox{\#2}{% + \umlClass[#1]{#2}{#3}% + }% +} +% Pas de \umlUseClass car sera egalement utilisée pour les acteurs, ... +\newcommand{\umlUseBox}[1]{\usebox{\#1}} + + +% % Surcourche à la commande de dessin de classe : +% % +% % CECI FONCTIONNE PAS : +% % \newsavebox{\csname#2\endcsname} PLANTE : +% % idem avec : +% % \expandafter\newsavebox{\csname#2\endcsname} +% % ! LaTeX Error: Command \csnameClasse 1 bis\endcsname already defined. +% % +% \newcommand{\umlSaveClass}[3][]{% +% \typeout{**************avant newsavebox } +% \expandafter\newsavebox{\csname#2\endcsname}% +% \typeout{**************apres newsavebox } +% \savebox{\csname#2\endcsname}{% +% \typeout{**************apres savebox } +% \umlClass[#1]{#2}{#3}% +% }% +% } +% % Pas de \umlUseClass car sera aussi utilisée pour les acteurs, ... +% \newcommand{\umlUseBox}[1]{% +% \typeout{***************avant use box } +% \usebox{\csname#1\endcsname}% +% } + + +% % Surcourche à la commande de dessin de classe : +% % CECICOMPILE MAIS FONCTIONNE PAS +% % affiche "Classe 1bisClasse 1bis" (nom double) sous la classe +% \newcommand{\umlSaveClass}[3][]{% +% \newsavebox{\@nameuse{#2}}% +% \savebox{\@nameuse{#2}}{% +% \umlClass[#1]{#2}{#3}% +% }% +% } +% % Pas de \umlUseClass car sera aussi utilisée pour les acteurs, ... +% \newcommand{\umlUseBox}[1]{% +% \usebox{\@nameuse{#1}}% +% } + +% % Surcourche à la commande de dessin de classe : +% % CECI FONCTIONNE PAS : +% % ! Illegal parameter number in definition of \@tempa. +% % Je n'ai pas reussi en jonglant aves les \csname et autre \@nameuse +% \newcommand{\umlSaveClass}[3][]{% +% \@namedef{boxname}{#2} +% \newsavebox{\expandafter\boxname}% +% \savebox{\expandafter\boxname}}{% +% \umlClass[#1]{#2}{#3}% +% }% +% } +% % Pas de \umlUseClass car sera aussi utilisée pour les acteurs, ... +% \newcommand{\umlUseBox}[1]{% +% \@namedef{boxname}{#1} +% \usebox{\expandafter\boxname}% +% } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Memorisation d'une classe dans une commande +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% A faire (utiliser gdef par exemple ?) +% s'assurer que la commande cree est GLOGALE !! + + +% \newcommand{\umlDefClass}[3][]{% +% \@ifundefined{\csname#2\endcsname}{% +% % NOT DEFINE +% \typeout{^^Jcommande NON definie : "#2"^^J}% +% \newcommand{\csname#2\endcsname}{% +% \umlClass[#1]{#2}{#3 +% } +% }{% +% % IS DEFINE +% \typeout{^^Jcommande DEJA definie : "#2"^^J}% +% \renewcommand{\csname#2\endcsname}{% +% \umlClass[#1]{#2}{#3 +% } +% } +% } +% % Pas de \umlRunClass car sera aussi utilisée pour les acteurs, ... +% \newcommand{\umlRun}[1]{\@usename{#1}} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% La macro pour dessiner un acteur : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\newcommand{\umlActor}[2][]{{% + \psset{unit=0.8,arrows=-}% + \setkeys{psset}{#1}% + \begin{tabular}[t]{c}% + \begin{pspicture}(-0.5,0)(0.5,1.9)% + \psset{linewidth=\umldim@ActorLineWidth}% + \pscircle(0,1.6){0.3\psyunit}% la tete + \psline(0cm,.65)(0cm,1.3)% le tronc + \psline(-0.25,0cm)(0cm,0.65)% jambe gauche + \psline(0.25,0cm)(0cm,0.65)% jambe droite + \psline(-0.5,1)(0.5,1)% les bras + \end{pspicture}\\ + \begin{pspicture}(0,0)% + \setlength{\tabcolsep}{0pt}% + \begin{tabular}[t]{c}% + #2% + \end{tabular}% + \end{pspicture}\\ + \end{tabular}% +}} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% La macro pour dessiner les useCase : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% \umlCase[keyOptions]{Title}{Body} : #2 = Title +% Option : idem que psovalbox +% Remarque : utiliser ovalnode et non pas rnode pour les placements +% +% BUG : \psovalbox creer une boite RECTANGULAIRE dans la quelle il y a +% un oval => difficile de séparer la CREATION du dessin et le PLACEMENT +% de celui-ci avec la création d'un node CONCLUSION : inutilisé ! +% (Utiliser plutot la commande suivante \umlPutCase) +% +\newcommand{\umlCase}[2][]{{% + \setkeys{psset}{#1}% Reading keyOptions + \sbox{\umlbox@out}{\umlStack{#2}}% + \psovalbox{\usebox{\umlbox@out}} +}} + +% Pour placer directement dans un ovalnode +% UTILISATION : +% \umlPutCase[keyOptions{10,2}{C6}{Identifier\\contraintes bloquantes}% +% +\newcommand{\umlPutCase}[4][]{{% + \setkeys{psset}{#1}% Reading keyOptions + \rput(#2){\ovalnode[framesep=0]{#3}{\umlStack{#4}}}% +}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% La macro pour dessiner les etats : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% \umlState[keyOptions]{Title}{Body} : #2 = Title ; #3 = Body +% +\newcommand{\umlState}[3][]{{% + \setkeys{psset}{#1}% Reading keyOptions + % \typeout{***** DEBUT umlState : Titre=:#2:, Body=:#3:}% + \def\next{#2}% + \ifx\next\empty + % \typeout{**Title IS EMPTY : #2} + \sbox{\umlbox@out}{\texttt{\umlStack[umlStackSep=0.35em]{#3}}}% + \else + % \typeout{**Title is NOT EMPTY : #2}% + \def\next{#3}% + \ifx\next\empty + % \typeout{**Body IS EMPTY : #3}% + \sbox{\umlbox@out}{\textbf{\umlStack[umlStackSep=.35em]{#2}}}% + \else + % \typeout{**Body is NOT EMPTY : #3}% + \sbox{\umlbox@out}{\umlStack{% + \textbf{% + \umlStack[umlStackSep=.35em]{#2}% + }\\ + \hline% + \texttt{% + \umlStack[umlStackSep=.35em,umlAlign=l]{#3}% + }%\\% + }}% + \fi + \fi + \psframebox[framesep=0,cornersize=absolute,linearc=0.2]% + {\usebox{\umlbox@out}}% +}} + + +\newcommand{\umlStateIn}[1][]{{% + \setkeys{psset}{#1}% Reading keyOptions + \begin{pspicture}[](-0.25,-0.25)(0.25,0.25) + \pscircle[fillstyle=solid,fillcolor=black]{0.25}% + \end{pspicture}% +}} + +\newcommand{\umlStateOut}[1][]{{% + \setkeys{psset}{#1}% Reading keyOptions + \begin{pspicture}[](-0.40,-0.40)(0.40,0.40) + \pscircle[fillstyle=solid,fillcolor=black]{0.25}% + \pscircle[fillstyle=none,linewidth=0.06]{0.40}% + \end{pspicture}% +}} + +% Pour placer directement dans un cnode +% UTILISATION : +% \umlPutStateIn[keyOptions]{10,2}{stateInA}% +% +\newcommand{\umlPutStateIn}[3][]{{% + \setkeys{psset}{#1}% Reading keyOptions + \rput(#2){\cnode[linestyle=none]{0.25}{#3}{% + \pscircle[fillstyle=solid,fillcolor=black]{0.25}% + }}% +}} + +\newcommand{\umlPutStateOut}[3][]{{% + \setkeys{psset}{#1}% Reading keyOptions + \rput(#2){\cnode[linestyle=none]{0.40}{#3}{% + \pscircle[fillstyle=solid,fillcolor=black]{0.25}% + \pscircle[fillstyle=none,linewidth=0.06]{0.40}% + }}% +}} + +% A FAIRE : pour le pseudo-état 'History" +% \newcommand{\umlStateH}[1][]{{% +% \setkeys{psset}{#1}% Reading keyOptions +% }} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% La macro pour dessiner les notes : +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% \umlNote[keyOptions]{Body} : +% +\newcommand{\umlNote}[2][]{{% + \setkeys{psset}{umlAlign=l}% + \setkeys{psset}{#1}% Reading keyOptions + \sbox{\umlbox@a}{\texttt{\umlStack[umlStackSep=1.5ex]{#2}}}% + \settowidth{\umldim@W}{\usebox{\umlbox@a}}% Width + \settoheight{\umldim@H}{\usebox{\umlbox@a}}% Height + \settodepth{\umldim@D}{\usebox{\umlbox@a}}% Depth + \setlength{\umldim@a}{\umldim@W - 2.0ex}% Width - coin + \setlength{\umldim@b}{\umldim@H - 2.0ex}% Height - coin + \setlength{\umldim@c}{\umldim@H + \umldim@D}% hauteur totale + \psframe(0,-\umldim@D)(\umldim@W,\umldim@H)% + \psframe[linecolor=white](\umldim@a,\umldim@b)(\umldim@W,\umldim@H)% + % On décalle le triangle vers l'intérieur pour qu'il ne déborde pas : + \setlength{\umldim@W}{\umldim@W-1.0\pslinewidth}% + \setlength{\umldim@H}{\umldim@H-1.0\pslinewidth}% + % \setlength{\umldim@D}{\umldim@D-1.0\pslinewidth}% + \pspolygon(\umldim@W,\umldim@b)% + (\umldim@a,\umldim@H)% + (\umldim@a,\umldim@b)% + (\umldim@W,\umldim@b)% + \usebox{\umlbox@a}% +}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Commandes de placement relatif de type "LOGO" +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% A partir d'une version TEX de Denis GIROU +% Inspired by an idea of Sebastian Rahtz <s.rahtz@elsevier.co.uk> +% (LGC, example 4-10-10) +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% For debug : ShowPosition +% +% usage : +% \ifthenelse{\value{umlDebug} > 0}{\ShowPosition}{}% +% +\newboolean{umlDebug}\setboolean{umlDebug}{false} +\newcommand{\ShowPosition}[1][]{% + \typeout{% + **** umlCpt@Direction=\the\value{umlCpt@Direction} - % + X=\the\X\space - Y=\the\Y^^J% + \space\space\space\space#1^^J% + }% +}% + + +% Direction (non utilisée pour l'instant) codé en nombre de quart de cercle +% (i x 90) => 0 right, 1 up, 2 left, 3 down +% +\newcounter{umlCpt@Direction}\setcounter{umlCpt@Direction}{-1} + +% New length for recording current postion : +\newlength{\umldim@PosX}%\setlength\umldim@PosX{0pt} +\newlength{\umldim@PosY}%\setlength\umldim@PosY{0pt} +% ALIAS for user ? +\newlength{\X}%\setlength\X{\umldim@PosX} +\newlength{\Y}%\setlength\Y{\umldim@PosY} + +% Reset position +\newcommand{\ResetXY}{% + \pssetlength{\umldim@PosX}{0}% + \pssetlength{\umldim@PosY}{0}% + \pssetlength{\X}{0}% + \pssetlength{\Y}{0}% + \ifthenelse{\value{umlDebug} > 0}{\ShowPosition}{}% +} +\ResetXY +% % For Getting X or Y position by the user. +% \newcommand{\X}{\the\umldim@PosX} +% \newcommand{\Y}{\the\umldim@PosY} + +% Set position +\newcommand{\SetX}[1]{% + \pssetlength{\umldim@PosX}{#1}% + \pssetlength{\X}{#1}% + \ifthenelse{\value{umlDebug} > 0}{\ShowPosition}{}% +} +\newcommand{\SetY}[1]{% + \pssetlength{\umldim@PosY}{#1}% + \pssetlength{\Y}{#1}% + \ifthenelse{\value{umlDebug} > 0}{\ShowPosition}{}% +} +% IMPORTANT : essayer d'utiliser les nodes ou autre +% coordonnees speciales de pstricks pour \SetXY : +% Utilisation de \pst@getcoor et \pssetxlength +\newcommand{\SetXY}[1]{% + \pssetxlength{\umldim@PosX}{#1}% + \pssetylength{\umldim@PosY}{#1}% + \pssetxlength{\X}{#1}% + \pssetylength{\Y}{#1}% + \ifthenelse{\value{umlDebug} > 0}{\ShowPosition}{}% +} + +\newcommand{\incrX}[1]{% + % record the direction for later (NOT DONE) + % \setcounter{umlCpt@Direction}{0} % if #1 is positive + % \setcounter{umlCpt@Direction}{3} % if #1 is negative + % increment X position + \psaddtolength{\umldim@PosX}{#1} + \psaddtolength{\X}{#1} +} +\newcommand{\incrY}[1]{% + % record the direction for later (NOT DONE) + % \setcounter{umlCpt@Direction}{1} % if #1 is positive + % \setcounter{umlCpt@Direction}{4} % if #1 is negative + % increment Y position + \psaddtolength{\umldim@PosY}{#1} + \psaddtolength{\Y}{#1} +} +% For moving Est, West, North or Sud +\newcommand{\moveE}[1]{\incrX{#1}} +\newcommand{\moveW}[1]{\incrX{-#1}} +\newcommand{\moveN}[1]{\incrY{#1}} +\newcommand{\moveS}[1]{\incrY{-#1}} + + +% % % \newcommand{\Right}[1]{% +% % % % record the direction for later +% % % \setcounter{umlCpt@Direction}{0} +% % % % increment X position +% % % \psaddtolength{\umldim@PosX}{#1} +% % % } +% % % \newcommand{\Up}[1]{% +% % % % record the direction for later +% % % \setcounter{umlCpt@Direction}{1} +% % % % increment Y position +% % % \psaddtolength{\umldim@PosY}{#1} +% % % } +% % % +% % % \newcommand{\Left}[1]{% +% % % % record the direction for later +% % % \setcounter{umlCpt@Direction}{2} +% % % % decrement X position +% % % \psaddtolength{\umldim@PosX}{-#1} +% % % } +% % % +% % % \newcommand{\Down}[1]{% +% % % % record the direction for later +% % % \setcounter{umlCpt@Direction}{3} +% % % % decrement Y position +% % % \psaddtolength{\umldim@PosY}{-#1} +% % % } + +% % Put an object at current coordinates +% \newcommand{\rputXY}[2][]{% +% \setkeys{psset}{#1}% +% \rput(\umldim@PosX,\umldim@PosY){#2} +% } +% +% Put an object at current coordinates +\newcommand{\rputXY}[2][]{% + \setkeys{psset}{#1}% + \rput(\umldim@PosX,\umldim@PosY){#2}% +} + + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Définition des "fleches" de UML (sous forme de labels) +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\newcommand{\ncputicon}[2][]{{% + \setkeys{psset}{npos=0,nrot=:D}% defaut : au debut et vers la gauche + \setkeys{psset}{#1}% + \@ifundefined{umlicon@#2}% + {\typeout{^^JERREUR : FLECHE NON definie "#2"^^J}}% + {}% FLECHE BIEN definie + \ncput{\@nameuse{umlicon@#2}} +}} +% Definition des fleches de base (vers la droite) +% Utiliser nrot=:U pour une orientation vers la droite (Up) +% Utiliser nrot=:D pour une orientation vers la gauche (Down) +\newcommand{\umlicon@umlV}{% + \psline(-0.4,0.2)(0,0)(-0.4,-0.2) +} +\newcommand{\umlicon@umlHerit}{% + \pstriangle[gangle=-90, + linestyle=solid, + fillstyle=solid, + fillcolor=white, + ](-0.6,0)(0.4,0.6)% (centre)(Width,Length) +} +\newcommand{\umlicon@umlAgreg}{% + \psdiamond[linestyle=solid, + fillstyle=solid, + fillcolor=white, + ](-0.25,0)(-0.25,0.15) +} +\newcommand{\umlicon@umlCompos}{% + \psdiamond[linestyle=solid, + fillstyle=solid, + fillcolor=black, + ](-0.25,0)(-0.25,0.15) +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Nouvelles définition pour les interconnexions +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% Ces connecteurs sont une surcouche aux différents connecteurs +% proposés par pstricks. +% Leur but est de simplifier le tracé des liens en se restreingnant aux +% directions horizontales et verticales. +% +% Le principe est d'indiquer dans le nom même de la commande le nombre +% de segments à tracer et leur direction : +% - E, W, N, S pour Est, West, North, Sud +% - H, V pour Horizontal; Vertical +% - D pour diagonal +% - X pour indifférent + +% Un seul segments +% Effet de bord : en fait, un deuxieme segment est dessiné. Mais celui +% n'apparait généralement pas car il longe la frontière de boite +\newpsobject{ncE}{ncangle}{angleA=0,angleB=180,armB=0,npos=0.5,nodesepB=-0.5pt} +% \newpsobject{ncE}{ncangle}{angleA=0,angleB=180,armB=0,npos=0.5} +\newpsobject{ncW}{ncangle}{angleA=180,angleB=0,armB=0,npos=0.5} +\newpsobject{ncN}{ncangle}{angleA=90,angleB=-90,armB=0,npos=0.5} +\newpsobject{ncS}{ncangle}{angleA=-90,angleB=90,armB=0,npos=0.5} + +% Deux segments +\newpsobject{ncEN}{ncangle}{angleA=0,angleB=-90,armB=0} +\newpsobject{ncES}{ncangle}{angleA=0,angleB=90,armB=0} +\newpsobject{ncWN}{ncangle}{angleA=180,angleB=-90,armB=0} +\newpsobject{ncWS}{ncangle}{angleA=180,angleB=90,armB=0} +\newpsobject{ncNE}{ncangle}{angleA=90,angleB=180,armB=0} +\newpsobject{ncNW}{ncangle}{angleA=90,angleB=0,armB=0} +\newpsobject{ncSE}{ncangle}{angleA=-90,angleB=180,armB=0} +\newpsobject{ncSW}{ncangle}{angleA=-90,angleB=0,armB=0} + +% Trois segments +% On peut utiliser armA ou armB pour imposer la longueur des extrémités +% +% remplace \ncbar (connecteurs en forme de U) +\newpsobject{ncEVW}{ncangles}{angleA=0,angleB=0} +\newpsobject{ncWVE}{ncangles}{angleA=180,angleB=180} +\newpsobject{ncSHN}{ncangles}{angleA=-90,angleB=-90} +\newpsobject{ncNHS}{ncangles}{angleA=90,angleB=90} + +% connecteurs en forme de Z (mais \`a angles droits) +\newpsobject{ncEVE}{ncangles}{angleA=0,angleB=180} +\newpsobject{ncWVW}{ncangles}{angleA=180,angleB=0} +\newpsobject{ncNHN}{ncangles}{angleA=90,angleB=-90} +\newpsobject{ncSHS}{ncangles}{angleA=-90,angleB=90} + + +% connecteurs 3 segments dont segment median en diagonale (incomplet) +\newpsobject{ncEDE}{ncdiag}{angleA=0,angleB=180} +\newpsobject{ncWDW}{ncdiag}{angleA=180,angleB=0} +\newpsobject{ncNDN}{ncdiag}{angleA=90,angleB=-90} +\newpsobject{ncSDS}{ncdiag}{angleA=-90,angleB=90} + + +% quatre (voire trois) segments : +\newpsobject{ncSXE}{ncangles}{angleA=-90,angleB=180} +\newpsobject{ncSXW}{ncangles}{angleA=-90,angleB=0} +\newpsobject{ncEXS}{ncangles}{angleA=0,angleB=90} +\newpsobject{ncEXN}{ncangles}{angleA=0,angleB=-90} +\newpsobject{ncWXS}{ncangles}{angleA=180,angleB=90} +\newpsobject{ncWXN}{ncangles}{angleA=180,angleB=-90} +\newpsobject{ncNXE}{ncangles}{angleA=90,angleB=180} +\newpsobject{ncNXW}{ncangles}{angleA=90,angleB=0} + + + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% FIN +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\typeout{Package \filename.sty is loaded.} +\endinput + + |