PLmoustaches

%=============BOITES MOUSTACHES======== OK !!
\defKV[boiteamoustaches]{%
    parametres=\def\BaMListe{#1},%
    couleur=\def\BaMCouleur{#1},%
    elevation=\def\BaMElevation{#1},%
    hauteur=\def\BaMHauteur{#1},%
    moyenne=\def\BaMMoyenne{#1},%
    epaisseur=\def\BaMEpaisseur{#1},%
    remplir=\def\BaMRemplissage{#1}
}

\setKVdefault[boiteamoustaches]{%
    couleur=black,%
    elevation=1,%
    hauteur=1,%
    affmoyenne=false,%
    epaisseur=thick,%
    pointilles=false,%
    valeurs=false,%
    remplir=white
}

\defKV[boiteamoustachesaxe]{%
    min=\def\BaMAxeMin{#1},%
    max=\def\BaMAxeMax{#1},%
    elargir=\def\BaMAxeElarg{#1},%
    epaisseur=\def\BaMAxeEpaisseur{#1},%
    valeurs=\def\BaMAxeValeurs{#1}
}

\setKVdefault[boiteamoustachesaxe]{%
    elargir=0.05,%
    epaisseur=thick,%
    affvaleurs=false
}

\newcommand\PLboitemoustaxe[1][]{
    \useKVdefault[boiteamoustachesaxe]
    \setKV[boiteamoustachesaxe]{#1}
    \def\BaMaxelargeur{\fpeval{\BaMAxeMax-\BaMAxeMin}}
    \def\BaMaxexmin{\fpeval{\BaMAxeMin-\BaMAxeElarg*\BaMaxelargeur}}
    \def\BaMaxexmax{\fpeval{\BaMAxeMax+\BaMAxeElarg*\BaMaxelargeur}}
    \draw[\BaMAxeEpaisseur,->] (\BaMaxexmin,0) -- (\BaMaxexmax,0) ;
    \ifboolKV[boiteamoustachesaxe]{affvaleurs}
    {\foreach \x in \BaMAxeValeurs \draw[\BaMAxeEpaisseur] (\x,3pt)--(\x,-3pt) node[below=3pt] {\num{\x}} ;}
    {}
}

\newcommand\PLboitemoust[1][]{
    \useKVdefault[boiteamoustaches]
    \setKV[boiteamoustaches]{#1}
    \setsepchar[.]{/}%
    \readlist*\BaMListeparams\BaMListe%
    \itemtomacro\BaMListeparams[1]\BaMmin%
    \itemtomacro\BaMListeparams[2]\BaMqu%
    \itemtomacro\BaMListeparams[3]\BaMmed%
    \itemtomacro\BaMListeparams[4]\BaMqt%
    \itemtomacro\BaMListeparams[5]\BaMmax%
    \draw[draw,\BaMEpaisseur,\BaMCouleur,fill=\BaMRemplissage] ({\BaMqu},{\BaMElevation-0.5*\BaMHauteur}) rectangle ({\BaMqt},{\BaMElevation+0.5*\BaMHauteur}) ;
    \draw[\BaMEpaisseur,\BaMCouleur] (\BaMmin,{\BaMElevation-0.5*\BaMHauteur})--(\BaMmin,{\BaMElevation+0.5*\BaMHauteur}) (\BaMmax,{\BaMElevation-0.5*\BaMHauteur})--(\BaMmax,{\BaMElevation+0.5*\BaMHauteur}) (\BaMmed,{\BaMElevation-0.5*\BaMHauteur})--(\BaMmed,{\BaMElevation+0.5*\BaMHauteur});
    \draw[\BaMEpaisseur,\BaMCouleur] ({\BaMmin},{\BaMElevation})--({\BaMqu},{\BaMElevation}) ({\BaMqt},{\BaMElevation})--({\BaMmax},{\BaMElevation}) ;
    \ifboolKV[boiteamoustaches]{affmoyenne}
    {\filldraw[\BaMCouleur] ({\BaMMoyenne},{\BaMElevation}) circle[radius=2.5pt] ;}
    {}
    \ifboolKV[boiteamoustaches]{pointilles}
    {
        \draw[\BaMEpaisseur,densely dashed] (\BaMmin,{\BaMElevation-0.5*\BaMHauteur}) -- (\BaMmin,0) ;
        \draw[\BaMEpaisseur,densely dashed] (\BaMqu,{\BaMElevation-0.5*\BaMHauteur}) -- (\BaMqu,0) ;
        \draw[\BaMEpaisseur,densely dashed] (\BaMmed,{\BaMElevation-0.5*\BaMHauteur}) -- (\BaMmed,0) ;
        \draw[\BaMEpaisseur,densely dashed] (\BaMqt,{\BaMElevation-0.5*\BaMHauteur}) -- (\BaMqt,0) ;
        \draw[\BaMEpaisseur,densely dashed] (\BaMmax,{\BaMElevation-0.5*\BaMHauteur}) -- (\BaMmax,0) ;
    }
    {}
    \ifboolKV[boiteamoustaches]{valeurs}
    {
        \filldraw (\BaMmin,0) circle[radius=2pt] node[below=4pt] {\num{\BaMmin}} ;
        \filldraw (\BaMqu,0) circle[radius=2pt] node[below=4pt] {\num{\BaMqu}} ;
        \filldraw (\BaMmed,0) circle[radius=2pt] node[below=4pt] {\num{\BaMmed}} ;
        \filldraw (\BaMqt,0) circle[radius=2pt] node[below=4pt] {\num{\BaMqt}} ;
        \filldraw (\BaMmax,0) circle[radius=2pt] node[below=4pt] {\num{\BaMmax}} ;
    }
    {}
}