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