undar-digitacion (27jan24)

git-svn-id: svn://tug.org/texlive/trunk@69613 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 3280 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx b/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx
new file mode 100644
index 00000000000..a474c2b298e
--- /dev/null
+++ b/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx
@@ -0,0 +1,3280 @@
+% \iffalse meta-comment
+%
+% Copyright (C) 2024 by <+author+> <<+email+>>
+% ---------------------------------------------------------------------------
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+%   http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is <+maintainer+>.
+%
+% This work consists of the files <+filebase+>.dtx and <+filebase+>.ins
+% and the derived filebase <+filebase+>.sty.
+%
+% \fi
+%
+% \iffalse
+%<*driver>
+\ProvidesFile{<+filebase+>.dtx}
+%</driver>
+%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+%<package>\ProvidesPackage{<+filebase+>}
+%<*package>
+    [<+date+> <+version+> <+description+>]
+%</package>
+%
+%<*driver>
+\documentclass{ltxdoc}
+\usepackage{<+filebase+>}[<+date+>]
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+\begin{document}
+  \DocInput{<+filebase+>.dtx}
+  \PrintChanges
+  \PrintIndex
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{4713}
+%
+% \CharacterTable
+%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%   Digits        \0\1\2\3\4\5\6\7\8\9
+%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%   Dollar        \$     Percent       \%     Ampersand     \&
+%   Acute accent  \'     Left paren    \(     Right paren   \)
+%   Asterisk      \*     Plus          \+     Comma         \,
+%   Minus         \-     Point         \.     Solidus       \/
+%   Colon         \:     Semicolon     \;     Less than     \<
+%   Equals        \=     Greater than  \>     Question mark \?
+%   Commercial at \@     Left bracket  \[     Backslash     \\
+%   Right bracket \]     Circumflex    \^     Underscore    \_
+%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%   Right brace   \}     Tilde         \~}
+%
+%
+% \changes{<+version+>}{<+date+>}{Converted to DTX file}
+%
+% \DoNotIndex{\newcommand,\newenvironment}
+%
+% \providecommand*{\url}{\texttt}
+% \GetFileInfo{<+filebase+>.dtx}
+% \title{The \textsf{<+filebase+>} package}
+% \author{<+author+> \\ \url{<+email+>}}
+% \date{\fileversion~from \filedate}
+%
+% \maketitle
+%
+% \section{Introduction}
+%
+% Put text here.
+%
+% \section{Usage}
+%
+% Put text here.
+%
+%
+% \DescribeMacro{\globalscale}
+%
+%
+% \DescribeEnv{saxofonDibujo}
+%
+%
+% \DescribeEnv{pinkulloDibujo}
+%
+%
+% \DescribeEnv{quenaDibujo}
+%
+%
+% \DescribeEnv{flautaDibujo}
+%
+%
+% \DescribeEnv{flautaBDibujo}
+%
+%
+% \DescribeMacro{\flautaImg}
+%
+%
+% \DescribeMacro{\flautaBImg}
+%
+%
+% \DescribeMacro{\quenaImg}
+%
+%
+% \DescribeMacro{\pinkulloImg}
+%
+%
+% \DescribeMacro{\saxofonImg}
+%
+%
+% \DescribeMacro{\teststring}
+%
+%
+% \DescribeMacro{\addtostring}
+%
+%
+% \DescribeMacro{\notaPalabra}
+%
+%
+% \DescribeMacro{\alteracionPalabra}
+%
+%
+% \DescribeMacro{\splitPorCaracterlyrics}
+%
+%
+% \DescribeMacro{\threewordslyrics}
+%
+%
+% \DescribeMacro{\letraA}
+%
+%
+% \DescribeMacro{\extrerA}
+%
+%
+% \DescribeMacro{\letraB}
+%
+%
+% \DescribeMacro{\extrerB}
+%
+%
+% \DescribeMacro{\addTikz}
+%
+%
+% \DescribeMacro{\tamanio}
+%
+%
+% \DescribeMacro{\notaParaMusixtex}
+%
+%
+% \DescribeMacro{\splitPorCaracter}
+%
+%
+% \DescribeMacro{\threewords}
+%
+%
+% \DescribeMacro{\espacioNotas}
+%
+%
+% \DescribeMacro{\loppDeInstrumento}
+%
+%
+% \DescribeMacro{\loppDeInstrumentoFlautaB}
+%
+%
+% \DescribeMacro{\loppDeInstrumentoQuena}
+%
+%
+% \DescribeMacro{\loppDeInstrumentoPinkullo}
+%
+%
+% \DescribeMacro{\loppDeInstrumentoSaxofon}
+%
+%
+% \DescribeMacro{\flautaLoop}
+%
+%
+% \DescribeMacro{\flautaBLoop}
+%
+%
+% \DescribeMacro{\quenaLoop}
+%
+%
+% \DescribeMacro{\pinkulloLoop}
+%
+%
+% \DescribeMacro{\saxofonLoop}
+%
+
+%
+% \StopEventually{}
+%
+% \section{Implementation}
+%
+% \iffalse
+%<*package>
+% \fi
+%
+%    \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{undar-digitacion}
+\RequirePackage{tikz}
+\usepackage{xstring}
+\usepackage{xparse}
+\usepackage{amsmath}
+\usepackage{musicography}
+\usepackage{musixtex}
+\input{musixlyr}
+\usepackage{recorder-fingering}
+\usetikzlibrary{tikzmark}
+\usetikzlibrary{positioning}
+%    \end{macrocode}
+%
+% \begin{macro}{\globalscale}
+%    \begin{macrocode}
+\def \globalscale {0.75000000}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{environment}{saxofonDibujo}
+%    \begin{macrocode}
+\newenvironment{saxofonDibujo}{
+    \begin{tikzpicture}[yscale=2, xscale=1.5] % [scale=2] Agrandar o achicar
+        \begin{scope}[x=12cm,y=1.8cm]
+            %Código para dibujar el Saxophone
+            \draw [draw=black,line width=0.01cm] (0.67,0.992) ellipse (0.04cm and 0.09cm);
+            
+            \draw [draw=black,line width=0.01cm] (0.689,0.865) ellipse (0.03cm and 0.15cm);
+            \draw [draw=black,line width=0.01cm] (0.6835,0.969) ellipse (0.03cm and 0.15cm);
+            \draw [draw=black,line width=0.01cm] (0.68,0.785) ellipse (0.03cm and 0.15cm);
+            
+            \draw [draw=black,line width=0.01cm] (0.67,0.885) circle[radius=0.08cm];
+            \draw [draw=black,line width=0.01cm] (0.656,0.93) ++(-0.05cm,0.1cm) to[bend left] ++(0.1cm,-0.25cm) to[bend right] ++(-0.1cm,0.05cm) to[bend right] cycle; % Atras
+            \draw [draw=black,line width=0.01cm] (0.67,0.8) circle[radius=0.06cm]; % SAC
+            \draw [draw=black,line width=0.01cm] (0.67,0.71) circle[radius=0.08cm]; % SAD
+            \draw [draw=black,line width=0.01cm] (0.67,0.6) circle[radius=0.08cm]; % SAE
+            \draw [draw=black,line width=0.01cm] (0.69,0.6) ellipse (0.12cm and 0.03cm); % SCA
+            \draw [draw=black,line width=0.01cm] (0.6807,0.537) rectangle (0.6895,0.578); % SCB
+            \draw [draw=black,line width=0.01cm] (0.690,0.537) rectangle (0.6995,0.578); % SCC
+            \draw [draw=black,line width=0.01cm] (0.6805,0.4925) rectangle (0.6995,0.53); % SCD
+            
+            \draw (0.635,0.6) -- ++(0.07,-0.2); % Línea
+            
+            \draw [draw=black,line width=0.01cm] (0.67,0.4) circle[radius=0.08cm]; % ICA
+            \draw [draw=black,line width=0.01cm] (0.67,0.3) circle[radius=0.08cm]; % ICB
+            \draw [draw=black,line width=0.01cm] (0.67,0.2) circle[radius=0.08cm]; % ICC
+            \draw [draw=black,line width=0.01cm] (0.642,0.47) rectangle (0.647,0.54); % IAA
+            \draw [draw=black,line width=0.01cm] (0.642,0.39) rectangle (0.647,0.46); % IAB
+            \draw [draw=black,line width=0.01cm] (0.642,0.31) rectangle (0.647,0.38); % IAC
+            \draw [draw=black,line width=0.01cm] (0.653,0.26) rectangle (0.6585,0.38); % IBA
+            \draw [draw=black,line width=0.01cm] (0.652,0.220) ellipse (0.08cm and 0.05cm); % IBB
+            \draw [draw=black,line width=0.01cm] (0.64,0.175) rectangle (0.66,0.125); % IBC
+            \draw [draw=black,line width=0.01cm] (0.64,0.119) rectangle (0.66,0.069); % IBD
+}{%
+    \end{scope}
+    \end{tikzpicture}}
+    
+%    \end{macrocode}
+% \end{environment}
+%
+%
+% \begin{environment}{pinkulloDibujo}
+%    \begin{macrocode}
+\newenvironment{pinkulloDibujo}{\begin{tikzpicture}[y=1cm, x=1cm, yscale=\globalscale,xscale=\globalscale, inner sep=0pt, outer sep=0pt]
+  \begin{scope}
+    \path[draw=black,line width=0.01cm] (5.9, 6) -- ++(0.22,0) to[out=-80,in=160] ++(0.12,-0.4) -- ++(0.02,0) to[out=20,in=-100] ++(0.12,0.4) -- ++(0.22, 0);
+    \path[draw=black,line width=0.01cm] (5.9,6.0) -- ++(0.7,0) -- ++(0,-3.6) to[out=-160,in=-20] ++(-0.7,0) -- cycle;
+    \path[draw=black,line width=0.01cm] (5.65, 3.8) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.0) ellipse (0.1cm and 0.1cm);
+    }{%
+    \end{scope}
+    \end{tikzpicture}}
+%    \end{macrocode}
+% \end{environment}
+%
+%
+% \begin{environment}{quenaDibujo}
+%    \begin{macrocode}
+\newenvironment{quenaDibujo}{\begin{tikzpicture}[y=1cm, x=1cm, yscale=\globalscale,xscale=\globalscale, inner sep=0pt, outer sep=0pt]
+  \begin{scope}
+    \path[draw=black,line width=0.01cm] (5.9, 6) -- ++(0.22,0) to[out=-80,in=160] ++(0.12,-0.4) -- ++(0.02,0) to[out=20,in=-100] ++(0.12,0.4) -- ++(0.22, 0);
+    \path[draw=black,line width=0.01cm] (5.9,6.0) -- ++(0.7,0) -- ++(0,-4.5) to[out=-160,in=-20] ++(-0.7,0) -- cycle;
+    \path[draw=black,line width=0.01cm] (5.65, 4.6) ellipse (0.08cm and 0.08cm);
+    \path[draw=black,line width=0.01cm] (6.25, 4.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 4.0) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.0) ellipse (0.08cm and 0.08cm);
+    \path[draw=black,line width=0.01cm] (6.25, 2.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 2.0) ellipse (0.08cm and 0.08cm);
+    }{%
+    \end{scope}
+    \end{tikzpicture}}
+%    \end{macrocode}
+% \end{environment}
+%
+%
+% \begin{environment}{flautaDibujo}
+%    \begin{macrocode}
+\newenvironment{flautaDibujo}{\begin{tikzpicture}[y=1cm, x=1cm, yscale=\globalscale,xscale=\globalscale, inner sep=0pt, outer sep=0pt]
+  \begin{scope}
+%    \end{macrocode}
+% \draw[step=0.2,black!30,thin] (5,7) grid (8,-5);
+%    \begin{macrocode}
+    \path[draw=black,line width=0.01cm] (6, 8.35) -- ++(0.5, 0) to[out=-80,in=80] ++(0.1,-1) -- ++(-0.7, 0) to[out=100,in=-100] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,7.35) -- ++(0.7,0) to[out=-50,in=50] ++(0,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.88,7.25) -- ++(0.75,0) to[out=-50,in=50] ++(0,-0.15) -- ++(-0.75,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,7.1) -- ++(0.7,0) to[out=-50,in=50] ++(0,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,7.0) -- ++(0.7,0) to[out=-100,in=100] ++(0,-1.5) -- ++(-0.7,0) to[out=80,in=-80] cycle;
+    \path[draw=black,line width=0.01cm] (6.1,7.0) -- ++(0.3,0) to[out=-100,in=100] ++(0,-0.5) -- ++(-0.3,0) to[out=80,in=-80] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,5.5) -- ++(0.7,0) to[out=-70,in=70] ++(0,-0.1) -- ++(-0.7,0)  to[out=110,in=-110] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,5.4) -- ++(0.7,0) to[out=-30,in=30] ++(0,-0.3) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,5.1) -- ++(0.7,0) to[out=-70,in=70] ++(0,-0.1) -- ++(-0.7,0)  to[out=110,in=-110] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.95,5) -- ++(0.6,0) -- ++(0,-3.3) -- ++(-0.6,0) -- cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.95,1.7) -- ++(0.6,0) to[out=-50,in=50] ++(0.05,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.88,1.6) -- ++(0.75,0) to[out=-50,in=50] ++(0,-0.15) -- ++(-0.75,0)  to[out=150,in=-150] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,1.45) -- ++(0.7,0) -- ++(0,-0.6) -- ++(-0.7,0) -- cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.87,0.85) -- ++(0.75,0) to[out=-50,in=50] ++(0,-0.15) -- ++(-0.75,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.89,0.7) -- ++(0.7,0) to[out=-30,in=30] ++(0,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,0.6) -- ++(0.6,0) to[out=-60,in=90] ++(0.1,-0.2) to[out=-90,in=140] ++(0.1,-0.9) to[out=-165, in=-15] ++(-0.9,0)  to[out=50,in=-90] ++(0.1,0.9) to[out=90, in=-120] ++(0.1,0.2) -- cycle;
+    \path[draw=black,line width=0.01cm] (5.65, 4.6) ellipse (0.08cm and 0.08cm);
+    \path[draw=black,line width=0.01cm] (6.25, 4.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 4.0) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.0) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 2.5) ellipse (0.1cm and 0.1cm);
+    
+    \path[draw=black,line width=0.01cm] (6.24, 2.0) ellipse (0.2cm and 0.2cm);
+    \path[draw=black,line width=0.01cm] (6.16, 2.0) ellipse (0.08cm and 0.08cm);
+    \path[draw=black,line width=0.01cm] (6.34, 2.0) ellipse (0.05cm and 0.05cm);
+    
+    \path[draw=black,line width=0.01cm] (6.15, 1.15) ellipse (0.2cm and 0.2cm);
+    \path[draw=black,line width=0.01cm] (6.07, 1.15) ellipse (0.08cm and 0.08cm);
+    \path[draw=black,line width=0.01cm] (6.25, 1.15) ellipse (0.05cm and 0.05cm);
+    }{%
+    \end{scope}
+    \end{tikzpicture}}
+    
+%    \end{macrocode}
+% \end{environment}
+%
+%
+% \begin{environment}{flautaBDibujo}
+%    \begin{macrocode}
+\newenvironment{flautaBDibujo}{\begin{tikzpicture}[y=1cm, x=1cm, yscale=\globalscale,xscale=\globalscale, inner sep=0pt, outer sep=0pt]
+  \begin{scope}
+%    \end{macrocode}
+% \draw[step=0.2,black!30,thin] (5,7) grid (8,-5);
+%    \begin{macrocode}
+    \path[draw=black,line width=0.01cm] (6, 8.35) -- ++(0.5, 0) to[out=-80,in=80] ++(0.1,-1) -- ++(-0.7, 0) to[out=100,in=-100] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,7.35) -- ++(0.7,0) to[out=-50,in=50] ++(0,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.88,7.25) -- ++(0.75,0) to[out=-50,in=50] ++(0,-0.15) -- ++(-0.75,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,7.1) -- ++(0.7,0) to[out=-50,in=50] ++(0,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,7.0) -- ++(0.7,0) to[out=-100,in=100] ++(0,-1.5) -- ++(-0.7,0) to[out=80,in=-80] cycle;
+    \path[draw=black,line width=0.01cm] (6.1,7.0) -- ++(0.3,0) to[out=-100,in=100] ++(0,-0.5) -- ++(-0.3,0) to[out=80,in=-80] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,5.5) -- ++(0.7,0) to[out=-70,in=70] ++(0,-0.1) -- ++(-0.7,0)  to[out=110,in=-110] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,5.4) -- ++(0.7,0) to[out=-30,in=30] ++(0,-0.3) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.9,5.1) -- ++(0.7,0) to[out=-70,in=70] ++(0,-0.1) -- ++(-0.7,0)  to[out=110,in=-110] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.95,5) -- ++(0.6,0) -- ++(0,-3.3) -- ++(-0.6,0) -- cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.95,1.7) -- ++(0.6,0) to[out=-50,in=50] ++(0.05,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.88,1.6) -- ++(0.75,0) to[out=-50,in=50] ++(0,-0.15) -- ++(-0.75,0)  to[out=150,in=-150] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,1.45) -- ++(0.7,0) -- ++(0,-0.6) -- ++(-0.7,0) -- cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.87,0.85) -- ++(0.75,0) to[out=-50,in=50] ++(0,-0.15) -- ++(-0.75,0)  to[out=150,in=-150] cycle;
+    \path[draw=black,line width=0.01cm] (5.89,0.7) -- ++(0.7,0) to[out=-30,in=30] ++(0,-0.1) -- ++(-0.7,0)  to[out=150,in=-150] cycle;
+    
+    \path[draw=black,line width=0.01cm] (5.9,0.6) -- ++(0.6,0) to[out=-60,in=90] ++(0.1,-0.2) to[out=-90,in=140] ++(0.1,-0.9) to[out=-165, in=-15] ++(-0.9,0)  to[out=50,in=-90] ++(0.1,0.9) to[out=90, in=-120] ++(0.1,0.2) -- cycle;
+    \path[draw=black,line width=0.01cm] (5.65, 4.6) ellipse (0.08cm and 0.08cm);
+    \path[draw=black,line width=0.01cm] (6.25, 4.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 4.0) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.5) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 3.0) ellipse (0.1cm and 0.1cm);
+    \path[draw=black,line width=0.01cm] (6.25, 2.5) ellipse (0.1cm and 0.1cm);
+    
+    \path[draw=black,line width=0.01cm] (6.25, 2.0) ellipse (0.1cm and 0.1cm);
+    
+    \path[draw=black,line width=0.01cm] (6.15, 1.15) ellipse (0.13cm and 0.13cm);
+    }{%
+    \end{scope}
+    \end{tikzpicture}}
+\NewDocumentCommand\Atras{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (5.65, 4.6) -- ++(180:0.08cm) arc (180:0:0.08cm);}%
+    {\path[fill=black,line width=0.01cm] (5.65, 4.6) ellipse (0.08cm and 0.08cm);}%
+}
+%    \end{macrocode}
+% \end{environment}
+%
+%    \begin{macrocode}
+\NewDocumentCommand\Atrasn{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (5.65, 3.8) -- ++(180:0.08cm) arc (180:0:0.08cm);}%
+    {\path[fill=black,line width=0.01cm] (5.65, 3.8) ellipse (0.08cm and 0.08cm);}%
+}
+\NewDocumentCommand\HuecoA{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 4.5) -- ++(180:0.1cm) arc (180:0:0.1cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 4.5) ellipse (0.1cm and 0.1cm);}%
+}
+\NewDocumentCommand\HuecoB{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 4.0) -- ++(180:0.1cm) arc (180:0:0.1cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 4.0) ellipse (0.1cm and 0.1cm);}%
+}
+\NewDocumentCommand\HuecoC{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 3.5) -- ++(180:0.1cm) arc (180:0:0.1cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 3.5) ellipse (0.1cm and 0.1cm);}%
+}
+\NewDocumentCommand\HuecoD{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 3.0) -- ++(180:0.1cm) arc (180:0:0.1cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 3.0) ellipse (0.1cm and 0.1cm);}%
+}
+\NewDocumentCommand\HuecoDq{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 3.0) -- ++(180:0.08cm) arc (180:0:0.08cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 3.0) ellipse (0.08cm and 0.08cm);}%
+}
+\NewDocumentCommand\HuecoE{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 2.5) -- ++(180:0.1cm) arc (180:0:0.1cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 2.5) ellipse (0.1cm and 0.1cm);}%
+}
+\NewDocumentCommand\HuecoEn{}{%
+  \path[fill=black,line width=0.01cm] (5.9,2.6) -- ++(0.7,0) -- ++(0,-0.25) to[out=-160,in=-20] ++(-0.7,0) -- cycle;
+}
+\NewDocumentCommand\HuecoF{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.16, 2.0) ellipse (0.08cm and 0.08cm);}%
+    {\path[fill=black,line width=0.01cm] (6.16, 2.0) ellipse (0.08cm and 0.08cm);
+    \path[fill=black,line width=0.01cm] (6.34, 2.0) ellipse (0.05cm and 0.05cm);}%
+}
+\NewDocumentCommand\HuecoFn{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 2.0) -- ++(180:0.1cm) arc (180:0:0.1cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 2.0) ellipse (0.1cm and 0.1cm);}%
+}
+\NewDocumentCommand\HuecoFq{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.25, 2.0) -- ++(180:0.08cm) arc (180:0:0.08cm);}%
+    {\path[fill=black,line width=0.01cm] (6.25, 2.0) ellipse (0.08cm and 0.08cm);}%
+}
+\NewDocumentCommand\HuecoG{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.07, 1.15) ellipse (0.08cm and 0.08cm);}%
+    {\path[fill=black,line width=0.01cm] (6.07, 1.15) ellipse (0.08cm and 0.08cm);
+    \path[fill=black,line width=0.01cm] (6.25, 1.15) ellipse (0.05cm and 0.05cm);}%
+}
+\NewDocumentCommand\HuecoGn{s}{%
+  \IfBooleanTF#1%
+    {\path[fill=black,line width=0.01cm] (6.15, 1.15) -- ++(180:0.13cm) arc (180:0:0.13cm);}%
+    {\path[fill=black,line width=0.01cm] (6.15, 1.15) ellipse (0.13cm and 0.13cm);}%
+}
+\NewDocumentCommand\HuecoGq{}{%
+  \path[fill=black,line width=0.01cm] (5.9,1.63) -- ++(0.3,0) -- ++(0,-0.2) to[out=-185,in=-22] ++(-0.3,0.075) -- cycle;
+  \path[fill=black,line width=0.01cm] (6.3,1.63) -- ++(0.3,0) -- ++(0,-0.13) to[out=-162,in=-0] ++(-0.3,-0.07) -- cycle;
+}
+\NewDocumentCommand\SAtras{}{%
+  \draw[fill=black,line width=0.01cm] (0.656,0.93) ++(-0.05cm,0.1cm) to[bend left] ++(0.1cm,-0.25cm) to[bend right] ++(-0.1cm,0.05cm) to[bend right] cycle;
+}
+\NewDocumentCommand\SHuecoSAA{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.992) ellipse (0.04cm and 0.09cm);
+}
+\NewDocumentCommand\SHuecoSAB{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.885) circle[radius=0.08cm];
+}
+\NewDocumentCommand\SHuecoSAC{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.8) circle[radius=0.06cm];
+}
+\NewDocumentCommand\SHuecoSAD{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.71) circle[radius=0.08cm];
+}
+\NewDocumentCommand\SHuecoSAE{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.6) circle[radius=0.08cm];
+}
+\NewDocumentCommand\SHuecoSBA{}{%
+  \draw [fill=black,line width=0.01cm] (0.6835,0.969) ellipse (0.03cm and 0.15cm);
+}
+\NewDocumentCommand\SHuecoSBB{}{%
+  \draw [fill=black,line width=0.01cm] (0.689,0.865) ellipse (0.03cm and 0.15cm);
+}
+\NewDocumentCommand\SHuecoSBC{}{%
+  \draw [fill=black,line width=0.01cm] (0.68,0.785) ellipse (0.03cm and 0.15cm);
+}
+\NewDocumentCommand\SHuecoSCA{}{%
+  \draw [fill=black,line width=0.01cm] (0.69,0.6) ellipse (0.12cm and 0.03cm);
+}
+\NewDocumentCommand\SHuecoSCB{}{%
+  \draw [fill=black,line width=0.01cm] (0.6807,0.537) rectangle (0.6895,0.578);
+}
+\NewDocumentCommand\SHuecoSCC{}{%
+  \draw [fill=black,line width=0.01cm] (0.690,0.537) rectangle (0.6995,0.578);
+}
+\NewDocumentCommand\SHuecoSCD{}{%
+  \draw [fill=black,line width=0.01cm] (0.6805,0.4925) rectangle (0.6995,0.53);
+}
+\NewDocumentCommand\SHuecoIAA{}{%
+  \draw [fill=black,line width=0.01cm] (0.642,0.47) rectangle (0.647,0.54);
+}
+\NewDocumentCommand\SHuecoIAB{}{%
+  \draw [fill=black,line width=0.01cm] (0.642,0.39) rectangle (0.647,0.46);
+}
+\NewDocumentCommand\SHuecoIAC{}{%
+  \draw [fill=black,line width=0.01cm] (0.642,0.31) rectangle (0.647,0.38);
+}
+\NewDocumentCommand\SHuecoIBA{}{%
+  \draw [fill=black,line width=0.01cm] (0.653,0.26) rectangle (0.6585,0.38);
+}
+\NewDocumentCommand\SHuecoIBB{}{%
+  \draw [fill=black,line width=0.01cm] (0.652,0.220) ellipse (0.08cm and 0.05cm);
+}
+\NewDocumentCommand\SHuecoIBC{}{%
+  \draw [fill=black,line width=0.01cm] (0.64,0.175) rectangle (0.66,0.125);
+}
+\NewDocumentCommand\SHuecoIBD{}{%
+  \draw [fill=black,line width=0.01cm] (0.64,0.119) rectangle (0.66,0.069);
+}
+\NewDocumentCommand\SHuecoICA{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.4) circle[radius=0.08cm];
+}
+\NewDocumentCommand\SHuecoICB{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.3) circle[radius=0.08cm];
+}
+\NewDocumentCommand\SHuecoICC{}{%
+  \draw [fill=black,line width=0.01cm] (0.67,0.2) circle[radius=0.08cm];
+}
+%    \end{macrocode}
+%
+% \begin{macro}{\flautaImg}
+%    \begin{macrocode}
+\newcommand{\flautaImg}[3][spn]{%
+    \IfEqCase{#2}{%
+        {C}{
+            \IfEqCase{#3}{%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \HuecoG \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \HuecoG* \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoB \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \HuecoA \HuecoB \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoD \HuecoE \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoF \HuecoG \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaOcatava}{No existe case: #3}{}]%
+        }%
+        {D}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \HuecoG* \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \HuecoA \HuecoB \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \HuecoB \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoF \HuecoG \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoC \HuecoD \HuecoF \HuecoG* \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaOcatava}{No existe case: #3}{}]%
+        }%
+        {E}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {52}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoB \HuecoC \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaOcatava}{No existe case: #3}{}]%
+        }%
+        {F}{
+            \IfEqCase{#3}{%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoF \HuecoG \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \HuecoG \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoE \HuecoF \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \HuecoG* \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoF \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoB \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoE \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \HuecoA \HuecoB \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoD \HuecoE \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoF \HuecoG \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaOcatava}{No existe case: #3}{}]%
+        }%
+        {G}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoE \HuecoF \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \HuecoG* \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoE \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \HuecoA \HuecoB \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%v
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \HuecoB \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoF \HuecoG \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoC \HuecoD \HuecoF \HuecoG* \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaOcatava}{No existe case: #3}{}]%
+        }%
+        {A}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF* \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoF \HuecoG \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaOcatava}{No existe case: #3}{}]%
+        }%
+        {B}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoF \HuecoG \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoA \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoE \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {42}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras \HuecoB \HuecoC \end{flautaDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoF \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoF \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \end{flautaDibujo}}
+                		{spnn}{\begin{flautaDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoE \end{flautaDibujo}}
+                	}[\PackageError{flautaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaOcatava}{No existe case: #3}{}]%
+        }%
+    }[\PackageError{flautaImg}{No existe case: #2}{}]%
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\flautaBImg}
+%    \begin{macrocode}
+\newcommand{\flautaBImg}[3][spn]{%
+    \IfEqCase{#2}{%
+        {C}{
+            \IfEqCase{#3}{%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \HuecoGn* \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoB \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \HuecoA \HuecoB \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoD \HuecoE \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaBOcatava}{No existe case: #3}{}]%
+        }%
+        {D}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \HuecoGn* \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \HuecoA \HuecoB \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \HuecoB \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoC \HuecoD \HuecoFn \HuecoGn* \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaBOcatava}{No existe case: #3}{}]%
+        }%
+        {E}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {52}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoB \HuecoC \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaBOcatava}{No existe case: #3}{}]%
+        }%
+        {F}{
+            \IfEqCase{#3}{%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoE \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \HuecoGn* \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoB \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoE \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \HuecoA \HuecoB \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoD \HuecoE \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaBOcatava}{No existe case: #3}{}]%
+        }%
+        {G}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoE \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \HuecoGn* \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoE \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \HuecoA \HuecoB \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%v
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \HuecoB \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB* \HuecoC \HuecoD \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{spn}{}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoC \HuecoD \HuecoFn \HuecoGn* \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaBOcatava}{No existe case: #3}{}]%
+        }%
+        {A}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn* \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \HuecoB \HuecoC \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoE \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaBOcatava}{No existe case: #3}{}]%
+        }%
+        {B}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoC \HuecoD \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoD \HuecoFn \HuecoGn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b2}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoB \HuecoC \HuecoD \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoA \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoE \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {42}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras \HuecoB \HuecoC \end{flautaBDibujo}}
+                		{spnn}{}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \HuecoFn \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoD \HuecoFn \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{spn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoD \HuecoE \end{flautaBDibujo}}
+                		{spnn}{\begin{flautaBDibujo} \Atras* \HuecoA \HuecoB \HuecoC \HuecoE \end{flautaBDibujo}}
+                	}[\PackageError{flautaBAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{flautaBOcatava}{No existe case: #3}{}]%
+        }%
+    }[\PackageError{flautaBImg}{No existe case: #2}{}]%
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\quenaImg}
+%    \begin{macrocode}
+\newcommand{\quenaImg}[3][sol]{%
+    \IfEqCase{#2}{%
+        {C}{
+            \IfEqCase{#3}{%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoE \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoFq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoB \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \HuecoA \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {62}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoE \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \HuecoA \HuecoC \HuecoFq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoDq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s2}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoB \HuecoDq \HuecoE \HuecoFq \HuecoGq \end{quenaDibujo}}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{quenaOcatava}{No existe case: #3}{}]%
+        }%
+        {D}{
+            \IfEqCase{#3}{%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3s}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo}  \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoB \HuecoC \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoE \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \HuecoA \HuecoC \HuecoFq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoDq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b2}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoB \HuecoDq \HuecoE \HuecoFq \HuecoGq \end{quenaDibujo}}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoFq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoB \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoB \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {62}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{sol}{}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \HuecoC \HuecoFq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoDq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \HuecoA \end{quenaDibujo}}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s2}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoB \HuecoDq \HuecoE \HuecoFq \HuecoGq \end{quenaDibujo}}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{quenaOcatava}{No existe case: #3}{}]%
+        }%
+        {E}{
+            \IfEqCase{#3}{%
+                {3b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \HuecoC \HuecoFq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoDq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \HuecoA \end{quenaDibujo}}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b2}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoB \HuecoDq \HuecoE \HuecoFq \HuecoGq \end{quenaDibujo}}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoB \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoE \end{quenaDibujo}}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {62}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{quenaOcatava}{No existe case: #3}{}]%
+        }%
+        {F}{
+            \IfEqCase{#3}{%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3s}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo}  \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoB \HuecoC \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoDq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \HuecoA \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoB \HuecoE \end{quenaDibujo}}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {62}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoB \HuecoDq \HuecoE \HuecoFq \HuecoGq \end{quenaDibujo}}
+                		{sol}{}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoE \end{quenaDibujo}}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s2}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{sol}{}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{quenaOcatava}{No existe case: #3}{}]%
+        }%
+        {G}{
+            \IfEqCase{#3}{%
+                {3b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3s}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo}  \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoE \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoB \HuecoC \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoFq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {52}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoE \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \HuecoA \HuecoC \HuecoFq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoE \end{quenaDibujo}}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b2}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                		{sol}{}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoB \HuecoE \end{quenaDibujo}}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoE \end{quenaDibujo}}
+                		{sol}{}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{quenaOcatava}{No existe case: #3}{}]%
+        }%
+        {A}{
+            \IfEqCase{#3}{%
+                {3b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo}  \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoE \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \HuecoA \HuecoC \HuecoFq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoB \HuecoC \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoE \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoB \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoE \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoB \HuecoDq \HuecoE \HuecoFq \HuecoGq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoE \end{quenaDibujo}}
+                		{sol}{}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoB \HuecoE \end{quenaDibujo}}
+                		{sol}{}
+                		{fa}{}
+                		{re}{}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{quenaOcatava}{No existe case: #3}{}]%
+        }%
+        {B}{
+            \IfEqCase{#3}{%
+                {3b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq* \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE* \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC \HuecoDq \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoC* \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoE \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \HuecoDq \HuecoE \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoB \HuecoDq \HuecoE \HuecoFq \HuecoGq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{quenaDibujo} \HuecoA \HuecoB \HuecoC \HuecoDq \HuecoE \end{quenaDibujo}}
+                		{sol}{\begin{quenaDibujo} \Atras \HuecoA \HuecoE \end{quenaDibujo}}
+                		{fa}{\begin{quenaDibujo} \HuecoA \HuecoC \HuecoFq \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+                {52}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sol}{}
+                		{fa}{\begin{quenaDibujo} \Atras \HuecoA \HuecoC \end{quenaDibujo}}
+                		{re}{\begin{quenaDibujo} \Atras \HuecoA \HuecoB* \HuecoDq \end{quenaDibujo}}
+                	}[\PackageError{quenaAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{quenaOcatava}{No existe case: #3}{}]%
+        }%
+    }[\PackageError{quenaImg}{No existe case: #2}{}]%
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\pinkulloImg}
+%    \begin{macrocode}
+\newcommand{\pinkulloImg}[3][la]{%
+    \IfEqCase{#2}{%
+        {C}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{pinkulloOcatava}{No existe case: #3}{}]%
+        }%
+        {D}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \HuecoC \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{pinkulloOcatava}{No existe case: #3}{}]%
+        }%
+        {E}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \HuecoEn \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \HuecoC \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoD \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \HuecoC \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{pinkulloOcatava}{No existe case: #3}{}]%
+        }%
+        {F}{
+            \IfEqCase{#3}{%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \HuecoEn \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \HuecoEn \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoD \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoD \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{pinkulloOcatava}{No existe case: #3}{}]%
+        }%
+        {G}{
+            \IfEqCase{#3}{%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{pinkulloOcatava}{No existe case: #3}{}]%
+        }%
+        {A}{
+            \IfEqCase{#3}{%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{pinkulloOcatava}{No existe case: #3}{}]%
+        }%
+        {B}{
+            \IfEqCase{#3}{%
+                {3}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {3b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{la}{\begin{pinkulloDibujo} \Atrasn \HuecoC \end{pinkulloDibujo}}
+                		{sib}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                		{si}{}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{la}{}
+                		{sib}{}
+                		{si}{\begin{pinkulloDibujo} \Atrasn \HuecoC \HuecoD \end{pinkulloDibujo}}
+                	}[\PackageError{pinkulloAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{pinkulloOcatava}{No existe case: #3}{}]%
+        }%
+    }[\PackageError{pinkulloImg}{No existe case: #2}{}]%
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\saxofonImg}
+%    \begin{macrocode}
+\newcommand{\saxofonImg}[3][las]{%
+    \IfEqCase{#2}{%
+        {C}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCB \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCC \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAD \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {52}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoIAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAD \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {62}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAD \SHuecoIAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{saxofonOcatava}{No existe case: #3}{}]%
+        }%
+        {D}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCC \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBC \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBC \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{saxofonOcatava}{No existe case: #3}{}]%
+        }%
+        {E}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBC \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBC \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \SHuecoIAA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {62}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAA \SHuecoSAD \SHuecoSAE \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \SHuecoSBC \SHuecoIAA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAA \SHuecoSAD \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{saxofonOcatava}{No existe case: #3}{}]%
+        }%
+        {F}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \SHuecoIAA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAA \SHuecoSAD \SHuecoSAE \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \SHuecoSBC \SHuecoIAA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {62}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAA \SHuecoSAD \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \SHuecoSBC \SHuecoIAA \SHuecoIBA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAA \SHuecoSAD \SHuecoIBA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{saxofonOcatava}{No existe case: #3}{}]%
+        }%
+        {G}{
+            \IfEqCase{#3}{%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSBA \SHuecoSBB \SHuecoSBC \SHuecoIAA \SHuecoIBA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {6b2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAA \SHuecoSAD \SHuecoIBA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{saxofonOcatava}{No existe case: #3}{}]%
+        }%
+        {A}{
+            \IfEqCase{#3}{%
+                {3s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCD \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoIAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s3}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoIAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s3}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{saxofonOcatava}{No existe case: #3}{}]%
+        }%
+        {B}{
+            \IfEqCase{#3}{%
+                {3b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCD \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {3}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoSCB \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {3s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoSAE \SHuecoIBD \SHuecoICA \SHuecoICB \SHuecoICC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAD \SHuecoIAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b3}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4b4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoSAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAD \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {4s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SHuecoSAB \SHuecoIAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAD \SHuecoIAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoICA \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b3}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoICB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5b4}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoSAC \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+                {5s2}{
+                	\IfEqCase{#1}{
+                		{las}{\begin{saxofonDibujo} \SAtras \SHuecoSAB \SHuecoIAB \end{saxofonDibujo}}
+                	}[\PackageError{saxofonAfinacion}{No existe case: #1}{}]%
+                }%
+            }[\PackageError{saxofonOcatava}{No existe case: #3}{}]%
+        }%
+    }[\PackageError{saxofonImg}{No existe case: #2}{}]%
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\teststring}
+%    \begin{macrocode}
+\newcommand{\teststring}{}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\addtostring}
+%    \begin{macrocode}
+\newcommand{\addtostring}[1]{%
+  \expandafter\def\expandafter\teststring\expandafter{\teststring#1}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\notaPalabra}
+%    \begin{macrocode}
+\newcommand{\notaPalabra}[1]{%
+    \IfEqCase{#1}{%
+        {C}{Do}%
+        {D}{Re}%
+        {E}{Mi}%
+        {F}{Fa}%
+        {G}{Sol}%
+        {A}{La}%
+        {B}{Si}%
+    }[\PackageError{notaPalabra}{No existe case: #1}{}]%
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\alteracionPalabra}
+%    \begin{macrocode}
+\newcommand{\alteracionPalabra}[1]{%
+    \IfEq{#1}{}{}{
+        \IfEqCase{#1}{{s}{\text{\musSharp{}}}{S}{\text{\musSharp{}\musSharp{}}}{b}{\text{\musFlat{}}}{B}{\text{\musFlat{}\musFlat{}}}}[\PackageError{alteracionPalabra}{No existe case: #1}{}]%
+    }
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\splitPorCaracterlyrics}
+%    \begin{macrocode}
+\def\splitPorCaracterlyrics#1{\threewordslyrics#1\relax}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\threewordslyrics}
+%    \begin{macrocode}
+\def\threewordslyrics#1/#2/#3\relax{
+    \appendlyrics{scale}{\notaPalabra{#1}\alteracionPalabra{\letraB{#2}}}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%    \begin{macrocode}
+\ExplSyntaxOn
+\NewDocumentCommand{\loppDelyrics}{m}{
+%    \end{macrocode}
+% \begin{enumerate}
+%    \begin{macrocode}
+    \clist_map_inline:nn{#1}{ % C/4s/a/n
+        \splitPorCaracterlyrics{##1}
+    }
+%    \end{macrocode}
+% \end{enumerate}
+%    \begin{macrocode}
+}
+\ExplSyntaxOff
+%    \end{macrocode}
+%
+% \begin{macro}{\letraA}
+%4s
+%    \begin{macrocode}
+\newcommand*{\letraA}[1]{\expandafter \extrerA#1{}{}{}\stophere}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\extrerA}
+%    \begin{macrocode}
+\def\extrerA#1#2#3\stophere{#1}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\letraB}
+%    \begin{macrocode}
+\newcommand*{\letraB}[1]{\expandafter \extrerB#1{}{}{}\stophere}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\extrerB}
+%    \begin{macrocode}
+\def\extrerB#1#2#3\stophere{#2}
+%    \end{macrocode}
+% \end{macro}
+%
+%    \begin{macrocode}
+\newcounter{contnotasmanual}
+\setcounter{contnotasmanual}{10000}
+\newcounter{contimgmanual}
+\setcounter{contimgmanual}{10000}
+%    \end{macrocode}
+%
+% \begin{macro}{\addTikz}
+%    \begin{macrocode}
+\newcommand{\addTikz}{
+    \refstepcounter{contnotasmanual}
+    \tikzmark{\arabic{contnotasmanual}}
+}%
+\NewDocumentCommand{\flauta}{ O{spn} O{-88} O{-0.5} m m}{ % C, 4s, id
+    \zcharnote{#2}{\hspace*{#3cm}\flautaImg[#1]{#4}{#5}}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%    \begin{macrocode}
+\NewDocumentCommand{\flautaManual}{ O{spn} O{0} O{0} m m}{ % C, 4s, id
+    \refstepcounter{contimgmanual}
+    \flautaId[#1][#2][#3]{#4}{#5}{\arabic{contimgmanual}}
+}
+\NewDocumentCommand{\flautaId}{ O{spn} O{0} O{0} m m m}{ % C, 4s, id
+    \tikz[remember picture]{
+        \node[overlay,above=of pic cs:#6,xshift=#3cm,yshift=#2cm]{
+            \flautaImg[#1]{#4}{#5}
+        };
+    }
+}
+\NewDocumentCommand{\flautaB}{ O{spn} O{-88} O{-0.5} m m}{ % C, 4s, id
+    \zcharnote{#2}{\hspace*{#3cm}\flautaBImg[#1]{#4}{#5}}
+}
+\NewDocumentCommand{\flautaBManual}{ O{spn} O{0} O{0} m m}{ % C, 4s, id
+    \refstepcounter{contimgmanual}
+    \flautaBId[#1][#2][#3]{#4}{#5}{\arabic{contimgmanual}}
+}
+\NewDocumentCommand{\flautaBId}{ O{spn} O{0} O{0} m m m}{ % C, 4s, id
+    \tikz[remember picture]{
+        \node[overlay,above=of pic cs:#6,xshift=#3cm,yshift=#2cm]{
+            \flautaBImg[#1]{#4}{#5}
+        };
+    }
+}
+\NewDocumentCommand{\quena}{ O{sol} O{-60} O{-0.5} m m}{ % C, 4s, id
+    \zcharnote{#2}{\hspace*{#3cm}\quenaImg[#1]{#4}{#5}}
+}
+\NewDocumentCommand{\quenaManual}{ O{sol} O{0} O{0} m m}{ % C, 4s, id
+    \refstepcounter{contimgmanual}
+    \quenaId[#1][#2][#3]{#4}{#5}{\arabic{contimgmanual}}
+}
+\NewDocumentCommand{\quenaId}{ O{sol} O{0} O{0} m m m}{ % C, 4s, id
+    \tikz[remember picture]{
+        \node[overlay,above=of pic cs:#6,xshift=#3cm,yshift=#2cm]{
+            \quenaImg[#1]{#4}{#5}
+        };
+    }
+}
+\NewDocumentCommand{\pinkullo}{ O{la} O{-48} O{-0.5} m m}{ % C, 4s, id
+    \zcharnote{#2}{\hspace*{#3cm}\pinkulloImg[#1]{#4}{#5}}
+}
+\NewDocumentCommand{\pinkulloManual}{ O{la} O{0} O{0} m m}{ % C, 4s, id
+    \refstepcounter{contimgmanual}
+    \pinkulloId[#1][#2][#3]{#4}{#5}{\arabic{contimgmanual}}
+}
+\NewDocumentCommand{\pinkulloId}{ O{la} O{0} O{0} m m m}{ % C, 4s, id
+    \tikz[remember picture]{
+        \node[overlay,above=of pic cs:#6,xshift=#3cm,yshift=#2cm]{
+            \pinkulloImg[#1]{#4}{#5}
+        };
+    }
+}
+\NewDocumentCommand{\saxofon}{ O{las} O{-62} O{-0.7} m m}{ % C, 4s, id
+    \zcharnote{#2}{\hspace*{#3cm}\saxofonImg[#1]{#4}{#5}}
+}
+\NewDocumentCommand{\saxofonManual}{ O{las} O{0} O{0} m m}{ % C, 4s, id
+    \refstepcounter{contimgmanual}
+    \saxofonId[#1][#2][#3]{#4}{#5}{\arabic{contimgmanual}}
+}
+\NewDocumentCommand{\saxofonId}{ O{las} O{0} O{0} m m m}{ % C, 4s, id
+    \tikz[remember picture]{
+        \node[overlay,above=of pic cs:#6,xshift=#3cm,yshift=#2cm]{
+            \saxofonImg[#1]{#4}{#5}
+        };
+    }
+}
+%    \end{macrocode}
+%
+% \begin{macro}{\tamanio}
+%Genérico \expandafter
+%    \begin{macrocode}
+\newcommand{\tamanio}[3]{% redonda(r), notaParaMusixtex, sSbB
+    \IfEqCase{#1}{%
+        {r}{
+            \IfEq{#3}{}{\wh{#2}}{
+                \IfEqCase{#3}{{s}{\wh{^#2}}{S}{\wh{>#2}}{b}{\wh{_#2}}{B}{\wh{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+        {b}{
+            \IfEq{#3}{}{\ha{#2}}{
+                \IfEqCase{#3}{{s}{\ha{^#2}}{S}{\ha{>#2}}{b}{\ha{_#2}}{B}{\ha{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+        {n}{
+            \IfEq{#3}{}{\qa{#2}}{
+                \IfEqCase{#3}{{s}{\qa{^#2}}{S}{\qa{>#2}}{b}{\qa{_#2}}{B}{\qa{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+        {c}{
+            \IfEq{#3}{}{\ca{#2}}{
+                \IfEqCase{#3}{{s}{\ca{^#2}}{S}{\ca{>#2}}{b}{\ca{_#2}}{B}{\ca{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+        {sc}{
+            \IfEq{#3}{}{\cca{#2}}{
+                \IfEqCase{#3}{{s}{\cca{^#2}}{S}{\cca{>#2}}{b}{\cca{_#2}}{B}{\cca{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+        {f}{
+            \IfEq{#3}{}{\ccca{#2}}{
+                \IfEqCase{#3}{{s}{\ccca{^#2}}{S}{\ccca{>#2}}{b}{\ccca{_#2}}{B}{\ccca{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+        {sf}{
+            \IfEq{#3}{}{\cccca{#2}}{
+                \IfEqCase{#3}{{s}{\cccca{^#2}}{S}{\cccca{>#2}}{b}{\cccca{_#2}}{B}{\cccca{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+        {g}{
+            \IfEq{#3}{}{\ccccca{#2}}{
+                \IfEqCase{#3}{{s}{\ccccca{^#2}}{S}{\ccccca{>#2}}{b}{\ccccca{_#2}}{B}{\ccccca{<#2}}}[\PackageError{sSbB}{No existe case: #3}{}]%
+            }
+        }
+    }[\PackageError{tamanio}{No existe case: #1}{}]%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\notaParaMusixtex}
+%Genérico
+%    \begin{macrocode}
+\newcommand{\notaParaMusixtex}[4]{%C,4, negra(n), sSbB
+    \IfEqCase{#1}{%
+        {C}{
+            \IfEqCase{#2}{%
+                {2}{\tamanio{#3}{C}{#4}}
+                {3}{\tamanio{#3}{J}{#4}}
+                {4}{\tamanio{#3}{c}{#4}}
+                {5}{\tamanio{#3}{j}{#4}}
+                {6}{\tamanio{#3}{q}{#4}}
+                {7}{\tamanio{#3}{x}{#4}}
+            }[\PackageError{notaParaMusixtexOctava}{No existe case: #2}{}]%
+        }
+        {D}{
+            \IfEqCase{#2}{%
+                {2}{\tamanio{#3}{D}{#4}}
+                {3}{\tamanio{#3}{K}{#4}}
+                {4}{\tamanio{#3}{d}{#4}}
+                {5}{\tamanio{#3}{k}{#4}}
+                {6}{\tamanio{#3}{r}{#4}}
+                {7}{\tamanio{#3}{y}{#4}}
+            }[\PackageError{notaParaMusixtexOctava}{No existe case: #2}{}]%
+        }
+        {E}{
+            \IfEqCase{#2}{%
+                {2}{\tamanio{#3}{E}{#4}}
+                {3}{\tamanio{#3}{L}{#4}}
+                {4}{\tamanio{#3}{e}{#4}}
+                {5}{\tamanio{#3}{l}{#4}}
+                {6}{\tamanio{#3}{s}{#4}}
+                {7}{\tamanio{#3}{z}{#4}}
+            }[\PackageError{notaParaMusixtexOctava}{No existe case: #2}{}]%
+        }
+        {F}{
+            \IfEqCase{#2}{%
+                {2}{\tamanio{#3}{F}{#4}}
+                {3}{\tamanio{#3}{M}{#4}}
+                {4}{\tamanio{#3}{f}{#4}}
+                {5}{\tamanio{#3}{m}{#4}}
+                {6}{\tamanio{#3}{t}{#4}}
+            }[\PackageError{notaParaMusixtexOctava}{No existe case: #2}{}]%
+        }
+        {G}{
+            \IfEqCase{#2}{%
+                {2}{\tamanio{#3}{G}{#4}}
+                {3}{\tamanio{#3}{N}{#4}}
+                {4}{\tamanio{#3}{g}{#4}}
+                {5}{\tamanio{#3}{n}{#4}}
+                {6}{\tamanio{#3}{u}{#4}}
+            }[\PackageError{notaParaMusixtexOctava}{No existe case: #2}{}]%
+        }
+        {A}{
+            \IfEqCase{#2}{%
+                {1}{\tamanio{#3}{A}{#4}}
+                {2}{\tamanio{#3}{H}{#4}}
+                {3}{\tamanio{#3}{a}{#4}}
+                {4}{\tamanio{#3}{h}{#4}}
+                {5}{\tamanio{#3}{o}{#4}}
+                {6}{\tamanio{#3}{v}{#4}}
+            }[\PackageError{notaParaMusixtexOctava}{No existe case: #2}{}]%
+        }
+        {B}{
+            \IfEqCase{#2}{%
+                {1}{\tamanio{#3}{B}{#4}}
+                {2}{\tamanio{#3}{l}{#4}}
+                {3}{\tamanio{#3}{b}{#4}}
+                {4}{\tamanio{#3}{i}{#4}}
+                {5}{\tamanio{#3}{p}{#4}}
+                {6}{\tamanio{#3}{w}{#4}}
+            }[\PackageError{notaParaMusixtexOctava}{No existe case: #2}{}]%
+        }
+    }[\PackageError{notaParaMusixtex}{No existe case: #1}{}]%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%    \begin{macrocode}
+\newcounter{contnotas}
+\setcounter{contnotas}{0}
+%    \end{macrocode}
+%
+% \begin{macro}{\splitPorCaracter}
+%    \begin{macrocode}
+\def\splitPorCaracter#1{\threewords#1\relax}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\threewords}
+%    \begin{macrocode}
+\def\threewords#1/#2/#3\relax{
+    \refstepcounter{contnotas}
+    \tikzmark{\arabic{contnotas}}\notaParaMusixtex{#1}{\letraA{#2}}{#3}{\letraB{#2}}\relax
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%    \begin{macrocode}
+\ExplSyntaxOn
+\NewDocumentCommand{\loppDeNotas}{m}{
+%    \end{macrocode}
+% \begin{enumerate}
+%    \begin{macrocode}
+    \clist_map_inline:nn{#1}{ % C/4s/a/n
+        \splitPorCaracter{##1}
+    }
+%    \end{macrocode}
+% \end{enumerate}
+%    \begin{macrocode}
+}
+\ExplSyntaxOff
+%    \end{macrocode}
+%
+% \begin{macro}{\espacioNotas}
+%Genérico
+%{n, {C/ 4/ id/ negra(n)/ s}}
+%    \begin{macrocode}
+\newcommand{\espacioNotas}[2]{
+    \IfEqCase{#1}{%
+        {r}{ \NOTEs \loppDeNotas{#2} \en }
+        {b}{ \NOTes \loppDeNotas{#2} \en }
+        {n}{ \NOtes \loppDeNotas{#2} \en }
+        {c}{ \Notes \loppDeNotas{#2} \en }
+        {sc}{ \notes \loppDeNotas{#2} \en }
+        {f}{ \notes \loppDeNotas{#2} \en }
+        {sf}{ \notes \loppDeNotas{#2} \en }
+        {g}{ \notes \loppDeNotas{#2} \en }
+    }[\PackageError{espacioNotas}{No existe case: #1}{}]%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%    \begin{macrocode}
+\newcounter{contimg}
+\setcounter{contimg}{0}
+%    \end{macrocode}
+%
+% \begin{macro}{\loppDeInstrumento}
+%    \begin{macrocode}
+\newcommand{\loppDeInstrumento}[2]{
+    \foreach \x\y\w in {#2} {
+        \refstepcounter{contimg}
+         \flautaId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+    }
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\loppDeInstrumentoFlautaB}
+%    \begin{macrocode}
+\newcommand{\loppDeInstrumentoFlautaB}[2]{
+    \foreach \x\y\w in {#2} {
+        \refstepcounter{contimg}
+         \flautaBId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+    }
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\loppDeInstrumentoQuena}
+%    \begin{macrocode}
+\newcommand{\loppDeInstrumentoQuena}[2]{
+    \foreach \x\y\w in {#2} {
+        \refstepcounter{contimg}
+         \quenaId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+    }
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\loppDeInstrumentoPinkullo}
+%    \begin{macrocode}
+\newcommand{\loppDeInstrumentoPinkullo}[2]{
+    \foreach \x\y\w in {#2} {
+        \refstepcounter{contimg}
+         \pinkulloId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+    }
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\loppDeInstrumentoSaxofon}
+%    \begin{macrocode}
+\newcommand{\loppDeInstrumentoSaxofon}[2]{
+    \foreach \x\y\w in {#2} {
+        \refstepcounter{contimg}
+         \saxofonId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+    }
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\flautaLoop}
+%{n}{C}
+%{C, 4s, negra(n)}
+%    \begin{macrocode}
+\newcommand{\flautaLoop}[3][spn]{
+    \vspace{7.4cm}
+    \begin{frame}{}
+        \begin{music}
+            \resetlyrics
+            \loppDelyrics{#3}
+            \lyrraise{1}{b-2ex}
+            \assignlyrics{1}{scale}
+            
+            \startextract
+                \espacioNotas{#2}{#3}
+            \endextract
+            
+        \end{music}
+        \loppDeInstrumento{#1}{#3}
+    \end{frame}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\flautaBLoop}
+%    \begin{macrocode}
+\newcommand{\flautaBLoop}[3][spn]{
+    \vspace{7.4cm}
+    \begin{frame}{}
+        \begin{music}
+            \resetlyrics
+            \loppDelyrics{#3}
+            \lyrraise{1}{b-2ex}
+            \assignlyrics{1}{scale}
+            
+            \startextract
+                \espacioNotas{#2}{#3}
+            \endextract
+            
+        \end{music}
+        \loppDeInstrumentoFlautaB{#1}{#3}
+    \end{frame}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\quenaLoop}
+%    \begin{macrocode}
+\newcommand{\quenaLoop}[3][sol]{
+    \vspace{4.2cm}
+    \begin{frame}{}
+        \begin{music}
+            \resetlyrics
+            \loppDelyrics{#3}
+            \lyrraise{1}{b-2ex}
+            \assignlyrics{1}{scale}
+            
+            \startextract
+                \espacioNotas{#2}{#3}
+            \endextract
+            
+        \end{music}
+        \loppDeInstrumentoQuena{#1}{#3}
+    \end{frame}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\pinkulloLoop}
+%    \begin{macrocode}
+\newcommand{\pinkulloLoop}[3][la]{
+    \vspace{3.8cm}
+    \begin{frame}{}
+        \begin{music}
+            \resetlyrics
+            \loppDelyrics{#3}
+            \lyrraise{1}{b-2ex}
+            \assignlyrics{1}{scale}
+            
+            \startextract
+                \espacioNotas{#2}{#3}
+            \endextract
+            
+        \end{music}
+        \loppDeInstrumentoPinkullo{#1}{#3}
+    \end{frame}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\saxofonLoop}
+%    \begin{macrocode}
+\newcommand{\saxofonLoop}[3][las]{
+    \vspace{4.4cm}
+    \begin{frame}{}
+        \begin{music}
+            \resetlyrics
+            \loppDelyrics{#3}
+            \lyrraise{1}{b-2ex}
+            \assignlyrics{1}{scale}
+            
+            \startextract
+                \espacioNotas{#2}{#3}
+            \endextract
+            
+        \end{music}
+        \loppDeInstrumentoSaxofon{#1}{#3}
+    \end{frame}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+
+%
+% \iffalse
+%</package>
+% \fi
+%
+% \Finale
+\endinput