%%%
% Cartes Mentales
%%%
\setKVdefault[ClesMentales]{Nom={Bulle}, Largeur=5cm, Ancre={0,0},Pointilles=false,CTrace=black,CFond=white,Epaisseur=1pt,Rayon=1}%
\newenvironment{Mind}{\begin{tikzpicture}}{\end{tikzpicture}}%

\newlength{\RoundedBoxWidth}%

\NewEnviron{Bulle}[1][]{%
  \setKV[ClesMentales]{#1}%
  \setlength{\RoundedBoxWidth}{\useKV[ClesMentales]{Largeur}}%
  \xdef\Pointilles{\ifboolKV[ClesMentales]{Pointilles}{dashed}{}}%
  \xdef\CouleurTrace{\useKV[ClesMentales]{CTrace}}%
  \xdef\CouleurFond{\useKV[ClesMentales]{CFond}}%
  \xdef\EpaisseurLigne{\useKV[ClesMentales]{Epaisseur}}%
  \xdef\RayonCoin{\useKV[ClesMentales]{Rayon}}%
  \node(\useKV[ClesMentales]{Nom}) [align=justify,draw=\CouleurTrace,line width=\EpaisseurLigne,\Pointilles,fill=\CouleurFond,rounded corners=\RayonCoin,text width=\RoundedBoxWidth] at (\useKV[ClesMentales]{Ancre}) {\begin{minipage}{\RoundedBoxWidth}\BODY\end{minipage}};%
  \multido{\i=1+1}{9}{%
    \xdef\x{\fpeval{\i/10}}
    \coordinate (\useKV[ClesMentales]{Nom}-H-\i) at ($(\useKV[ClesMentales]{Nom}.north west)!\x!(\useKV[ClesMentales]{Nom}.north east)$);
    \coordinate (\useKV[ClesMentales]{Nom}-D-\i) at ($(\useKV[ClesMentales]{Nom}.north east)!\x!(\useKV[ClesMentales]{Nom}.south east)$);
    \coordinate (\useKV[ClesMentales]{Nom}-B-\i) at ($(\useKV[ClesMentales]{Nom}.south east)!\x!(\useKV[ClesMentales]{Nom}.south west)$);
    \coordinate (\useKV[ClesMentales]{Nom}-G-\i) at ($(\useKV[ClesMentales]{Nom}.south west)!\x!(\useKV[ClesMentales]{Nom}.north west)$);
  }%
}%