mardi 19 avril 2016

Cercle chromatique des espaces HSB / HSV


Référence : https://fr.wikipedia.org/wiki/Teinte_saturation_lumi%C3%A8re


\documentclass{article}
\usepackage[garamond]{mathdesign}
\usepackage{pstricks,multido}
% Manuel Luque
\date{19 avril 2016}
\begin{document}
\begin{center}
\begin{pspicture}[showgrid=false](-6,-6)(6,6)
\psframe*(-6,-6)(6,6)
\pstVerb{/Unit {28.45274 mul} bind def /radius 4 def /Radius {radius Unit} def
         /CoordM {/iA exch def radius iA cos mul radius iA sin mul} def}%
\multido{\i=0+30}{12}{\white %
\pstVerb{/M0 {radius  \i\space cos mul radius  \i\space sin mul} def /M1 {radius  0.5 add \i\space cos mul radius  0.5 add \i\space sin mul} def }%
    \psline[linecolor=white](!M0)(!M1)%
    \uput{0.05}[\i](!M1){\small\i$^{\mathrm{o}}$}}%
\uput{1}[0](!radius 0){\textcolor{red}{\textbf{R}}}
\uput{1}[60](!60 CoordM){\textcolor{yellow}{\textbf{Y}}}
\uput{1}[120](!120 CoordM){\textcolor{green}{\textbf{G}}}
\uput{1.2}[180](!180 CoordM){\textcolor{cyan}{\textbf{C}}}
\uput{1}[240](!240 CoordM){\textcolor{blue}{\textbf{B}}}
\uput{1}[300](!300 CoordM){\textcolor{magenta}{\textbf{M}}}
\pscustom{
\code{%
      /secteur {newpath
                0 0 moveto
                Radius i 1 sub cos mul
                0 0 Radius i 1 sub i 1 add arc
                closepath
                } def
        0 1 360 {/i exch def /HUE i 360 div def
        secteur
        HUE 1 1  sethsbcolor fill} for
      }
}%
\rput(0,-5.5){\white Cercle chromatique des espaces HSB / HSV}
\end{pspicture}
\end{center}
\end{document}

Aucun commentaire:

Enregistrer un commentaire