Ajout : support des pauses.

[julm/violon-tex.git] / violon.sty

% This file is part of Violon, a violin score engine.
% Copyright (C) 2009  Julien Moutinho
%
% 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 3 of the License,
% or 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, see <http://www.gnu.org/licenses/>.

% Any comment or contribution is welcome
% at julm arobase julm dot meeee dot eu.

% Déclaration
        \def\fileversion{1.0}%
        \def\filedate{2009/10/11}%
        \NeedsTeXFormat{LaTeX2e}%
        \ProvidesPackage{violon}[\filedate\space\fileversion\space%
                Violin score library (Julien Moutinho)]%
% Bibliothèques
        \usepackage{ifthen}%
        \usepackage{color}%
% Polices
        \gdef\ssssmall{%
                \@setfontsize\sssmall{5pt}{5pt}}%
        \gdef\sssmall{%
                \@setfontsize\sssmall{6pt}{6pt}}%
        \gdef\ssmall{%
                \@setfontsize\ssmall\@viiipt\@ixpt}%
        \gdef\vlnfingerfont{%
                \fontfamily{pnc}\bfseries\sssmall}%
        \gdef\vlncordfont{%
                \fontfamily{pnc}\scshape\ssssmall}%
        \gdef\vlntimefont{%
                \fontfamily{pnc}\bfseries\ssssmall}%
% Algèbre
        \newcount\@calc@mod@cnt%
        \def\modulo#1#2{%
                \@calc@mod@cnt=#1\relax%
                \divide\@calc@mod@cnt by#2\relax%
                \multiply\@calc@mod@cnt by#2\relax%
                \advance#1 by-\@calc@mod@cnt%
         }%
% Convertisseurs
        \let\romannumeral@old\romannumeral%
        \def\romannumeral#1{%
                \ifnum#1>\z@\romannumeral@old#1\else\number#1\fi%
         }%
% Moteur
        % Constantes
                % Couleurs
                        \definecolor{colVlnBowU}{rgb}{0.24,0.92,0.24}%
                        \definecolor{colVlnBowD}{rgb}{1,0,0}%
                        \definecolor{colVlnBowN}{gray}{0}%
                        \definecolor{colVlnLineHalfTone}{gray}{0.90}%
                        \definecolor{colVlnLineHalfToneBase}{gray}{0.50}%
        % Portée
                % Déclarations
                        \newdimen\vlnstaffhalftonelinevdim%
                        \newskip\vlnstaffhalftonelinevskip%
                        \newskip\vlnstaffvdim%
                        \newskip\vlnstaffintervskip%
                        \newskip\vlnstaffvskip%
                % Initialisations
                        \def\vlnstaffhsize{\hsize}%
                        \def\vlnstaffmaxvsize{\textheight}%
                        \vlnstaffhalftonelinevdim=0.5pt%
                        \vlnstaffhalftonelinevskip=4pt\relax%
                        \advance\vlnstaffhalftonelinevskip by-\vlnstaffhalftonelinevdim%
                        \vlnstaffvdim=0pt\relax%
                        \vlnstaffvskip=0pt\relax%
                        \vlnstaffintervskip=\vlnstaffhalftonelinevskip\relax%
                        \advance\vlnstaffintervskip by\vlnstaffhalftonelinevdim\relax%
                \def\vlnstaffhalftoneline{%
                        {\color{colVlnLineHalfTone}\hrule depth 0pt height \vlnstaffhalftonelinevdim width \vlnstaffhsize }}%
                \def\vlnbasehalftoneline{%
                        {\color{colVlnLineHalfToneBase}\hrule depth 0pt height \vlnstaffhalftonelinevdim width \vlnstaffhsize }}%
                \def\vlnstafftoneskip{%
                        \advance\vlnstaffvdim by\vlnstaffhalftonelinevskip%
                        \advance\vlnstaffvdim by\vlnstaffhalftonelinevdim%
                        \nobreak\vskip\vlnstaffhalftonelinevskip%
                 }%
                \def\vlnstafffivehalftonelines{%
                        \vlnstafftoneskip\vlnstaffhalftoneline%
                        \vlnstafftoneskip\vlnstaffhalftoneline%
                        \vlnstafftoneskip\vlnstaffhalftoneline%
                        \vlnstafftoneskip\vlnstaffhalftoneline%
                        \vlnstafftoneskip\vlnbasehalftoneline%
                 }%
                \def\vlnstaffallhalftonelines{%
                        \vlnstafffivehalftonelines%
                        \vlnstafffivehalftonelines%
                        \vlnstafffivehalftonelines%
                        \vlnstafffivehalftonelines%
                 }%
                \def\vlnstaff{%
                        \nobreak\vskip\vlnstaffvdim%
                        \advance\vlnstaffvskip by\vlnstaffvdim\relax%
                        \count@\vlnstaffvskip\relax%
                        \advance\count@ by\vlnstaffvdim\relax%
                        \ifnum\count@>\vlnstaffmaxvsize%
                                \vlnstaffvskip=0pt\relax%
                                \break%
                         \else%
                                \advance\vlnstaffvskip by\vlnstaffintervskip\relax%
                                \nobreak\vskip\vlnstaffintervskip%
                         \fi%
                        \vlnnotehskip=0pt\relax%
                        \vlnstaffvdim=0pt\relax%
                        \vlnbasehalftoneline%
                        \vlnstaffallhalftonelines%
                        \advance\vlnstaffvdim by\vlnstaffhalftonelinevdim%
                        \nobreak\vskip-\vlnstaffvdim%
                 }%
        % Notes
                % Déclarations
                        % Variables
                                \newskip\vlnnotevskip%
                                \newskip\vlnnotehskip%
                                \newdimen\vlnnotevdim%
                                \newdimen\vlnnotevdimmore%
                                \newdimen\vlnnotehdim%
                                \newdimen\vlnnotehdimbase%
                                \newcount\vlnlastfinger%
                                \newcount\vlnlastposbase%
                                \newcount\vlnlastposunit%
                                \newcount\vlnnotepos%
                                \newcount\vlnlastpos%
                % Initialisations
                        \vlnnotevskip=0pt\relax%
                        \vlnnotehskip=0pt\relax%
                        \vlnnotevdim=\vlnstaffhalftonelinevdim%
                        \vlnnotevdimmore=1pt\relax%
                        \vlnnotehdimbase=2cm\relax%
                        \advance\vlnnotevdim by\vlnnotevdimmore%
                        \advance\vlnnotevdim by\vlnnotevdimmore%
                        \def\vlnlastbow{}%
                        \def\vlnlastcord{}%
                        \def\vlnlasttimenum{}%
                        \def\vlnlasttimeden{}%
                        \def\vlnnotehdimmodetim{1}%
                        \def\vlnnotehdimmodetxt{}%
                        \parindent=0pt\relax%
                        \parskip=0pt\relax%
                        \parfillskip=0pt\relax%
                \def\vlnlastposfinger{%
                        \csname vlnlastposfinger\romannumeral\vlnlastfinger\endcsname%
                 }%
                \def\vlnlastfingerpos{%
                        \csname vlnlastfingerpos\romannumeral\vlnlastpos\endcsname%
                 }%
                \def\vlntimefrac#1/#2{%
                        \leavevmode%
                        \hbox{#1}%
                        \kern-.4ex\lower.3ex\hbox{\bfseries\tiny /}%
                        \kern-.3ex\lower.6ex\hbox{#2}%
                 }%
                \def\vlndoatnote#1#2#3#4{%
                        \nointerlineskip%
                        \vlnnotevskip\vlnstaffhalftonelinevskip%
                        \advance\vlnnotevskip by\vlnstaffhalftonelinevdim\relax%
                        \multiply\vlnnotevskip by#1\relax%
                        \advance\vlnnotevskip by-\vlnnotevdimmore\relax%
                        \nobreak\vskip\vlnnotevskip\relax%
                        \nobreak\vskip-\vlnnotevskip\relax%
                        \nobreak\vskip\vlnnotevskip\relax%
                        \vrule depth 0pt height 0pt width \vlnnotehskip\relax%
                        \setbox0=#3%
                        \advance\vlnnotevskip by \ht0\relax%
                        #2%
                        \box0%
                        #4%
                        \nobreak\vskip-\vlnnotevskip\relax%
                        \nointerlineskip%
                 }%
                \def\vlnnextnote{%
                        \advance\vlnnotehskip by\vlnnotehdim\relax%
                 }%
                \def\vlnnotedraw crd#1pos#2fgr#3bow#4tim#5#6{%
                        % Position
                                \ifthenelse{\equal{#2}{.}}%
                                 {}%
                                 {\vlnlastpos#2\relax}%
                        % Durée
                                \ifthenelse{\equal{#5}{.}}%
                                 {}%
                                 {\def\vlnlasttimenum{#5}}%
                                \ifthenelse{\equal{#6}{.}}%
                                 {}%
                                 {\def\vlnlasttimeden{#6}}%
                                \vlnnotehdim\vlnnotehdimbase%
                                \ifthenelse{\equal{}{\vlnnotehdimmodetim}}%
                                 {}%
                                 {\multiply\vlnnotehdim by\vlnlasttimenum\relax%
                                        \divide\vlnnotehdim by\vlnlasttimeden\relax%
                                 }%
                                % Automatic staff break
                                        \count@\vlnnotehskip\relax%
                                        \advance\count@ by\vlnnotehdim\relax%
                                        \ifnum\count@>\vlnstaffhsize\vlnstaff\fi%
                                \ifthenelse{\equal{#5/#6}{\vlnlasttimenum/\vlnlasttimeden}}%
                                 {}%
                                 {\vlndoatnote{\vlnlastpos}%
                                         {}%
                                         {%
                                                \ifthenelse{\equal{}{\vlnnotehdimmodetxt}}%
                                                 {}%
                                                 {\vbox to0pt{%
                                                                \setbox0=\hbox{%
                                                                        \ifthenelse{\equal{\vlnlasttimeden}{1}}%
                                                                         {{\vlntimefont{\vlnlasttimenum}}}%
                                                                         {\vlntimefrac{\vlntimefont{\vlnlasttimenum}}/{\vlntimefont{\vlnlasttimeden}}}%
                                                                 }%
                                                                \nobreak\vskip\vlnnotevdim\relax%
                                                                \nobreak\vskip0.2mm\relax%
                                                                \nobreak\hskip\vlnnotehdim\relax%
                                                                \nobreak\hskip-\wd0\relax%
                                                                \dp0=0pt\relax%
                                                                \box0}%
                                                 }%
                                         }%
                                         {}%
                                 }%
                        % Archet
                                \ifthenelse{\equal{#4}{C}}%
                                         {\ifthenelse{\equal{U}{\vlnlastbow}}%
                                                 {\def\vlnlastbow{D}}%
                                                 {\def\vlnlastbow{U}}}%
                                         {\ifthenelse{\equal{#4}{.}}%
                                                {}%
                                                {\def\vlnlastbow{#4}}}%
                                \vlndoatnote{\vlnlastpos}%
                                 {\begingroup\expandafter\color{colVlnBow\vlnlastbow}}%
                                 {%
                                        \hbox{%
                                                \vrule depth 0pt height \vlnnotevdim width \vlnnotehdim\relax%
                                         }%
                                 }%
                                 {\endgroup}%
                        % Doigts
                                \ifthenelse{\equal{#3}{.}}%
                                 {}%
                                 {\vlnlastfinger#3\relax}%
                                \ifthenelse{\equal{\the\vlnlastfinger}{\vlnlastfingerpos}\AND\equal{\the\vlnlastpos}{\vlnlastposfinger}}%
                                 {}%
                                 {%
                                        \expandafter\edef\csname vlnlastfingerpos\romannumeral\vlnlastpos\endcsname{\the\vlnlastfinger}\relax%
                                        \expandafter\edef\csname vlnlastposfinger\romannumeral\vlnlastfinger\endcsname{\the\vlnlastpos}\relax%
                                        \vlndoatnote{\vlnlastpos}%
                                         {}%
                                         {\vbox to0pt{%
                                                \setbox0=\hbox{{\vlnfingerfont{\the\vlnlastfinger}}}%
                                                \nobreak\vskip-0.2mm\relax%
                                                \vskip-\ht0\relax%
                                                %\vskip-\dp0\relax%
                                                \dp0=0pt\relax% NOTE: to prevent fonts like pnc to mess up the vertical alignment
                                                \box0}}%
                                         {}%
                                 }%
                        % Cordes
                                \ifthenelse{\equal{#1}{\vlnlastcord}}%
                                 {}%
                                 {\ifthenelse{\equal{#1}{.}}%
                                         {}%
                                         {\def\vlnlastcord{#1}%
                                                \vlndoatnote{\vlnlastpos}%
                                                 {}%
                                                 {\vbox to0pt{%
                                                        \setbox0=\hbox{{\vlncordfont{%
                                                                \count@#1\relax%
                                                                \advance\count@ by1\relax%
                                                                \ifcase\count@%
                                                                \or 0\or I\or II\or III%
                                                                \fi}}}%
                                                        \nobreak\vskip\vlnnotevdim\relax%
                                                        \nobreak\vskip0.2mm\relax%
                                                        \box0}}%
                                                 {}%
                                         }%
                                 }%
                        \vlnnextnote%
                        \nointerlineskip%
                 }%
                % Cordes
                        \def\vlncordposi{0}%    G
                        \def\vlncordposii{7}%   D
                        \def\vlncordposiii{14}% A
                        \def\vlncordposiv{21}%  E
                % Crochets
                        \def\vlnnotehook{}%
                \def\vlnnotedrawtone#1#2#3#4#5{%
                        \ifthenelse{\equal{#1}{.}}%
                         {}%
                         {\vlnlastposbase#1\relax}%
                        \ifthenelse{\equal{#2}{.}}%
                         {}%
                         {\vlnlastposunit#2\relax}%
                        \ifthenelse{\equal{#3}{.}}%
                         {\vlnnotepos\vlnlastcord\relax}%
                         {\vlnnotepos#3\relax}%
                        \advance\vlnnotepos by1\relax%
                        \expandafter\vlnnotepos-\csname vlncordpos\romannumeral\vlnnotepos\endcsname\relax%
                        \ifthenelse{\equal{\the\vlnlastposbase}{0}}%
                         {\advance\vlnnotepos by\vlnlastposunit\relax}%
                         {\edef\tmp{\the\vlnlastposbase\the\vlnlastposunit}%
                                \advance\vlnnotepos by\tmp\relax}%
                        \vlnnotehook%
                        \vlnnotedraw crd{#3}pos{\the\vlnnotepos}fgr{#4}bow{#5}tim%
                 }%
                \def\vlnnoteshift#1{%
                        \count@\vlnnotepos%
                        \modulo{\count@}{#1}%
                        \advance\count@ by1\relax%
                        \edef\tmp{\csname vlnnoteshift\romannumeral\count@\endcsname}%
                        \ifthenelse{\equal{\tmp}{}}%
                         {}%
                         {\advance\vlnnotepos by\tmp\relax}%
                 }%