texlive[69613] Master: undar-digitacion (27jan24)
commits+karl at tug.org
commits+karl at tug.org
Sat Jan 27 22:02:34 CET 2024
Revision: 69613
https://tug.org/svn/texlive?view=revision&revision=69613
Author: karl
Date: 2024-01-27 22:02:33 +0100 (Sat, 27 Jan 2024)
Log Message:
-----------
undar-digitacion (27jan24)
Modified Paths:
--------------
trunk/Master/tlpkg/bin/tlpkg-ctan-check
trunk/Master/tlpkg/libexec/ctan2tds
trunk/Master/tlpkg/tlpsrc/collection-music.tlpsrc
Added Paths:
-----------
trunk/Master/texmf-dist/doc/latex/undar-digitacion/
trunk/Master/texmf-dist/doc/latex/undar-digitacion/README.md
trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.pdf
trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.tex
trunk/Master/texmf-dist/source/latex/undar-digitacion/
trunk/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx
trunk/Master/texmf-dist/tex/latex/undar-digitacion/
trunk/Master/texmf-dist/tex/latex/undar-digitacion/undar-digitacion.sty
trunk/Master/tlpkg/tlpsrc/undar-digitacion.tlpsrc
Added: trunk/Master/texmf-dist/doc/latex/undar-digitacion/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/latex/undar-digitacion/README.md (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/undar-digitacion/README.md 2024-01-27 21:02:33 UTC (rev 69613)
@@ -0,0 +1,45 @@
+# A package for musical fingering diagrams of the Pinkullo Huanuqueño, Flute, Quena and Saxophone in LaTeX
+
+## Version 0.0
+
+This package is used for musical fingering diagrams of
+the Pinkullo Huanuqueño, Flute, Quena and Saxophone using LaTeX.
+The package provide tools for generating
+
+- Pinkullo Huanuqueño
+- Flute
+- Quena
+- Saxophone
+
+The result will often be a PDF (or set of PDFs) that contain everything
+one will need for musical fingering diagrams of the Pinkullo Huanuqueño, Flute, Quena and Saxophone.
+
+- The package uses [TikZ](https://github.com/pgf-tikz/pgf) for most
+ things.
+- The package uses [MusiXTeX](https://github.com/davidfritzsche/musixtex) for music
+ symbols.
+
+## Sources
+
+The sources of the package are kept at CTAN
+
+## Download from CTAN
+
+The package is available from
+[CTAN](https://ctan.org/). The package is part of the
+CTAN distribution [TeXLive](https://tug.org/texlive/index.html).
+
+## Documentation
+
+See the [documentation](undar-digitacion_doc) page.
+
+## Copyright and license
+
+(c) 2024 Aland Bravo Vecorena, Fredy Romulo Marcellini Morales,
+Roberto Carlos Cardenas Viviano, Felix Hipolito Echevarria Ramirez
+
+This work is licensed under the Creative Commons Attribution-ShareAlike
+4.0 International License (CC-BY-SA-4.0). To view a copy of this
+license, visit [CC](http://creativecommons.org/licenses/by-sa/4.0/) or
+send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042,
+USA.
\ No newline at end of file
Property changes on: trunk/Master/texmf-dist/doc/latex/undar-digitacion/README.md
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.pdf 2024-01-27 20:58:30 UTC (rev 69612)
+++ trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.pdf 2024-01-27 21:02:33 UTC (rev 69613)
Property changes on: trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.tex 2024-01-27 21:02:33 UTC (rev 69613)
@@ -0,0 +1,834 @@
+\documentclass[11pt,a4paper]{scrartcl}
+\usepackage[spanish,english]{babel}
+\usepackage{undar-digitacion}
+\usepackage{datetime}
+\newdate{fecha}{26}{01}{2024}
+
+\title{Package User Manual \\ \texttt{undar-digitacion}}
+\author{Bravo Vecorena, Aland \and Marcellini Morales, Fredy Romulo \and Cárdenas Viviano, Roberto Carlos \and Echevarría Ramírez, Félix Hipólito}
+\date{\displaydate{fecha}}
+
+\begin{document}
+
+\maketitle
+
+\section{Usage}
+ The package use the following syntax:
+ \begin{itemize}
+ \item \verb|\flauta|: Double Hole Recorder (Flute)
+ \item \verb|\flautaB|: Single Hole Recorder (Flute)
+ \item \verb|\quena|: Quena
+ \item \verb|\pinkullo|: Pinkullo Huanuqueño
+ \item \verb|\saxofon|: Saxophone
+ \end{itemize}
+
+
+ All these commands use three optional and two mandatory parameters.
+
+ \subsection{Mandatory Parameters of Main Commands}
+ The mandatory parameters are: Musical Note and Octave (including accidentals and variants). The first required parameter is the note name:
+
+ \begin{itemize}
+ \item \verb|C|: Note do (Latin)
+ \item \verb|D|: Note re (Latin)
+ \item \verb|E|: Note mi (Latin)
+ \item \verb|F|: Note fa (Latin)
+ \item \verb|G|: Note sol (Latin)
+ \item \verb|A|: Note la (Latin)
+ \item \verb|B|: Note si (Latin)
+ \end{itemize}
+
+ The second mandatory parameter is the octave (first letter), accidentals (second letter) and variant position of the instrument for same note (third letter).
+
+ \begin{itemize}
+ \item Octave can be: 3, 4, 5 or 6
+ \item Accidentals can be: empty (natural), b (flat), B (double flat), s (sharp), S (double sharp)
+ \item Variant can be empty by default (for notes that do not have variants in instrument) or the number of the variant to be used: 2, 3 or 4.
+ \end{itemize}
+ Command examples:
+ \begin{itemize}
+ \item \verb|\flauta{C}{4}| This shows a figure of Double Hole Recorder (Flute) showing the position of fingering to play the C note in the 4th octave.
+ \item \verb|\flauta{D}{4b}| This shows a figure of Double Hole Recorder (Flute) showing the position of fingering to play the D flat note in the 4th octave.
+ \item \verb|\flauta{C}{5s2}| This shows a figure of Double Hole Recorder (Flute) showing the second variant fingering position for playing the note C sharp in the 5th octave.
+ \end{itemize}
+ This command contains an internal command \verb|\zcharnote| so for it to work correctly it is important to place it before specifying the note in Musixtex.\\
+ Command usage example:\par
+ \verb||\par
+ \verb|\begin{frame}{}| \par
+ \verb| \begin{music}| \par
+ \verb| \startextract| \par
+ \verb| \NOTEs| \par
+ \verb| \saxofon{B}{5}\wh{p}| \par
+ \verb| \en| \par
+ \verb| \endextract| \par
+ \verb| \end{music}| \par
+ \verb|\end{frame}| \par
+ \verb||\par
+ \begin{frame}{}
+ \begin{music}
+ \startextract
+ \NOTEs
+ \saxofon[las][-48]{B}{5}\wh{p}
+ \en
+ \endextract
+ \end{music}
+ \end{frame}
+ \verb||\par
+
+ \subsection{Optional Parameters of Main Commands}
+ Optional parameters are: Instrument tuning, vertical position and horizontal position. They are specified in that order respectively.
+ In optional parameter: instrument tuning, for this current package version, are available the following configurations:
+
+ \begin{itemize}
+ \item Para \verb|\flauta| and \verb|\flautaB|: spn(soprano by default), spnn(sopranino)
+ \item Para \verb|\quena|: sol (by default), la, fa and re
+ \item Para \verb|\pinkullo|: la (by default), sib (si flat) and si
+ \item Para \verb|\saxofon|: applies to any tuning
+ \end{itemize}
+ Keep in mind that the tunings of the Saxophones: Soprano, Alto, Tenor, Baritone Saxophone, etc. they all have the same fingering.
+ By default the vertical position parameter of the figure have the following values:
+ \begin{itemize}
+ \item For \verb|\flauta| and \verb|\flautaB|: -88
+ \item For \verb|\quena|: -60
+ \item For \verb|\pinkullo|: -48
+ \item For \verb|\saxofon|: -62
+ \end{itemize}
+ The default horizontal position is 0.5 so that the figure appears in the middle of the note. Command examples with default parameters:
+ \begin{itemize}
+ \item \verb|\flauta[spnn]{D}{5s2}| This would produce a figure of Double Hole Recorder showing the second variant of fingering for playing the note D sharp in the 5th octave in sopranino
+ \item \verb|\flauta[spnn][12]{C}{4}| This would produce a figure of Double Hole Recorder at the top of the score showing the position of fingering for playing the note C in the 4th octave in sopranino
+ \item \verb|\flauta[spnn][12][0]{D}{4b}| This would produce a figure of Double Hole Recorder at the top of the score, to the right of note and showing the position of fingering for playing the D flat note in the 4th octave in sopranino
+ \end{itemize}
+
+\section{Secondary Functions}
+ Secondary functions use the following commands:
+ \begin{itemize}
+ \item \verb|\flautaManual|, \verb|\flautaBManual|, \verb|\quenaManual|, \verb|\pinkulloManual|, \verb|\saxofonManual| (all of these work with \verb|\addTikz|)
+ \item \verb|\flautaId|, \verb|\flautaBId|, \verb|\quenaId|, \verb|\pinkulloId|, \verb|\saxofonId| (all of these work with \verb|\tikzmark|)
+ \item \verb|\flautaLoop|, \verb|\flautaBLoop|, \verb|\quenaLoop|, \verb|\pinkulloLoop|, \verb|\saxofonLoop|
+ \end{itemize}
+
+ \newpage
+ \subsection{Manual Functions}
+ These functions have the same purpose as the Main Commands, and handle the same optional and mandatory parameters, the difference is that these commands save a position with tikz and then call a function that inserts the instrument's figure in the saved position. It is useful to use \verb|\vspace| so that the figure does not overlap the text. Remember that you must have to enter the commands in the same order that you enter the \verb|\addTikz|. Command usage example:\par
+ \verb||\par
+ \verb|\vspace{7.4cm}| \par
+ \verb|\begin{frame}{}| \par
+ \verb| \begin{music}| \par
+ \verb| \startextract| \par
+ \verb| \NOTEs| \par
+ \verb| \addTikz\wh{p}| \par
+ \verb| \addTikz\wh{c}| \par
+ \verb| \en| \par
+ \verb| \endextract| \par
+ \verb| \end{music}| \par
+ \verb| \flautaManual{B}{5}| \par
+ \verb| \flautaManual{C}{4}| \par
+ \verb|\end{frame}| \par
+ \verb||\par
+ \vspace{7.4cm}
+ \begin{frame}{}
+ \begin{music}
+ \startextract
+ \NOTEs
+ \addTikz\wh{p}
+ \addTikz\wh{c}
+ \en
+ \endextract
+ \end{music}
+ \flautaManual{B}{5}
+ \flautaManual{C}{4}
+ \end{frame}
+ \verb||\par
+
+ \newpage
+ \subsection{Id Functions}
+ These functions have the same purpose as the Manual Functions, and handle the same optional parameters but have an identifier as additional mandatory parameter. The difference is that these commands save a position with tikz by inserting a unique identifier and then call a function which inserts the instrument figure into the saved position. It is important to also use \verb|\vspace| so that the figure does not overlap the text. With this command it is not necessary to keep an order, but it is important that the identifiers are not repeated and that the \verb|\tikzmark| and the command Id have the same identifier.\\
+ Command usage example:\par
+ \vspace{7.4cm}
+ \begin{frame}{}
+ \begin{music}
+ \startextract
+ \NOTEs
+ \tikzmark{a}\wh{p}
+ \tikzmark{b}\wh{c}
+ \en
+ \endextract
+ \end{music}
+ \flautaId{C}{4}{b}
+ \flautaId{B}{5}{a}
+ \end{frame}
+ \verb||\par
+ \verb|\vspace{7.4cm}| \par
+ \verb|\begin{frame}{}| \par
+ \verb| \begin{music}|\par
+ \verb| \startextract| \par
+ \verb| \NOTEs| \par
+ \verb| \tikzmark{a}\wh{p}| \par
+ \verb| \tikzmark{b}\wh{c}| \par
+ \verb| \en| \par
+ \verb| \endextract|\par
+ \verb| \end{music}| \par
+ \verb| \flautaId{C}{4}{b}| \par
+ \verb| \flautaId{B}{5}{a}| \par
+ \verb|\end{frame}| \par
+
+ \subsection{Loop Functions}
+ These functions summarize all the commands of the instruments and also of Musixtex so that with a single command you can create a complete score. What can be done with the command is quite limited but it can save a lot of time and space for situations in which simple scores are required.
+ It consists of one optional parameter and two mandatory parameters. The optional parameter is tuning of pitch, and the two required parameters are spacing and note list.
+ For spacing, the following are accepted: r(round), b(half note), n(quarter note), c(eighth note), sc(sixteenth note), f(fusa), sf(semi-fusa), g(scrawl).
+ The list of notes are separated by commas and each one consists of three elements separated by \verb|/|. The first element is the musical note, the second is the octave with the alterations and/or variations, and the third is the type of note, it admits the same as the spacing. \\
+ Command usage example:\\
+ \begin{itemize}
+ \item \verb|\flautaLoop{r}{C/4s/r,D/4/n}|
+ \end{itemize}
+ \flautaLoop{r}{C/4s/r,D/4/n}
+ \newpage
+ \begin{itemize}
+ \item \verb|\flautaLoop[spnn]{b}{C/5/b,D/5s/b,D/5s2/b}|
+ \end{itemize}
+ \flautaLoop[spnn]{b}{C/5/b,D/5s/b,D/5s2/b}
+
+ \newpage
+ \subsection{Additional functions}
+ \verb|\notaParaMusixtex| is a command that can help understand the score, it transforms a normal note into a note for Musixtex. It has four mandatory parameters: The note, the octave, the type of note (r, b, n, etc.), and accidentals. Command usage example:\par
+ \verb||\par
+ \verb|\begin{frame}{}| \par
+ \verb| \begin{music}| \par
+ \verb| \startextract| \par
+ \verb| \NOTEs| \par
+ \verb| \flauta{B}{5}\notaParaMusixtex{B}{5}{r}{}| \par
+ \verb| \flauta{C}{4s}\notaParaMusixtex{C}{4}{b}{s}| \par
+ \verb| \en| \par
+ \verb| \endextract| \par
+ \verb| \end{music}| \par
+ \verb|\end{frame}| \par
+ \verb||\par
+ \begin{frame}{}
+ \begin{music}
+ \startextract
+ \NOTEs
+ \lyricsoff
+ \flauta{B}{5}\notaParaMusixtex{B}{5}{r}{}
+ \flauta{C}{4s}\notaParaMusixtex{C}{4}{b}{s}
+ \en
+ \endextract
+ \end{music}
+ \end{frame}
+
+\section{Examples}
+ Below are some examples of fingering supported by the package.
+\subsection{Double Hole Soprano Recorder (Flute)}
+\begin{tikzpicture}[transform shape,scale=0.6]
+\draw (0,0) node {
+\hspace*{5em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{soprano1}{C\text{$_4$} C\text{\musSharp{}$_4$} D\text{\musFlat{}$_4$} D\text{$_4$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_4$} E\text{$_4$} F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{soprano2}{D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$} G\text{$_5$} G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$} D\text{\musFlat{}$_6$} D\text{$_6$}}% added for hand indication
+ \setsongraise2{-2mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{2}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setclef20
+ \setclef10
+ \songtop{2}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{18}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{soprano2}% added to place handindication
+ \A\assignlyrics2{soprano1}% added to place handindication
+ \NOtes\flauta[spn]{D}{5}\wh{k}&\flauta[spn][12]{C}{4}\wh{c}\en\bar
+ \NOtes\flauta[spn]{D}{5s}\wh{^k}\qsk\flauta[spn]{E}{5b}\wh{_l}&\flauta[spn][12]{C}{4s}\wh{^c}\qsk\flauta[spn][12]{D}{4b}\wh{_d}\en\bar
+ \NOtes\hsk\flauta[spn]{E}{5}\wh{l}&\hsk\flauta[spn][12]{D}{4}\wh{d}\en\bar
+ \NOtes\flauta[spn]{F}{5}\wh{m}&\flauta[spn][12]{D}{4s}\wh{^d}\qsk\flauta[spn][12]{E}{4b}\wh{_e}\en\bar
+ \NOtes\flauta[spn]{F}{5s}\wh{^m}\qsk\flauta[spn]{G}{5b}\wh{_n}&\hsk\flauta[spn][12]{E}{4}\wh{e}\en\bar
+ \NOtes\hsk\flauta[spn]{G}{5}\wh{n}&\hsk\flauta[spn][12]{F}{4}\wh{f}\en\bar
+ \NOtes\hsk\flauta[spn]{G}{5s}\wh{^n}\qsk\flauta[spn]{A}{5b}\wh{_o}&\hsk\flauta[spn][12]{F}{4s}\wh{^f}\qsk\flauta[spn][12]{G}{4b}\wh{_g}\en\bar
+ \NOtes\hsk\flauta[spn]{A}{5}\wh{o}&\hsk\flauta[spn][12]{G}{4}\wh{g}\en\bar
+ \NOtes\flauta[spn]{A}{5s}\wh{^o}\qsk\flauta[spn]{B}{5b}\wh{_p}&\flauta[spn][12]{G}{4s}\wh{^g}\qsk\flauta[spn][12]{A}{4b}\wh{_h}\en\bar
+ \NOtes\hsk\flauta[spn]{B}{5}\wh{p}&\hsk\flauta[spn][12]{A}{4}\wh{h}\en\bar
+ \NOtes\hsk\flauta[spn]{C}{6}\wh{q}&\flauta[spn][12]{A}{4s}\wh{^h}\qsk\flauta[spn][12]{B}{4b}\wh{_i}\en\bar
+ \NOtes\flauta[spn]{C}{6s}\wh{^q}\qsk\flauta[spn]{D}{6b}\wh{_r}&\hsk\flauta[spn][12]{B}{4}\wh{i}\en\bar
+ \NOtes\hsk\flauta[spn]{D}{6}\wh{r}&\hsk\flauta[spn][12]{C}{5}\wh{j}\en\bar
+ \NOtes\hsk&\flauta[spn][12]{C}{5s}\wh{^j}\qsk\flauta[spn][12]{D}{5b}\wh{_k}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\newpage
+
+\subsection{Double Hole Sopranino Recorder (Flute)}
+\begin{tikzpicture}[transform shape,scale=0.6]
+\draw (0,0) node {
+\hspace*{5em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{sopranino1}{F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$} D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{sopranino2}{G\text{$_5$} G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$} D\text{\musFlat{}$_6$} D\text{$_6$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_6$} E\text{$_6$} F\text{$_6$} F\text{\musSharp{}$_6$} G\text{\musFlat{}$_6$} G\text{$_6$}}% added for hand indication
+ \setsongraise2{-2mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{2}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setclef20
+ \setclef10
+ \songtop{2}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{18}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{sopranino2}% added to place handindication
+ \A\assignlyrics2{sopranino1}% added to place handindication
+ \NOtes\flauta[spnn]{G}{5}\wh{n}&\flauta[spnn][13]{F}{4}\wh{f}\en\bar
+ \NOtes\flauta[spnn]{G}{5s}\wh{^n}\qsk\flauta[spnn]{A}{5b}\wh{_o}&\flauta[spnn][13]{F}{4s}\wh{^f}\qsk\flauta[spnn][13]{G}{4b}\wh{_g}\en\bar
+ \NOtes\hsk\flauta[spnn]{A}{5}\wh{o}&\hsk\flauta[spnn][13]{G}{4}\wh{g}\en\bar
+ \NOtes\flauta[spnn]{A}{5s}\wh{^o}\qsk\flauta[spnn]{B}{5b}\wh{_p}&\flauta[spnn][13]{G}{4s}\wh{^g}\qsk\flauta[spnn][13]{A}{4b}\wh{_h}\en\bar
+ \NOtes\hsk\flauta[spnn]{B}{5}\wh{p}&\hsk\flauta[spnn][13]{A}{4}\wh{h}\en\bar
+ \NOtes\hsk\flauta[spnn]{C}{6}\wh{q}&\flauta[spnn][13]{A}{4s}\wh{^h}\qsk\flauta[spnn][13]{B}{4b}\wh{_i}\en\bar
+ \NOtes\hsk\flauta[spnn]{C}{6s}\wh{^q}\qsk\flauta[spnn]{D}{6b}\wh{_r}&\hsk\flauta[spnn][13]{B}{4}\wh{i}\en\bar
+ \NOtes\hsk\flauta[spnn]{D}{6}\wh{r}&\hsk\flauta[spnn][13]{C}{5}\wh{j}\en\bar
+ \NOtes\flauta[spnn]{D}{6s}\wh{^r}\qsk\flauta[spnn]{E}{6b}\wh{_s}&\flauta[spnn][13]{C}{5s}\wh{^j}\qsk\flauta[spnn][13]{D}{5b}\wh{_k}\en\bar
+ \NOtes\hsk\flauta[spnn]{E}{6}\wh{s}&\hsk\flauta[spnn][13]{D}{5}\wh{k}\en\bar
+ \NOtes\hsk\flauta[spnn]{F}{6}\wh{t}&\flauta[spnn][13]{D}{5s}\wh{^k}\qsk\flauta[spnn][13]{E}{5b}\wh{_l}\en\bar
+ \NOtes\flauta[spnn]{F}{6s}\wh{^t}\qsk\flauta[spnn]{G}{6b}\wh{_u}&\hsk\flauta[spnn][13]{E}{5}\wh{l}\en\bar
+ \NOtes\hsk\flauta[spnn]{G}{6}\wh{u}&\hsk\flauta[spnn][13]{F}{5}\wh{m}\en\bar
+ \NOtes\hsk&\flauta[spnn][13]{F}{5s}\wh{^m}\qsk\flauta[spnn][13]{G}{5b}\wh{_n}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\newpage
+
+\subsection{Single Hole Soprano Recorder (Flute)}
+\begin{tikzpicture}[transform shape,scale=0.6]
+\draw (0,0) node {
+\hspace*{5em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{soprano1}{C\text{$_4$} C\text{\musSharp{}$_4$} D\text{\musFlat{}$_4$} D\text{$_4$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_4$} E\text{$_4$} F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{soprano2}{D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$} G\text{$_5$} G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$} D\text{\musFlat{}$_6$} D\text{$_6$}}% added for hand indication
+ \setsongraise2{-2mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{2}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setclef20
+ \setclef10
+ \songtop{2}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{18}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{soprano2}% added to place handindication
+ \A\assignlyrics2{soprano1}% added to place handindication
+ \NOtes\flautaB[spn]{D}{5}\wh{k}&\flautaB[spn][12]{C}{4}\wh{c}\en\bar
+ \NOtes\flautaB[spn]{D}{5s}\wh{^k}\qsk\flautaB[spn]{E}{5b}\wh{_l}&\flautaB[spn][12]{C}{4s}\wh{^c}\qsk\flautaB[spn][12]{D}{4b}\wh{_d}\en\bar
+ \NOtes\hsk\flautaB[spn]{E}{5}\wh{l}&\hsk\flautaB[spn][12]{D}{4}\wh{d}\en\bar
+ \NOtes\flautaB[spn]{F}{5}\wh{m}&\flautaB[spn][12]{D}{4s}\wh{^d}\qsk\flautaB[spn][12]{E}{4b}\wh{_e}\en\bar
+ \NOtes\flautaB[spn]{F}{5s}\wh{^m}\qsk\flautaB[spn]{G}{5b}\wh{_n}&\hsk\flautaB[spn][12]{E}{4}\wh{e}\en\bar
+ \NOtes\hsk\flautaB[spn]{G}{5}\wh{n}&\hsk\flautaB[spn][12]{F}{4}\wh{f}\en\bar
+ \NOtes\hsk\flautaB[spn]{G}{5s}\wh{^n}\qsk\flautaB[spn]{A}{5b}\wh{_o}&\hsk\flautaB[spn][12]{F}{4s}\wh{^f}\qsk\flautaB[spn][12]{G}{4b}\wh{_g}\en\bar
+ \NOtes\hsk\flautaB[spn]{A}{5}\wh{o}&\hsk\flautaB[spn][12]{G}{4}\wh{g}\en\bar
+ \NOtes\flautaB[spn]{A}{5s}\wh{^o}\qsk\flautaB[spn]{B}{5b}\wh{_p}&\flautaB[spn][12]{G}{4s}\wh{^g}\qsk\flautaB[spn][12]{A}{4b}\wh{_h}\en\bar
+ \NOtes\hsk\flautaB[spn]{B}{5}\wh{p}&\hsk\flautaB[spn][12]{A}{4}\wh{h}\en\bar
+ \NOtes\hsk\flautaB[spn]{C}{6}\wh{q}&\flautaB[spn][12]{A}{4s}\wh{^h}\qsk\flautaB[spn][12]{B}{4b}\wh{_i}\en\bar
+ \NOtes\flautaB[spn]{C}{6s}\wh{^q}\qsk\flautaB[spn]{D}{6b}\wh{_r}&\hsk\flautaB[spn][12]{B}{4}\wh{i}\en\bar
+ \NOtes\hsk\flautaB[spn]{D}{6}\wh{r}&\hsk\flautaB[spn][12]{C}{5}\wh{j}\en\bar
+ \NOtes\hsk&\flautaB[spn][12]{C}{5s}\wh{^j}\qsk\flautaB[spn][12]{D}{5b}\wh{_k}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\newpage
+
+\subsection{Single Hole Sopranino Recorder (Flute)}
+\begin{tikzpicture}[transform shape,scale=0.6]
+\draw (0,0) node {
+\hspace*{5em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{sopranino1}{F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$} D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{sopranino2}{G\text{$_5$} G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$} D\text{\musFlat{}$_6$} D\text{$_6$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_6$} E\text{$_6$} F\text{$_6$} F\text{\musSharp{}$_6$} G\text{\musFlat{}$_6$} G\text{$_6$}}% added for hand indication
+ \setsongraise2{-2mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{2}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setclef20
+ \setclef10
+ \songtop{2}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{18}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{sopranino2}% added to place handindication
+ \A\assignlyrics2{sopranino1}% added to place handindication
+ \NOtes\flautaB[spnn]{G}{5}\wh{n}&\flautaB[spnn][13]{F}{4}\wh{f}\en\bar
+ \NOtes\flautaB[spnn]{G}{5s}\wh{^n}\qsk\flautaB[spnn]{A}{5b}\wh{_o}&\flautaB[spnn][13]{F}{4s}\wh{^f}\qsk\flautaB[spnn][13]{G}{4b}\wh{_g}\en\bar
+ \NOtes\hsk\flautaB[spnn]{A}{5}\wh{o}&\hsk\flautaB[spnn][13]{G}{4}\wh{g}\en\bar
+ \NOtes\flautaB[spnn]{A}{5s}\wh{^o}\qsk\flautaB[spnn]{B}{5b}\wh{_p}&\flautaB[spnn][13]{G}{4s}\wh{^g}\qsk\flautaB[spnn][13]{A}{4b}\wh{_h}\en\bar
+ \NOtes\hsk\flautaB[spnn]{B}{5}\wh{p}&\hsk\flautaB[spnn][13]{A}{4}\wh{h}\en\bar
+ \NOtes\hsk\flautaB[spnn]{C}{6}\wh{q}&\flautaB[spnn][13]{A}{4s}\wh{^h}\qsk\flautaB[spnn][13]{B}{4b}\wh{_i}\en\bar
+ \NOtes\hsk\flautaB[spnn]{C}{6s}\wh{^q}\qsk\flautaB[spnn]{D}{6b}\wh{_r}&\hsk\flautaB[spnn][13]{B}{4}\wh{i}\en\bar
+ \NOtes\hsk\flautaB[spnn]{D}{6}\wh{r}&\hsk\flautaB[spnn][13]{C}{5}\wh{j}\en\bar
+ \NOtes\flautaB[spnn]{D}{6s}\wh{^r}\qsk\flautaB[spnn]{E}{6b}\wh{_s}&\flautaB[spnn][13]{C}{5s}\wh{^j}\qsk\flautaB[spnn][13]{D}{5b}\wh{_k}\en\bar
+ \NOtes\hsk\flautaB[spnn]{E}{6}\wh{s}&\hsk\flautaB[spnn][13]{D}{5}\wh{k}\en\bar
+ \NOtes\hsk\flautaB[spnn]{F}{6}\wh{t}&\flautaB[spnn][13]{D}{5s}\wh{^k}\qsk\flautaB[spnn][13]{E}{5b}\wh{_l}\en\bar
+ \NOtes\flautaB[spnn]{F}{6s}\wh{^t}\qsk\flautaB[spnn]{G}{6b}\wh{_u}&\hsk\flautaB[spnn][13]{E}{5}\wh{l}\en\bar
+ \NOtes\hsk\flautaB[spnn]{G}{6}\wh{u}&\hsk\flautaB[spnn][13]{F}{5}\wh{m}\en\bar
+ \NOtes\hsk&\flautaB[spnn][13]{F}{5s}\wh{^m}\qsk\flautaB[spnn][13]{G}{5b}\wh{_n}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\newpage
+
+\subsection{Pinkullo Huanuqueño in A}
+\begin{tikzpicture}[transform shape,scale=0.6]
+\draw (0,0) node {
+\hspace*{10em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{pinkulloA2}{A\text{$_3$} B\text{\musFlat{}$_3$} C\text{$_4$} D\text{$_4$} E\text{$_4$} A\text{$_4$} B\text{\musFlat{}$_4$} C\text{$_5$} D\text{$_5$}
+ E\text{$_5$} F\text{$_5$} G\text{$_5$} A\text{$_5$} B\text{\musFlat{}$_5$} C\text{$_6$} D\text{$_6$} E\text{$_6$} F\text{\musSharp{}$_6$}}% added for hand indication
+ \setsongraise1{-3mm}
+ \nobarnumbers
+ \hsize=\linewidth
+ \startextract
+ \A\assignlyrics1{pinkulloA2}
+ \NOtes%\zcharnote u{\addTres{BbG}{blue}}%
+ \pinkullo{A}{3}\wh{a}\en\bar%
+ \NOtes%\zcharnote u{\addDos{CbG}{blue}}%
+ \pinkullo{B}{3b}\wh{_b}\en\bar%
+ \NOtes%\zcharnote u{\addUno{DbG}{blue}}%
+ \pinkullo{C}{4}\wh{c}\en\bar%
+ \NOtes%\zcharnote u{\addCero{EbG}{blue}}%
+ \pinkullo{D}{4}\wh{d}\en\bar%
+ \NOtes%\zcharnote u{\addCuatro{GbG}{blue}}%
+ \pinkullo{E}{4}\wh{e}\en\bar%
+ \NOtes%\zcharnote u{\addTres{BbG}{blue}}%
+ \pinkullo{A}{4}\wh{h}\en\bar%
+ \NOtes%\zcharnote u{\addDos{CbG}{blue}}%
+ \pinkullo{B}{4b}\wh{_i}\en\bar%
+ \NOtes%\zcharnote w{\addUno{DbG}{blue}}%
+ \pinkullo{C}{5}\wh{j}\en\bar%
+ \NOtes%\zcharnote w{\addCero{EbG}{blue}}%
+ \pinkullo{D}{5}\wh{k}\en\bar%
+ \NOtes%\zcharnote w{\addTres{CbG}{blue}}%
+ \pinkullo{E}{5}\wh{l}\en\bar%
+ \NOtes%\zcharnote w{\addDos{DbG}{blue}}%
+ \pinkullo{F}{5}\wh{m}\en\bar%
+ \NOtes%\zcharnote w{\addUno{CbG}{blue}}%
+ \pinkullo{G}{5}\wh{n}\en\bar%
+ \NOtes%\zcharnote w{\addTres{BbG}{blue}}%
+ \pinkullo{A}{5}\wh{o}\en\bar%
+ \NOtes%\zcharnote w{\addDos{CbG}{blue}}%
+ \pinkullo{B}{5b}\wh{_p}\en\bar%
+ \NOtes%\zcharnote z{\addUno{DbG}{blue}}%
+ \pinkullo{C}{6}\wh{q}\en\bar%
+ \NOtes%\zcharnote z{\addUnoA{EbG}{blue}}%
+ \pinkullo{D}{6}\wh{r}\en\bar%
+ \NOtes%\zcharnote z{\addDosA{EbG}{blue}}%
+ \pinkullo{E}{6}\wh{s}\en\bar%
+ \NOtes%\zcharnote z{\addCero{EbG}{blue}}%
+ \pinkullo{F}{6s}\wh{^t}\en%\bar%
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\subsection{Pinkullo Huanuqueño in Bb}
+\begin{tikzpicture}[transform shape,scale=0.6]
+ \draw (0,0) node {
+\hspace*{10em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{pinkulloBb2}{B\text{\musFlat{}$_3$} C\text{\musFlat{}$_4$} D\text{\musFlat{}$_4$} E\text{\musFlat{}$_4$} F\text{$_4$} B\text{\musFlat{}$_4$} C\text{\musFlat{}$_4$} D\text{\musFlat{}$_5$}
+ E\text{\musFlat{}$_5$} F\text{$_5$} G\text{\musFlat{}$_5$} A\text{\musFlat{}$_5$} B\text{\musFlat{}$_5$} C\text{\musFlat{}$_5$} D\text{\musFlat{}$_6$} E\text{\musFlat{}$_6$} F\text{$_6$} G\text{$_6$}}% added for hand indication
+ \setsongraise1{-3mm}
+ \nobarnumbers
+ \hsize=\linewidth
+ \startextract
+ \A\assignlyrics1{pinkulloBb2}
+ \NOtes%\zcharnote u{\addTres{BbG}{blue}}%
+ \pinkullo[sib]{B}{3b}\wh{_b}\en\bar%
+ \NOtes%\zcharnote u{\addDos{CbG}{blue}}%
+ \pinkullo[sib]{C}{4b}\wh{_c}\en\bar%
+ \NOtes%\zcharnote u{\addUno{DbG}{blue}}%
+ \pinkullo[sib]{D}{4b}\wh{_d}\en\bar%
+ \NOtes%\zcharnote u{\addCero{EbG}{blue}}%
+ \pinkullo[sib]{E}{4b}\wh{_e}\en\bar%
+ \NOtes%\zcharnote u{\addCuatro{GbG}{blue}}%
+ \pinkullo[sib]{F}{4}\wh{f}\en\bar%
+ \NOtes%\zcharnote u{\addTres{BbG}{blue}}%
+ \pinkullo[sib]{B}{4b}\wh{_i}\en\bar%
+ \NOtes%\zcharnote u{\addDos{CbG}{blue}}%
+ \pinkullo[sib]{C}{5b}\wh{_j}\en\bar%
+ \NOtes%\zcharnote w{\addUno{DbG}{blue}}%
+ \pinkullo[sib]{D}{5b}\wh{_k}\en\bar%
+ \NOtes%\zcharnote w{\addCero{EbG}{blue}}%
+ \pinkullo[sib]{E}{5b}\wh{_l}\en\bar%
+ \NOtes%\zcharnote w{\addTres{CbG}{blue}}%
+ \pinkullo[sib]{F}{5}\wh{m}\en\bar%
+ \NOtes%\zcharnote w{\addDos{DbG}{blue}}%
+ \pinkullo[sib]{G}{5b}\wh{_n}\en\bar%
+ \NOtes%\zcharnote w{\addUno{CbG}{blue}}%
+ \pinkullo[sib]{A}{5b}\wh{_o}\en\bar%
+ \NOtes%\zcharnote w{\addTres{BbG}{blue}}%
+ \pinkullo[sib]{B}{5b}\wh{_p}\en\bar%
+ \NOtes%\zcharnote w{\addDos{CbG}{blue}}%
+ \pinkullo[sib]{C}{6b}\wh{_q}\en\bar%
+ \NOtes%\zcharnote z{\addUno{DbG}{blue}}%
+ \pinkullo[sib]{D}{6b}\wh{_r}\en\bar%
+ \NOtes%\zcharnote z{\addUnoA{EbG}{blue}}%
+ \pinkullo[sib]{E}{6b}\wh{_s}\en\bar%
+ \NOtes%\zcharnote z{\addDosA{EbG}{blue}}%
+ \pinkullo[sib]{F}{6}\wh{t}\en\bar%
+ \NOtes%\zcharnote z{\addCero{EbG}{blue}}%
+ \pinkullo[sib]{G}{6}\wh{u}\en%\bar%
+ \endextract
+ \end{music}};%
+\end{tikzpicture}
+
+\subsection{Pinkullo Huanuqueño in B}
+\begin{tikzpicture}[transform shape,scale=0.6]
+ \draw (0,0) node {
+ \hspace*{10em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{pinkulloB2}{B\text{$_3$} C\text{$_4$} D\text{$_4$} E\text{$_4$} F\text{\musSharp{}$_4$} B\text{$_4$} C\text{$_5$} D\text{$_5$}
+ E\text{$_5$} F\text{\musSharp{}$_5$} G\text{$_5$} A\text{$_5$} B\text{$_5$} C\text{$_6$} D\text{$_6$} E\text{$_6$} F\text{\musSharp{}$_6$} G\text{\musSharp{}$_6$}}% added for hand indication
+ \setsongraise1{-3mm}
+ \nobarnumbers
+ \hsize=\linewidth
+ \startextract
+ \A\assignlyrics1{pinkulloB2}
+ \NOtes%\zcharnote u{\addTres{BbG}{blue}}%
+ \pinkullo[si]{B}{3}\wh{b}\en\bar%
+ \NOtes%\zcharnote u{\addDos{CbG}{blue}}%
+ \pinkullo[si]{C}{4}\wh{c}\en\bar%
+ \NOtes%\zcharnote u{\addUno{DbG}{blue}}%
+ \pinkullo[si]{D}{4}\wh{d}\en\bar%
+ \NOtes%\zcharnote u{\addCero{EbG}{blue}}%
+ \pinkullo[si]{E}{4}\wh{e}\en\bar%
+ \NOtes%\zcharnote u{\addCuatro{GbG}{blue}}%
+ \pinkullo[si]{F}{4s}\wh{^f}\en\bar%
+ \NOtes%\zcharnote u{\addTres{BbG}{blue}}%
+ \pinkullo[si]{B}{4}\wh{i}\en\bar%
+ \NOtes%\zcharnote u{\addDos{CbG}{blue}}%
+ \pinkullo[si]{C}{5}\wh{j}\en\bar%
+ \NOtes%\zcharnote w{\addUno{DbG}{blue}}%
+ \pinkullo[si]{D}{5}\wh{k}\en\bar%
+ \NOtes%\zcharnote w{\addCero{EbG}{blue}}%
+ \pinkullo[si]{E}{5}\wh{l}\en\bar%
+ \NOtes%\zcharnote w{\addTres{CbG}{blue}}%
+ \pinkullo[si]{F}{5s}\wh{^m}\en\bar%
+ \NOtes%\zcharnote w{\addDos{DbG}{blue}}%
+ \pinkullo[si]{G}{5}\wh{n}\en\bar%
+ \NOtes%\zcharnote w{\addUno{CbG}{blue}}%
+ \pinkullo[si]{A}{5}\wh{o}\en\bar%
+ \NOtes%\zcharnote w{\addTres{BbG}{blue}}%
+ \pinkullo[si]{B}{5}\wh{p}\en\bar%
+ \NOtes%\zcharnote w{\addDos{CbG}{blue}}%
+ \pinkullo[si]{C}{6}\wh{q}\en\bar%
+ \NOtes%\zcharnote z{\addUno{DbG}{blue}}%
+ \pinkullo[si]{D}{6}\wh{r}\en\bar%
+ \NOtes%\zcharnote z{\addUnoA{EbG}{blue}}%
+ \pinkullo[si]{E}{6}\wh{s}\en\bar%
+ \NOtes%\zcharnote z{\addDosA{EbG}{blue}}%
+ \pinkullo[si]{F}{6s}\wh{^t}\en\bar%
+ \NOtes%\zcharnote z{\addCero{EbG}{blue}}%
+ \pinkullo[si]{G}{6s}\wh{^u}\en%\bar%
+ \endextract
+ \end{music}};%
+\end{tikzpicture}
+
+\newpage
+\subsection{Quena in A}
+\begin{tikzpicture}[transform shape,scale=0.6]
+ \draw (0,0) node {
+\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{quena1}{A\text{$_3$} A\text{\musSharp{}$_3$} B\text{\musFlat{}$_3$} B\text{$_3$} C\text{$_4$} C\text{\musSharp{}$_4$} D\text{\musFlat{}$_4$} D\text{$_4$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_4$} E\text{$_4$} F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$}}% added for hand indication
+ \setsongraise1{2mm}
+ \setlyrics{quena2}{A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$} D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$} G\text{$_5$}
+ G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$}}% added for hand indication
+ \setsongraise2{26mm}
+ \setlyrics{quena3}{A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$}
+ D\text{\musFlat{}$_6$} D\text{$_6$} D\text{\musSharp{}$_6$} E\text{\musFlat{}$_6$} E\text{$_6$} F\text{$_6$}
+ F\text{\musSharp{}$_6$} G\text{\musFlat{}$_6$} G\text{$_6$} G\text{\musSharp{}$_6$}
+ A\text{$_6$}}% added for hand indication
+ \setsongraise3{-4mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{3}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setstaffs3{1}
+ \setclef30
+ \setclef20
+ \setclef10
+ \songtop{3}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{38}%Distancia entre sistemas del pentagrama
+ \setinterstaff{2}{36}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{quena3}% added to place handindication
+ \A\assignlyrics2{quena2}% added to place handindication
+ \A\assignlyrics3{quena1}% added to place handindication
+ \NOtes\quena[la][21]{A}{5}\wh{o}&\quena[la][15]{A}{4}\wh{h}&\quena[la][12]{A}{3}\wh{a}\en\bar
+ \NOtes\hsk\quena[la][21]{A}{5s}\wh{^o}\qsk\quena[la][21]{B}{5b}\wh{_p}&\hsk\quena[la][15]{A}{4s}\wh{^h}\qsk\quena[la][15]{B}{4b}\wh{_i}&\hsk\quena[la][12]{A}{3s}\wh{^a}\qsk\quena[la][12]{B}{3b}\wh{_b}\en\bar
+ \NOtes\hsk\quena[la][21]{B}{5}\wh{p}&\hsk\quena[la][15]{B}{4}\wh{i}&\hsk\quena[la][12]{B}{3}\wh{b}\en\bar
+ \NOtes\hsk\quena[la][21]{C}{6}\wh{q}&\hsk\quena[la][15]{C}{5}\wh{j}&\hsk\quena[la][12]{C}{4}\wh{c}\en\bar
+ \NOtes\hsk\quena[la][21]{C}{6s}\wh{^q}\qsk\quena[la][21]{D}{6b}\wh{_r}&\hsk\quena[la][15]{C}{5s}\wh{^j}\qsk\quena[la][15]{D}{5b}\wh{_k}&\hsk\quena[la][12]{C}{4s}\wh{^c}\qsk\quena[la][12]{D}{4b}\wh{_d}\en\bar
+ \NOtes\hsk\quena[la][21]{D}{6}\wh{r}\quena[la][21]{D}{62}\hsk\hsk&\hsk\hsk\quena[la][15]{D}{5}\wh{k}&\hsk\hsk\quena[la][12]{D}{4}\wh{d}\en\bar
+ \NOtes\hsk\quena[la][21]{D}{6s}\wh{^r}\qsk\quena[la][21]{E}{6b2}\wh{_s}&\hsk\quena[la][15]{D}{5s}\wh{^k}\qsk\quena[la][15]{E}{5b}\wh{_l}&\hsk\quena[la][12]{D}{4s}\wh{^d}\qsk\quena[la][12]{E}{4b}\wh{_e}\en\bar
+ \NOtes\hsk\quena[la][21]{E}{6}\wh{s}&\hsk\quena[la][15]{E}{5}\wh{l}&\hsk\quena[la][12]{E}{4}\wh{e}\en\bar
+ \NOtes\hsk\quena[la][21]{F}{6}\wh{t}\quena[la][21]{F}{62}\hsk\hsk&\hsk\hsk\quena[la][15]{F}{5}\wh{m}&\hsk\hsk\quena[la][12]{F}{4}\wh{f}\en\bar
+ \NOtes\hsk\quena[la][21]{F}{6s}\wh{^t}\qsk\quena[la][21]{G}{6b}\wh{_u}&\hsk\quena[la][15]{F}{5s}\wh{^m}\qsk\quena[la][15]{G}{5b}\wh{_n}&\hsk\quena[la][12]{F}{4s}\wh{^f}\qsk\quena[la][12]{G}{4b}\wh{_g}\en\bar
+ \NOtes\hsk\quena[la][21]{G}{6}\wh{u}&\hsk\quena[la][15]{G}{5}\wh{n}&\hsk\quena[la][12]{G}{4}\wh{g}\en\bar
+ \NOtes\hsk\quena[la][21]{G}{6s}\wh{^u}\qsk\quena[la][21]{A}{6}\wh{v}&\hsk\quena[la][15]{G}{5s}\wh{^n}\qsk\quena[la][15]{A}{5b}\wh{_o}&\hsk\quena[la][12]{G}{4s}\wh{^g}\qsk\quena[la][12]{A}{4b}\wh{_h}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+ \end{music}};%
+\end{tikzpicture}
+\newpage
+\subsection{Quena in D}
+\begin{tikzpicture}[transform shape,scale=0.6]
+ \draw (0,0) node {
+\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{quena1}{D\text{$_3$} D\text{\musSharp{}$_3$} E\text{\musFlat{}$_3$} E\text{$_3$} F\text{$_3$} F\text{\musSharp{}$_3$} G\text{\musFlat{}$_3$} G\text{$_3$} G\text{\musSharp{}$_3$} A\text{\musFlat{}$_3$} A\text{$_3$} A\text{\musSharp{}$_3$} B\text{\musFlat{}$_3$} B\text{$_3$} C\text{$_4$} C\text{\musSharp{}$_4$} D\text{\musFlat{}$_4$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{quena2}{D\text{$_4$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_4$} E\text{$_4$} F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$}}% added for hand indication
+ \setsongraise2{23mm}
+ \setlyrics{quena3}{D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$} G\text{$_5$} G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$} D\text{$_6$}}% added for hand indication
+ \setsongraise3{-7mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{3}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setstaffs3{1}
+ \setclef30
+ \setclef20
+ \setclef10
+ %\setname2{Soprano}
+ %\setname1{Soprano}
+ \songtop{3}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{38}%Distancia entre sistemas del pentagrama
+ \setinterstaff{2}{36}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{quena3}% added to place handindication
+ \A\assignlyrics2{quena2}% added to place handindication
+ \A\assignlyrics3{quena1}% added to place handindication
+ \NOtes\hsk\quena[re][18]{D}{5}\wh{k}&\hsk\quena[re][11]{D}{4}\wh{d}&\hsk\quena[re][10]{D}{3}\wh{K}\en\bar
+ \NOtes\hsk\quena[re][18]{D}{5s}\wh{^k}\qsk\quena[re][18]{E}{5b}\wh{_l}&\hsk\quena[re][11]{D}{4s}\wh{^d}\qsk\quena[re][11]{E}{4b}\wh{_e}&\hsk\quena[re][10]{D}{3s}\wh{^K}\qsk\quena[re][10]{E}{3b}\wh{_L}\en\bar
+ \NOtes\hsk\quena[re][18]{E}{5}\wh{l}&\hsk\quena[re][11]{E}{4}\wh{e}&\hsk\quena[re][10]{E}{3}\wh{L}\en\bar
+ \NOtes\hsk\quena[re][18]{F}{5}\wh{m}&\hsk\quena[re][11]{F}{4}\wh{f}&\hsk\quena[re][10]{F}{3}\wh{M}\en\bar
+ \NOtes\hsk\quena[re][18]{F}{5s}\wh{^m}\qsk\quena[re][18]{G}{5b}\wh{_n}&\hsk\quena[re][11]{F}{4s}\wh{^f}\qsk\quena[re][11]{G}{4b}\wh{_g}&\hsk\quena[re][10]{F}{3s}\wh{^M}\qsk\quena[re][10]{G}{3b}\wh{_N}\en\bar
+ \NOtes\hsk\quena[re][18]{G}{5}\wh{n}&\hsk\quena[re][11]{G}{4}\wh{g}&\hsk\quena[re][10]{G}{3}\wh{N}\en\bar
+ \NOtes\hsk\quena[re][18]{G}{5s}\wh{^n}\qsk\quena[re][18]{A}{5b2}\wh{_o}&\hsk\quena[re][11]{G}{4s}\wh{^g}\qsk\quena[re][11]{A}{4b}\wh{_h}&\hsk\quena[re][10]{G}{3s}\wh{^N}\qsk\quena[re][10]{A}{3b}\wh{_a}\en\bar
+ \NOtes\hsk\quena[re][18]{A}{5}\wh{o}&\hsk\quena[re][11]{A}{4}\wh{h}&\hsk\quena[re][10]{A}{3}\wh{a}\en\bar
+ \NOtes\hsk\quena[re][18]{A}{5s}\wh{^o}\qsk\quena[re][18]{B}{5b}\wh{_p}&\hsk\quena[re][11]{A}{4s}\wh{^h}\qsk\quena[re][11]{B}{4b}\wh{_i}&\hsk\quena[re][10]{A}{3s}\wh{^a}\qsk\quena[re][10]{B}{3b}\wh{_b}\en\bar
+ \NOtes\hsk\quena[re][18]{B}{5}\wh{p}\qsk\quena[re][18]{B}{52}\hsk\hsk&\hsk\hsk\quena[re][11]{B}{4}\wh{i}&\hsk\hsk\quena[re][10]{B}{3}\wh{b}\en\bar
+ \NOtes\hsk\quena[re][18]{C}{6}\wh{q}&\hsk\quena[re][11]{C}{5}\wh{j}&\hsk\quena[re][10]{C}{4}\wh{c}\en\bar
+ \NOtes\hsk\quena[re][18]{C}{6s}\wh{^q}\qsk\quena[re][18]{D}{6}\wh{r}&\hsk\quena[re][11]{C}{5s}\wh{^j}\qsk\quena[re][11]{D}{5b}\wh{_k}&\hsk\quena[re][10]{C}{4s}\wh{^c}\qsk\quena[re][10]{D}{4b}\wh{_d}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+ \end{music}};%
+\end{tikzpicture}
+
+\newpage
+\subsection{Quena in F}
+\begin{tikzpicture}[transform shape,scale=0.6]
+ \draw (0,0) node {
+\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{quena1}{F\text{$_3$} F\text{\musSharp{}$_3$} G\text{\musFlat{}$_3$} G\text{$_3$} G\text{\musSharp{}$_3$} A\text{\musFlat{}$_3$} A\text{$_3$} A\text{\musSharp{}$_3$} B\text{\musFlat{}$_3$} B\text{$_3$} C\text{$_4$} C\text{\musSharp{}$_4$} D\text{\musFlat{}$_4$} D\text{$_4$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_4$} E\text{$_4$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{quena2}{F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$} D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$}}% added for hand indication
+ \setsongraise2{23mm}
+ \setlyrics{quena3}{F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$} G\text{$_5$} G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$} D\text{\musFlat{}$_6$} D\text{$_6$} D\text{\musSharp{}$_6$} E\text{\musFlat{}$_6$} E\text{$_6$} F\text{$_6$}}% added for hand indication
+ \setsongraise3{-7mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{3}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setstaffs3{1}
+ \setclef30
+ \setclef20
+ \setclef10
+ %\setname2{Soprano}
+ %\setname1{Soprano}
+ \songtop{3}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{38}%Distancia entre sistemas del pentagrama
+ \setinterstaff{2}{36}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{quena3}% added to place handindication
+ \A\assignlyrics2{quena2}% added to place handindication
+ \A\assignlyrics3{quena1}% added to place handindication
+ \NOtes\hsk\quena[fa][18]{F}{5}\wh{m}&\hsk\quena[fa][11]{F}{4}\wh{f}&\hsk\quena[fa][10]{F}{3}\wh{M}\en\bar
+ \NOtes\hsk\quena[fa][18]{F}{5s}\wh{^m}\qsk\quena[fa][18]{G}{5b}\wh{_n}&\hsk\quena[fa][11]{F}{4s}\wh{^f}\qsk\quena[fa][11]{G}{4b}\wh{_g}&\hsk\quena[fa][10]{F}{3s}\wh{^M}\qsk\quena[fa][10]{G}{3b}\wh{_N}\en\bar
+ \NOtes\hsk\quena[fa][18]{G}{5}\wh{n}&\hsk\quena[fa][11]{G}{4}\wh{g}&\hsk\quena[fa][10]{G}{3}\wh{N}\en\bar
+ \NOtes\hsk\quena[fa][18]{G}{5s}\wh{^n}\qsk\quena[fa][18]{A}{5b}\wh{_o}&\hsk\quena[fa][11]{G}{4s}\wh{^g}\qsk\quena[fa][11]{A}{4b}\wh{_h}&\hsk\quena[fa][10]{G}{3s}\wh{^N}\qsk\quena[fa][10]{A}{3b}\wh{_a}\en\bar
+ \NOtes\hsk\quena[fa][18]{A}{5}\wh{o}&\hsk\quena[fa][11]{A}{4}\wh{h}&\hsk\quena[fa][10]{A}{3}\wh{a}\en\bar
+ \NOtes\hsk\quena[fa][18]{A}{5s}\wh{^o}\qsk\quena[fa][18]{B}{5b2}\wh{_p}&\hsk\quena[fa][11]{A}{4s}\wh{^h}\qsk\quena[fa][11]{B}{4b}\wh{_i}&\hsk\quena[fa][10]{A}{3s}\wh{^a}\qsk\quena[fa][10]{B}{3b}\wh{_b}\en\bar
+ \NOtes\hsk\quena[fa][18]{B}{5}\wh{p}\qsk\quena[fa][18]{B}{52}\hsk\hsk&\hsk\hsk\quena[fa][11]{B}{4}\wh{i}&\hsk\hsk\quena[fa][10]{B}{3}\wh{b}\en\bar
+ \NOtes\hsk\quena[fa][18]{C}{6}\wh{q}&\hsk\quena[fa][11]{C}{5}\wh{j}&\hsk\quena[fa][10]{C}{4}\wh{c}\en\bar
+ \NOtes\hsk\quena[fa][18]{C}{6s}\wh{^q}\qsk\quena[fa][18]{D}{6b2}\wh{_r}&\hsk\quena[fa][11]{C}{5s}\wh{^j}\qsk\quena[fa][11]{D}{5b}\wh{_k}&\hsk\quena[fa][10]{C}{4s}\wh{^c}\qsk\quena[fa][10]{D}{4b}\wh{_d}\en\bar
+ \NOtes\hsk\quena[fa][18]{D}{6}\wh{r}\qsk\quena[fa][18]{D}{62}\hsk\hsk&\hsk\hsk\quena[fa][11]{D}{5}\wh{k}\qsk&\hsk\hsk\quena[fa][10]{D}{4}\wh{d}\qsk\en\bar
+ \NOtes\hsk\quena[fa][18]{D}{6s}\wh{^r}\qsk\quena[fa][18]{E}{6b}\wh{_s}&\hsk\quena[fa][11]{D}{5s}\wh{^k}\qsk\quena[fa][11]{E}{5b}\wh{_l}&\hsk\quena[fa][10]{D}{4s}\wh{^d}\qsk\quena[fa][10]{E}{4b}\wh{_e}\en\bar
+ \NOtes\hsk\quena[fa][18]{E}{6}\wh{s}\quena[fa][18]{F}{6}\wh{t}&\hsk\hsk\quena[fa][11]{E}{5}\wh{l}&\hsk\hsk\quena[fa][10]{E}{4}\wh{e}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\newpage
+\subsection{Quena in G}
+\begin{tikzpicture}[transform shape,scale=0.6]
+ \draw (0,0) node {
+\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{quena1}{G\text{$_3$} G\text{\musSharp{}$_3$} A\text{\musFlat{}$_3$} A\text{$_3$} A\text{\musSharp{}$_3$} B\text{\musFlat{}$_3$} B\text{$_3$} C\text{$_4$} C\text{\musSharp{}$_4$} D\text{\musFlat{}$_4$} D\text{$_4$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_4$} E\text{$_4$} F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{quena2}{G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$} A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$} D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$}}% added for hand indication
+ \setsongraise2{23mm}
+ \setlyrics{quena3}{G\text{$_5$} G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$} D\text{\musFlat{}$_6$} D\text{$_6$} D\text{\musSharp{}$_6$} E\text{\musFlat{}$_6$} E\text{$_6$} F\text{$_6$} F\text{\musSharp{}$_6$} G\text{$_6$}}% added for hand indication
+ \setsongraise3{-7mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{3}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setstaffs3{1}
+ \setclef30
+ \setclef20
+ \setclef10
+ %\setname2{Soprano}
+ %\setname1{Soprano}
+ \songtop{3}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{38}%Distancia entre sistemas del pentagrama
+ \setinterstaff{2}{36}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{quena3}% added to place handindication
+ \A\assignlyrics2{quena2}% added to place handindication
+ \A\assignlyrics3{quena1}% added to place handindication
+ \NOtes\hsk\quena[sol][18]{G}{5}\wh{n}&\hsk\quena[sol][11]{G}{4}\wh{g}&\hsk\quena[sol][10]{G}{3}\wh{N}\en\bar
+ \NOtes\hsk\quena[sol][18]{G}{5s}\wh{^n}\qsk\quena[sol][18]{A}{5b}\wh{_o}&\hsk\quena[sol][11]{G}{4s}\wh{^g}\qsk\quena[sol][11]{A}{4b}\wh{_h}&\hsk\quena[sol][10]{G}{3s}\wh{^N}\qsk\quena[sol][10]{A}{3b}\wh{_a}\en\bar
+ \NOtes\hsk\quena[sol][18]{A}{5}\wh{o}&\hsk\quena[sol][11]{A}{4}\wh{h}&\hsk\quena[sol][10]{A}{3}\wh{a}\en\bar
+ \NOtes\hsk\quena[sol][18]{A}{5s}\wh{^o}\qsk\quena[sol][18]{B}{5b}\wh{_p}&\hsk\quena[sol][11]{A}{4s}\wh{^h}\qsk\quena[sol][11]{B}{4b}\wh{_i}&\hsk\quena[sol][10]{A}{3s}\wh{^a}\qsk\quena[sol][10]{B}{3b}\wh{_b}\en\bar
+ \NOtes\hsk\quena[sol][18]{B}{5}\wh{p}\qsk&\hsk\quena[sol][11]{B}{4}\wh{i}&\hsk\quena[sol][10]{B}{3}\wh{b}\en\bar
+ \NOtes\hsk\quena[sol][18]{C}{6}\wh{q}\qsk\quena[sol][18]{C}{62}\hsk\hsk&\hsk\hsk\quena[sol][11]{C}{5}\wh{j}&\hsk\hsk\quena[sol][10]{C}{4}\wh{c}\en\bar
+ \NOtes\hsk\quena[sol][18]{C}{6s}\wh{^q}\qsk\quena[sol][18]{D}{6b2}\wh{_r}&\hsk\quena[sol][11]{C}{5s}\wh{^j}\qsk\quena[sol][11]{D}{5b}\wh{_k}&\hsk\quena[sol][10]{C}{4s}\wh{^c}\qsk\quena[sol][10]{D}{4b}\wh{_d}\en\bar
+ \NOtes\hsk\quena[sol][18]{D}{6}\wh{r}\qsk&\hsk\quena[sol][11]{D}{5}\wh{k}\qsk&\hsk\quena[sol][10]{D}{4}\wh{d}\qsk\en\bar
+ \NOtes\hsk\quena[sol][18]{D}{6s}\wh{^r}\qsk\quena[sol][18]{E}{6b2}\wh{_s}&\hsk\quena[sol][11]{D}{5s}\wh{^k}\qsk\quena[sol][11]{E}{5b}\wh{_l}&\hsk\quena[sol][10]{D}{4s}\wh{^d}\qsk\quena[sol][10]{E}{4b}\wh{_e}\en\bar
+ \NOtes\hsk\quena[sol][18]{E}{6}\wh{s}\qsk\quena[sol][18]{E}{62}\hsk\hsk&\hsk\hsk\quena[sol][11]{E}{5}\wh{l}&\hsk\hsk\quena[sol][10]{E}{4}\wh{e}\en\bar
+ \NOtes\hsk\quena[sol][18]{F}{6}\wh{t}&\hsk\quena[sol][11]{F}{5}\wh{m}&\hsk\quena[sol][10]{F}{4}\wh{f}\en\bar
+ \NOtes\hsk\quena[sol][18]{F}{6s}\wh{^t}\qsk\quena[sol][18]{G}{6}\wh{u}&\hsk\quena[sol][11]{F}{5s}\wh{^m}\qsk\quena[sol][11]{G}{5b}\wh{_n}&\hsk\quena[sol][10]{F}{4s}\wh{^f}\qsk\quena[sol][10]{G}{4b}\wh{_g}\en
+ \nolyr
+ \lyricsoff
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\newpage
+\subsection{Saxophone}
+\begin{tikzpicture}[transform shape,scale=0.4]
+ \draw (0,0) node {
+ \hspace*{20em}\begin{music}
+ \resetlyrics
+ \font\A=phvb8t at 6pt% added for letter type.
+ \setlyrics{saxo1}{A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$}
+ D\text{\musFlat{}$_6$} D\text{$_6$} D\text{\musSharp{}$_6$} E\text{\musFlat{}$_6$} E\text{$_6$} F\text{$_6$}
+ F\text{\musSharp{}$_6$} G\text{\musFlat{}$_6$}}% added for hand indication
+ \setsongraise1{2mm}
+ %\setlyrics{sopranino}{C\text{$_4$} C D D D E E F}% added for hand indication
+ \setlyrics{saxo2}{A\text{\musSharp{}$_4$} B\text{\musFlat{}$_4$} B\text{$_4$} C\text{$_5$} C\text{\musSharp{}$_5$} D\text{\musFlat{}$_5$} D\text{$_5$} D\text{\musSharp{}$_5$} E\text{\musFlat{}$_5$} E\text{$_5$} F\text{$_5$} F\text{\musSharp{}$_5$} G\text{\musFlat{}$_5$} G\text{$_5$}
+ G\text{\musSharp{}$_5$} A\text{\musFlat{}$_5$} A\text{$_5$} A\text{\musSharp{}$_5$} B\text{\musFlat{}$_5$} B\text{$_5$} C\text{$_6$} C\text{\musSharp{}$_6$}
+ D\text{\musFlat{}$_6$} D\text{$_6$} D\text{\musSharp{}$_6$} E\text{\musFlat{}$_6$} E\text{$_6$} F\text{$_6$}
+ F\text{\musSharp{}$_6$} G\text{\musFlat{}$_6$}}% added for hand indication
+ \setsongraise2{26mm}
+ \setlyrics{saxo3}{A\text{\musSharp{}$_3$} B\text{\musFlat{}$_3$} B\text{$_3$} C\text{$_4$} C\text{\musSharp{}$_4$} D\text{\musFlat{}$_4$} D\text{$_4$} D\text{\musSharp{}$_4$} E\text{\musFlat{}$_4$} E\text{$_4$} F\text{$_4$} F\text{\musSharp{}$_4$} G\text{\musFlat{}$_4$} G\text{$_4$} G\text{\musSharp{}$_4$} A\text{\musFlat{}$_4$} A\text{$_4$}}% added for hand indication
+ \setsongraise3{-4mm}
+ \hsize=20cm
+ \parindent16mm
+ \instrumentnumber{3}
+ \setstaffs1{1}
+ \setstaffs2{1}
+ \setstaffs3{1}
+ \setclef30
+ \setclef20
+ \setclef10
+ \songtop{3}
+ \songbottom{1}
+ \nobarnumbers
+ \setinterstaff{1}{38}%Distancia entre sistemas del pentagrama
+ \setinterstaff{2}{36}%Distancia entre sistemas del pentagrama
+ \startextract
+ \A\assignlyrics1{saxo1}% added to place handindication
+ \A\assignlyrics2{saxo2}% added to place handindication
+ \A\assignlyrics3{saxo3}% added to place handindication
+ \NOTEs\zcharnote p{\saxofon{A}{5s}}\wh{^o}\hqsk\hqsk\zcharnote p{\saxofon{B}{5b2}}\wh{_p}\hqsk\hqsk\zcharnote p{\saxofon{A}{5s3}}\sk\hqsk\hqsk\zcharnote p{\saxofon{B}{5b4}}\sk\hqsk\hqsk&\zcharnote q{\saxofon{A}{4s}}\wh{^h}\hqsk\hqsk\zcharnote q{\saxofon{B}{4b2}}\wh{_i}\hqsk\hqsk\zcharnote q{\saxofon{A}{4s3}}\sk\hqsk\hqsk\zcharnote q{\saxofon{A}{4s4}}\sk\hqsk&\zcharnote n{\saxofon{A}{3s}}\wh{^a}\sk\hqsk\hqsk\zcharnote n{\saxofon{B}{3b}}\wh{_b}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{B}{5}}\wh{p}\hqsk&\hsk\zcharnote q{\saxofon{B}{4}}\wh{i}\hqsk&\hsk\zcharnote n{\saxofon{B}{3}}\wh{b}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{C}{6}}\wh{q}\hqsk\hqsk\zcharnote p{\saxofon{B}{5s2}}\sk\hqsk\hqsk&\hsk\zcharnote q{\saxofon{C}{5}}\wh{j}\hqsk\hqsk\zcharnote q{\saxofon{C}{52}}\sk\hqsk\hqsk&\sk\qsk\zcharnote n{\saxofon{C}{4}}\wh{c}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{C}{6s}}\wh{^q}\hqsk\hqsk\zcharnote p{\saxofon{D}{6b}}\wh{_r}\hqsk&\hsk\zcharnote q{\saxofon{C}{5s}}\wh{^j}\hqsk\hqsk\zcharnote q{\saxofon{D}{5b}}\wh{_k}\hqsk&\hsk\zcharnote n{\saxofon{C}{4s}}\wh{^c}\hqsk\hqsk\zcharnote n{\saxofon{D}{4b}}\wh{_d}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{D}{6}}\wh{r}\hqsk&\hsk\zcharnote q{\saxofon{D}{5}}\wh{k}\hqsk&\hsk\zcharnote n{\saxofon{D}{4}}\wh{d}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{D}{6s}}\wh{^r}\hqsk\hqsk\zcharnote p{\saxofon{E}{6b}}\wh{_s}\hqsk&\hsk\zcharnote q{\saxofon{D}{5s}}\wh{^k}\hqsk\hqsk\zcharnote q{\saxofon{E}{5b}}\wh{_l}\hqsk&\hsk\zcharnote n{\saxofon{D}{4s}}\wh{^d}\hqsk\hqsk\zcharnote n{\saxofon{E}{4b}}\wh{_e}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{E}{6}}\wh{s}\hqsk\hqsk\zcharnote p{\saxofon{F}{6b2}}\sk\hqsk&\sk\qsk\zcharnote q{\saxofon{E}{5}}\wh{l}\hqsk&\sk\qsk\zcharnote n{\saxofon{E}{4}}\wh{e}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{F}{6}}\wh{t}\hqsk\hqsk\zcharnote p{\saxofon{E}{6s2}}\sk\hqsk&\sk\qsk\zcharnote q{\saxofon{F}{5}}\wh{m}\hqsk&\sk\qsk\zcharnote n{\saxofon{F}{4}}\wh{f}\hqsk\en\bar
+ \NOTEs\hsk\zcharnote p{\saxofon{F}{6s}}\wh{^t}\hqsk\hqsk\zcharnote p{\saxofon{G}{6b2}}\wh{_u}\hqsk&\hsk\zcharnote q{\saxofon{F}{5s}}\wh{^m}\hqsk\hqsk\zcharnote q{\saxofon{G}{5b2}}\wh{_n}\hqsk&\hsk\zcharnote n{\saxofon{F}{4s}}\wh{^f}\hqsk\hqsk\zcharnote n{\saxofon{G}{4b2}}\wh{_g}\hqsk\en\bar
+ \NOTEs&\hsk\zcharnote q{\saxofon{G}{5}}\wh{n}\hqsk&\hsk\zcharnote n{\saxofon{G}{4}}\wh{g}\hqsk\en\bar
+ \NOTEs&\hsk\zcharnote q{\saxofon{G}{5s}}\wh{^n}\hqsk\hqsk\zcharnote q{\saxofon{A}{5b}}\wh{_o}\hqsk&\hsk\zcharnote n{\saxofon{G}{4s}}\wh{^g}\hqsk\hqsk\zcharnote n{\saxofon{A}{4b}}\wh{_h}\hqsk\en\bar
+ \NOTEs&\hsk\zcharnote q{\saxofon{A}{5}}\wh{o}\hqsk&\hsk\zcharnote n{\saxofon{A}{4}}\wh{h}\hqsk\en
+ \nolyr
+ \lyricsoff
+ \endextract
+\end{music}};%
+\end{tikzpicture}
+
+\section{Credits}
+The authors thank Faculty of Musical Education and Arts of the Daniel Alomía Robles National University in the city of Huánuco, Peru for having financed the package development through an applied research project.
+
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/undar-digitacion/undar-digitacion-doc.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx
===================================================================
--- trunk/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx (rev 0)
+++ trunk/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx 2024-01-27 21:02:33 UTC (rev 69613)
@@ -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
Property changes on: trunk/Master/texmf-dist/source/latex/undar-digitacion/undar-digitacion.dtx
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/tex/latex/undar-digitacion/undar-digitacion.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/undar-digitacion/undar-digitacion.sty (rev 0)
+++ trunk/Master/texmf-dist/tex/latex/undar-digitacion/undar-digitacion.sty 2024-01-27 21:02:33 UTC (rev 69613)
@@ -0,0 +1,2859 @@
+\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}
+
+\def \globalscale {0.75000000}
+
+\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}}
+
+\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}}
+
+\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}}
+
+\newenvironment{flautaDibujo}{\begin{tikzpicture}[y=1cm, x=1cm, yscale=\globalscale,xscale=\globalscale, inner sep=0pt, outer sep=0pt]
+ \begin{scope}
+ % \draw[step=0.2,black!30,thin] (5,7) grid (8,-5);
+ \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}}
+
+\newenvironment{flautaBDibujo}{\begin{tikzpicture}[y=1cm, x=1cm, yscale=\globalscale,xscale=\globalscale, inner sep=0pt, outer sep=0pt]
+ \begin{scope}
+ % \draw[step=0.2,black!30,thin] (5,7) grid (8,-5);
+ \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);}%
+}
+\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];
+}
+
+\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}{}]%
+}%
+\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}{}]%
+}%
+
+\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}{}]%
+}%
+
+\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}{}]%
+}%
+
+\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}{}]%
+}%
+
+\newcommand{\teststring}{}
+\newcommand{\addtostring}[1]{%
+ \expandafter\def\expandafter\teststring\expandafter{\teststring#1}%
+}
+\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}{}]%
+}%
+\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}{}]%
+ }
+}%
+
+\def\splitPorCaracterlyrics#1{\threewordslyrics#1\relax}
+\def\threewordslyrics#1/#2/#3\relax{
+ \appendlyrics{scale}{\notaPalabra{#1}\alteracionPalabra{\letraB{#2}}}
+}
+
+\ExplSyntaxOn
+\NewDocumentCommand{\loppDelyrics}{m}{
+ % \begin{enumerate}
+ \clist_map_inline:nn{#1}{ % C/4s/a/n
+ \splitPorCaracterlyrics{##1}
+ }
+ % \end{enumerate}
+}
+\ExplSyntaxOff
+
+%4s
+\newcommand*{\letraA}[1]{\expandafter \extrerA#1{}{}{}\stophere}
+\def\extrerA#1#2#3\stophere{#1}
+\newcommand*{\letraB}[1]{\expandafter \extrerB#1{}{}{}\stophere}
+\def\extrerB#1#2#3\stophere{#2}
+
+
+\newcounter{contnotasmanual}
+\setcounter{contnotasmanual}{10000}
+\newcounter{contimgmanual}
+\setcounter{contimgmanual}{10000}
+
+\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}}
+}
+\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}
+ };
+ }
+}
+
+%Genérico \expandafter
+\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}{}]%
+}
+
+%Genérico
+\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}{}]%
+}
+
+\newcounter{contnotas}
+\setcounter{contnotas}{0}
+
+\def\splitPorCaracter#1{\threewords#1\relax}
+\def\threewords#1/#2/#3\relax{
+ \refstepcounter{contnotas}
+ \tikzmark{\arabic{contnotas}}\notaParaMusixtex{#1}{\letraA{#2}}{#3}{\letraB{#2}}\relax
+}
+
+\ExplSyntaxOn
+\NewDocumentCommand{\loppDeNotas}{m}{
+ % \begin{enumerate}
+ \clist_map_inline:nn{#1}{ % C/4s/a/n
+ \splitPorCaracter{##1}
+ }
+ % \end{enumerate}
+}
+\ExplSyntaxOff
+
+%Genérico
+%{n, {C/ 4/ id/ negra(n)/ s}}
+\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}{}]%
+}
+
+\newcounter{contimg}
+\setcounter{contimg}{0}
+
+\newcommand{\loppDeInstrumento}[2]{
+ \foreach \x\y\w in {#2} {
+ \refstepcounter{contimg}
+ \flautaId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+ }
+}
+\newcommand{\loppDeInstrumentoFlautaB}[2]{
+ \foreach \x\y\w in {#2} {
+ \refstepcounter{contimg}
+ \flautaBId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+ }
+}
+\newcommand{\loppDeInstrumentoQuena}[2]{
+ \foreach \x\y\w in {#2} {
+ \refstepcounter{contimg}
+ \quenaId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+ }
+}
+\newcommand{\loppDeInstrumentoPinkullo}[2]{
+ \foreach \x\y\w in {#2} {
+ \refstepcounter{contimg}
+ \pinkulloId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+ }
+}
+\newcommand{\loppDeInstrumentoSaxofon}[2]{
+ \foreach \x\y\w in {#2} {
+ \refstepcounter{contimg}
+ \saxofonId[#1][0][0.25]{\x}{\y}{\arabic{contimg}}
+ }
+}
+
+%{n}{C}
+%{C, 4s, negra(n)}
+\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}
+}
+\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}
+}
+\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}
+}
+\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}
+}
+\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}
+}
Property changes on: trunk/Master/texmf-dist/tex/latex/undar-digitacion/undar-digitacion.sty
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/tlpkg/bin/tlpkg-ctan-check
===================================================================
--- trunk/Master/tlpkg/bin/tlpkg-ctan-check 2024-01-27 20:58:30 UTC (rev 69612)
+++ trunk/Master/tlpkg/bin/tlpkg-ctan-check 2024-01-27 21:02:33 UTC (rev 69613)
@@ -882,7 +882,7 @@
umbclegislation umich-thesis uml umlaute umoline
umthesis umtypewriter
unam-thesis unamth-template unamthesis unbtex
- undergradmath underlin underoverlap underscore undolabl
+ undar-digitacion undergradmath underlin underoverlap underscore undolabl
unfonts-core unfonts-extra
uni-titlepage uni-wtal-ger uni-wtal-lin
unicode-alphabets unicode-data unicode-bidi
Modified: trunk/Master/tlpkg/libexec/ctan2tds
===================================================================
--- trunk/Master/tlpkg/libexec/ctan2tds 2024-01-27 20:58:30 UTC (rev 69612)
+++ trunk/Master/tlpkg/libexec/ctan2tds 2024-01-27 21:02:33 UTC (rev 69613)
@@ -3145,6 +3145,7 @@
'thesis', 'install.01|install.ndx',
'translation-filecontents-de', 'NULL', # doc
'turnstile', 'turnstile-en.ins', # skip pt since it changes the sty
+ 'undar-digitacion' => 'NULL', # spurious .dtx
'xymtex', 'NULL', # already built, too complicated
'yathesis', 'yathesis.dtx', # not templates
);
Modified: trunk/Master/tlpkg/tlpsrc/collection-music.tlpsrc
===================================================================
--- trunk/Master/tlpkg/tlpsrc/collection-music.tlpsrc 2024-01-27 20:58:30 UTC (rev 69612)
+++ trunk/Master/tlpkg/tlpsrc/collection-music.tlpsrc 2024-01-27 21:02:33 UTC (rev 69613)
@@ -37,5 +37,6 @@
depend songbook
depend songproj
depend songs
+depend undar-digitacion
depend xml2pmx
depend xpiano
Added: trunk/Master/tlpkg/tlpsrc/undar-digitacion.tlpsrc
===================================================================
More information about the tex-live-commits
mailing list.