summaryrefslogtreecommitdiff
path: root/macros/latex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex')
-rw-r--r--macros/latex/contrib/easybook/easybook.dtx10
-rw-r--r--macros/latex/contrib/easybook/easybook.pdfbin599132 -> 599153 bytes
-rw-r--r--macros/latex/contrib/easybook/easybook.tex6
-rw-r--r--macros/latex/contrib/hvqrurl/Changes1
-rw-r--r--macros/latex/contrib/hvqrurl/doc/hvqrurl.pdfbin107212 -> 113426 bytes
-rw-r--r--macros/latex/contrib/hvqrurl/doc/hvqrurl.tex17
-rw-r--r--macros/latex/contrib/hvqrurl/latex/hvqrurl.sty14
-rw-r--r--macros/latex/contrib/randexam/randexam-a-answer.pdfbin49561 -> 49496 bytes
-rw-r--r--macros/latex/contrib/randexam/randexam-a-answer.tex18
-rw-r--r--macros/latex/contrib/randexam/randexam-a-blank.pdfbin41354 -> 41288 bytes
-rw-r--r--macros/latex/contrib/randexam/randexam-b-answer.pdfbin49564 -> 49469 bytes
-rw-r--r--macros/latex/contrib/randexam/randexam-b-blank.pdfbin41312 -> 41229 bytes
-rw-r--r--macros/latex/contrib/randexam/randexam.cls449
-rw-r--r--macros/latex/contrib/randexam/randexam.pdfbin45202 -> 50412 bytes
-rw-r--r--macros/latex/contrib/randexam/randexam.tex213
-rw-r--r--macros/latex/contrib/undar-digitacion/README.md45
-rw-r--r--macros/latex/contrib/undar-digitacion/undar-digitacion-doc.pdfbin0 -> 165863 bytes
-rw-r--r--macros/latex/contrib/undar-digitacion/undar-digitacion-doc.tex834
-rw-r--r--macros/latex/contrib/undar-digitacion/undar-digitacion.dtx3280
-rw-r--r--macros/latex/contrib/undar-digitacion/undar-digitacion.sty2859
20 files changed, 7586 insertions, 160 deletions
diff --git a/macros/latex/contrib/easybook/easybook.dtx b/macros/latex/contrib/easybook/easybook.dtx
index bf2b48909d..3c026512da 100644
--- a/macros/latex/contrib/easybook/easybook.dtx
+++ b/macros/latex/contrib/easybook/easybook.dtx
@@ -15,7 +15,7 @@
%<*class>
\NeedsTeXFormat{LaTeX2e}[2020/10/01]
\RequirePackage{l3keys2e}
-\ProvidesExplClass{easybook}{2024/01/23}{2024N}
+\ProvidesExplClass{easybook}{2024/01/28}{2024O}
{Easily typesetting Chinese theses or books}
\bool_set_false:N \l__eb_compile_draft_bool
@@ -302,7 +302,7 @@
%<*package>
\NeedsTeXFormat{LaTeX2e}[2020/10/01]
\RequirePackage{l3keys2e,etoolbox}
-\ProvidesExplPackage{easybase}{2024/01/23}{2024N}
+\ProvidesExplPackage{easybase}{2024/01/28}{2024O}
{Easily typesetting Chinese theses or books}
\cs_generate_variant:Nn \dim_set:Nn { NV }
@@ -716,7 +716,9 @@
\geometry{showframe}
}
\bool_new:N \l__eb_ps_used_bool
-\eb_appto_cmd:nn { pagestyle } { \bool_set_true:N \l__eb_ps_used_bool }
+\NewHook{ps@end}
+\AddToHook{ps@end}{\bool_set_true:N \l__eb_ps_used_bool}
+\apptocmd{\pagestyle}{\UseOneTimeHook{ps@end}}{}{}
\ctex_at_end_preamble:n
{
\bool_if:NF \l__eb_ps_used_bool { \pagestyle{fancy} }
@@ -2323,7 +2325,7 @@
}
%</package>
%<*tcolorbox>
-\ProvidesExplFile{eb-tcolorbox.cfg}{2024/01/23}{2024N}
+\ProvidesExplFile{eb-tcolorbox.cfg}{2024/01/28}{2024O}
{Customization of tcolorbox for easybook}
\cs_set_protected:Npn \addtotcbstyle #1#2
diff --git a/macros/latex/contrib/easybook/easybook.pdf b/macros/latex/contrib/easybook/easybook.pdf
index b55ed461ae..83550fbf2d 100644
--- a/macros/latex/contrib/easybook/easybook.pdf
+++ b/macros/latex/contrib/easybook/easybook.pdf
Binary files differ
diff --git a/macros/latex/contrib/easybook/easybook.tex b/macros/latex/contrib/easybook/easybook.tex
index cfc0c22370..07ac291c6f 100644
--- a/macros/latex/contrib/easybook/easybook.tex
+++ b/macros/latex/contrib/easybook/easybook.tex
@@ -23,8 +23,8 @@
name = easybook,
color-scheme = blue,
title = EASYBOOK使用手册,
- version = v2024N,
- date = 2024/01/23,
+ version = v2024O,
+ date = 2024/01/28,
authors = 瞿毅,
info = 简便地排版中文学位论文或书籍,
email = toquyi@163.com,
@@ -1350,7 +1350,7 @@
\shortversion{v = 1.638,date = 2022/03/04,changes = 增加目录条目样式选项注册命令 \cs{RegisterTocName}。}
\shortversion{v = 1.644,date = 2022/03/10,changes = 增加浮动环境目录声明命令 \cs{DeclareFloatList} 配合 \pkg*{caption} 宏包。}
\shortversion{v = 1.682,date = 2022/05/01,changes = 将迷你页判断命令 \cs{notminipage} 改为被保护命令兼容 \pkg*{circledtext} 宏包。}
- \begin{version}[v = 2024N,date = 2024/01/23,simple]
+ \begin{version}[v = 2024O,date = 2024/01/28,simple]
\item 核对依赖宏包的更新改动,优化使用手册的内容细节。
\item 修复图表等浮动环境题注目录中条目标签编号的计数器值显示错误问题。
\item 修复附录命令 \cs{appendix} 的可选参数设置英文目录中条目名字和编号失效的问题。
diff --git a/macros/latex/contrib/hvqrurl/Changes b/macros/latex/contrib/hvqrurl/Changes
index 7dcfb5b15a..c4b25d48e5 100644
--- a/macros/latex/contrib/hvqrurl/Changes
+++ b/macros/latex/contrib/hvqrurl/Changes
@@ -1,4 +1,5 @@
hvqrurl.sty:
+0.05 2024-01-28 - added optional argument for alternative link text
0.04 2024-01-18 - fix for wrong text
0.03 2023-10-29 - fix for # in an url
0.02 2021-05-18 - added optional argument qrreverse to the set
diff --git a/macros/latex/contrib/hvqrurl/doc/hvqrurl.pdf b/macros/latex/contrib/hvqrurl/doc/hvqrurl.pdf
index c2a087895c..513df9f516 100644
--- a/macros/latex/contrib/hvqrurl/doc/hvqrurl.pdf
+++ b/macros/latex/contrib/hvqrurl/doc/hvqrurl.pdf
Binary files differ
diff --git a/macros/latex/contrib/hvqrurl/doc/hvqrurl.tex b/macros/latex/contrib/hvqrurl/doc/hvqrurl.tex
index a67122f6bd..e60a7a2511 100644
--- a/macros/latex/contrib/hvqrurl/doc/hvqrurl.tex
+++ b/macros/latex/contrib/hvqrurl/doc/hvqrurl.tex
@@ -1,4 +1,4 @@
-%% $Id: hvqrurl.tex 837 2024-01-18 07:43:31Z herbert $
+%% $Id: hvqrurl.tex 848 2024-01-28 11:57:35Z herbert $
\listfiles
\errorcontextlines=100
\documentclass[twoside=on,usegeometry]{scrartcl}
@@ -159,6 +159,21 @@ With the optional argument \Lkeyword{qrreverse} it can be placed in the left or
This one (\hvqrurl[qrreverse]{https://latex.texnik.de}) is in the other margin.
\end{lstlisting}
+\subsection{Alternative link text}
+By default the QR code is set with the given text. If the link is too long, one
+can use a short link with the optional argument \Lkeyword{linktext} for the text and
+the long link for the qrcode, like
+this one: \hvqrurl[linktext=https://www.uni-bonn.de]%
+{https://www.uni-bonn.de/de/studium/studienangebot/studiengaenge-a-z/kunstgeschichte-bazf?set_language=de}.
+
+\begin{lstlisting}
+By default the QR code is set with the given text. If the link is too long, one
+can use a short link with the optional argument \Lkeyword{linktext} for the text and
+the long link for the qrcode, like
+this one: \hvqrurl[linktext=https://www.uni-bonn.de]%
+{https://www.uni-bonn.de/de/studium/studienangebot/studiengaenge-a-z/kunstgeschichte-bazf?set_language=de}.
+\end{lstlisting}
+
\printindex
diff --git a/macros/latex/contrib/hvqrurl/latex/hvqrurl.sty b/macros/latex/contrib/hvqrurl/latex/hvqrurl.sty
index e016534270..604a7ce87f 100644
--- a/macros/latex/contrib/hvqrurl/latex/hvqrurl.sty
+++ b/macros/latex/contrib/hvqrurl/latex/hvqrurl.sty
@@ -1,4 +1,4 @@
-%% $Id: hvqrurl.sty 837 2024-01-18 07:43:31Z herbert $
+%% $Id: hvqrurl.sty 848 2024-01-28 11:57:35Z herbert $
%%
%% This file is distributed under the terms of the LaTeX Project Public
%% License from CTAN archives in directory macros/latex/base/lppl.txt.
@@ -7,7 +7,7 @@
% Copyright 2019,21,23,24 Herbert Voss hvoss@tug.org
%%
\ProvidesPackage{hvqrurl}[%
- 2024/01/18 v.0.04 (Herbert Voss) Supports qr images into the margin (hv)]
+ 2024/01/28 v.0.05 (Herbert Voss) Supports qr images into the margin (hv)]
%
\NeedsTeXFormat{LaTeX2e}
\RequirePackage{url}
@@ -24,9 +24,11 @@
\define@key{hvqr}{qrcolor}[black]{\colorlet{qr@url@qrcolor}{#1}}
\define@key{hvqr}{qrlevel}[M]{\def\qr@url@qrlevel{#1}}
\define@key{hvqr}{qrlink}[link]{\def\qr@url@qrlink{#1}}
+\define@key{hvqr}{linktext}[]{\def\qr@url@linktext{#1}}
\define@boolkey{hvqr}[hv@]{qrreverse}[true]{}
-\setkeys{hvqr}{qrheight,qrcolor=black,qradjust,qrlevel,qrlink=link,qrreverse=false}% the default setting
+\setkeys{hvqr}{qrheight,qrcolor=black,qradjust,qrlevel,qrlink=link,
+ qrreverse=false,linktext={}}% the default setting
\newcommand*\hvqrset[1]{\setkeys{hvqr}{#1}}
@@ -41,7 +43,11 @@
\expandafter\qrset\expandafter{\qr@url@qrlink,height=\qr@url@qrheight,level=\qr@url@qrlevel}%
\ifhv@qrreverse\reversemarginpar\fi
\if@tempswa
- \edef\hv@foo{\detokenize\expandafter{#2}}%
+ \ifx\relax\qr@url@linktext\relax % alternative link text??
+ \edef\hv@foo{\detokenize\expandafter{#2}}%
+ \else
+ \edef\hv@foo{\detokenize\expandafter{\qr@url@linktext}}%
+ \fi
\expandafter\url\expandafter{\hv@foo}%
\fi
\edef\reserved@a{\noexpand\marginnote{\noexpand\color{qr@url@qrcolor}\noexpand\qrcode{%
diff --git a/macros/latex/contrib/randexam/randexam-a-answer.pdf b/macros/latex/contrib/randexam/randexam-a-answer.pdf
index 732b941999..d7d570e9b2 100644
--- a/macros/latex/contrib/randexam/randexam-a-answer.pdf
+++ b/macros/latex/contrib/randexam/randexam-a-answer.pdf
Binary files differ
diff --git a/macros/latex/contrib/randexam/randexam-a-answer.tex b/macros/latex/contrib/randexam/randexam-a-answer.tex
index d431b45732..fdfec30618 100644
--- a/macros/latex/contrib/randexam/randexam-a-answer.tex
+++ b/macros/latex/contrib/randexam/randexam-a-answer.tex
@@ -12,11 +12,12 @@
\examtitle{name=Math 1906 Final Exam,date=2018-06-28,version=A} % make exam title
-\gradetable
+\gradetable[total=4]
-\examgroup{Fill in the blanks.}{6 questions; 3 points for each; 18 points in total.}
+\exampart{Fill in the blanks.}{6 questions; 3 points for each; 18 points in total.}
-\answertable[3em]{6}{3} % make answer table: height 3em, six in total, three for each row
+% make answer table: six in total, three for each row, strut height 3em
+\answertable[total=6,column=3,strut=3em]
\begin{question}
The first question $k>0$, text $f(x)=\ln x-\frac{x}{\e}+k$ text $(0,+\infty)$
@@ -70,9 +71,10 @@ text text text text text text text text text text $\xi-2\eta\sim$ \fillout{$N(-3
\newpage
-\examgroup{Select one answer from four choices.}{6 questions; 3 points for each; 18 points in total.}
+\exampart{Select one answer from four choices.}{6 questions; 3 points for each; 18 points in total.}
-\answertable{6}{6} % 生成答题栏:默认行高,总共8题,每行8题
+% make answer table: six in total, six for each row, default strut height
+\answertable[total=6,column=6]
\begin{question}
The first question text, text text text text text text text text text text
@@ -168,7 +170,7 @@ text text text text text text text text text text text text text text \pickout{D
\newpage
-\examgroup{Work out math questions.}{6 questions; 8 points for each; 48 points in total.}
+\exampart{Work out math questions.}{6 questions; 8 points for each; 48 points in total.}
\begin{question}
The first question $\int\e^{2x}\,(\tan x+1)^2\dx$.
@@ -305,9 +307,9 @@ Text text $H_0:\mu=3140$ text text ($\alpha = 0.01$).
\newpage
-\examgroup{Work out math proofs.}{2 questions; 16 points in total.}
+\exampart{Work out math proofs.}{2 questions; 16 points in total.}
-\renewcommand{\solutionname}{Proof} % 将“解”字改为“证”字
+\DeclareExamTranslation{current}{solution-Solution=Proof} % rename "Solution" as "Proof"
\begin{question}[points=9]
The first question $\{x_n\}$ text $x_1=\sqrt2$, $x_{n+1}=\sqrt{2+x_n}$.
diff --git a/macros/latex/contrib/randexam/randexam-a-blank.pdf b/macros/latex/contrib/randexam/randexam-a-blank.pdf
index 2da2d3748f..1a85a26f4c 100644
--- a/macros/latex/contrib/randexam/randexam-a-blank.pdf
+++ b/macros/latex/contrib/randexam/randexam-a-blank.pdf
Binary files differ
diff --git a/macros/latex/contrib/randexam/randexam-b-answer.pdf b/macros/latex/contrib/randexam/randexam-b-answer.pdf
index 699a82d055..349d3a80d9 100644
--- a/macros/latex/contrib/randexam/randexam-b-answer.pdf
+++ b/macros/latex/contrib/randexam/randexam-b-answer.pdf
Binary files differ
diff --git a/macros/latex/contrib/randexam/randexam-b-blank.pdf b/macros/latex/contrib/randexam/randexam-b-blank.pdf
index e9dd01eab3..5ee6962d09 100644
--- a/macros/latex/contrib/randexam/randexam-b-blank.pdf
+++ b/macros/latex/contrib/randexam/randexam-b-blank.pdf
Binary files differ
diff --git a/macros/latex/contrib/randexam/randexam.cls b/macros/latex/contrib/randexam/randexam.cls
index 8f5ae8bde9..d103dfe558 100644
--- a/macros/latex/contrib/randexam/randexam.cls
+++ b/macros/latex/contrib/randexam/randexam.cls
@@ -5,9 +5,9 @@
% ----------------------------------------------------------------------------
\NeedsTeXFormat{LaTeX2e}
-\ProvidesClass{randexam}[2024-01-20 v2024B Make an exam paper and its randomized variants]
+\ProvidesClass{randexam}[2024-01-28 v2024C Make an exam paper and its randomized variants]
-%% Old LaTeX release could not recongnize date format like 2022-11-01
+%% Old LaTeX release could not recognize date format like 2022-11-01
%\@ifl@t@r\fmtversion{2022-11-01}{}{
\@ifl@t@r\fmtversion{2022/11/01}{}{
\ClassError{randexam}{%
@@ -16,6 +16,9 @@
}{Please update your TeX distribution first.}
}
+\RequirePackage{functional}
+\IgnoreSpacesOn
+
\RequirePackage{etoolbox}
\newbool{plain} \boolfalse{plain} % use plain page style
@@ -27,7 +30,7 @@
\newbool{amsfonts} \boolfalse{amsfonts} % use ams fonts
\newbool{freealign} \boolfalse{freealign} % load freealign package
\newbool{medmath} \boolfalse{medmath} % use medium-size formulas
-\newbool{grader} \boolfalse{grader} % add grader line in the grade table
+\newbool{evaluator} \boolfalse{evaluator} % add evaluator line in the grade table
\DeclareKeys{
plain .if = plain,
@@ -39,7 +42,7 @@
amsfonts .if = amsfonts,
freealign .if = freealign,
medmath .if = medmath,
- grader .if = grader,
+ evaluator .if = evaluator,
many .code = \booltrue{freealign},
most .code = \booltrue{freealign}\booltrue{medmath}
}
@@ -66,7 +69,6 @@
\RequirePackage{zref-user,zref-lastpage}
\RequirePackage{tabularx}
\RequirePackage{xcolor}
-\RequirePackage{xkeyval}
\ifplain
\allowdisplaybreaks[4]
@@ -91,6 +93,103 @@
\NewDocumentCommand\SetExamOption{+m}{\SetKeys[randexam]{#1}}
%% ---------------------------------------------------------------------------
+%% Template commands for exam elements
+%% ---------------------------------------------------------------------------
+
+%% #1: exam element; #2: template name; #3: template code
+%% If the template name = default, we enable the template at once
+%% Otherwise, we may enable the template by using \SelectExamTemplate command
+\NewDocumentCommand\DeclareExamTemplate{mm+m}{
+ \tlSet{\expName{l@rdxm@template@#1@#2@tl}}{#3}
+ \ignorespaces
+}
+
+%% #1: exam element; #2: template name
+\NewDocumentCommand\SelectExamTemplate{mm}{
+ \tlSetEq{\expName{l@rdxm@template@#1@default@tl}}{\expName{l@rdxm@template@#1@#2@tl}}
+ \ignorespaces
+}
+
+%% #1: exam element; #2: template name.
+%% In an expandable command, we should use \UseName but not \expName.
+\NewExpandableDocumentCommand\UseExamTemplate{mm}{
+ \UseName{l@rdxm@template@#1@#2@tl}
+}
+
+%% ---------------------------------------------------------------------------
+%% Translation commands for exam keywords
+%% ---------------------------------------------------------------------------
+
+\tlSet\l@rdxm@current@language@tl{english}
+
+\DeclareUnknownKeyHandler[randexam-translation]{
+ \tlSet{\expName{l@rdxm@translate@\l@rdxm@declare@language@tl @#1@tl}}{#2}
+}
+
+%% #1: language name; #2: a keyval list with keyword = transaltion format
+\NewDocumentCommand\DeclareExamTranslation{mm}{
+ \tlIfEqTF{#1}{current}{
+ \tlSetEq\l@rdxm@declare@language@tl\l@rdxm@current@language@tl
+ }{
+ \tlSet\l@rdxm@declare@language@tl{#1}
+ }
+ \SetKeys[randexam-translation]{#2}
+ \ignorespaces
+}
+
+%% #1: language name
+\NewDocumentCommand\SelectExamTranslation{m}{
+ \tlSet\l@rdxm@current@language@tl{#1}
+ \ignorespaces
+}
+
+%% #1: keyword name.
+%% In an expandable command, we should use \UseName but not \expName.
+\NewExpandableDocumentCommand\UseExamTranslation{m}{
+ \UseName{l@rdxm@translate@\l@rdxm@current@language@tl @#1@tl}
+}
+
+\DeclareExamTranslation{english}{
+ answertable-Answer = Answer
+ ,answertable-Number = Number
+ ,examdata-Appendix = Appendix
+ ,exampart-Part = Part
+ ,examtitle-Name = Name
+ ,examtitle-Solutions = Solutions
+ ,gradetable-Evaluator = Evaluator
+ ,gradetable-Part = Part
+ ,gradetable-Score = Score
+ ,gradetable-Total = Total
+ ,headfoot-Name = Name
+ ,headfoot-of = of
+ ,headfoot-Page = Page
+ ,headfoot-Solutions = Solutions
+ ,headfoot-Version = Version
+ ,points-point = point
+ ,points-points = points
+ ,question-Question = Question
+ ,solution-Solution = Solution
+}
+
+\SelectExamTranslation{english}
+
+%% ---------------------------------------------------------------------------
+%% Keyvalue commands for exam options
+%% ---------------------------------------------------------------------------
+
+%% #1 module name; #2: key name; #3: its value
+\NewDocumentCommand\DeclareExamValue{mm+m}{
+ \tlSet{\expName{l@rdxm@value@#1@#2@tl}}{#3}
+ \ignorespaces
+}
+
+%% #1: module name; #2: key name.
+%% In an expandable command, we should use \UseName but not \expName.
+\NewExpandableDocumentCommand\UseExamValue{mm}{
+ \UseName{l@rdxm@value@#1@#2@tl}
+}
+
+%% ---------------------------------------------------------------------------
%% Command for exam title: \examtitle
%% ---------------------------------------------------------------------------
@@ -101,88 +200,143 @@
\newcommand{\ischeck}[1]{\ifnum#1>0\,$\checkmark$\,\else\quad\fi}
\newcommand{\isquad}[1]{\ifnum#1=0\,$\checkmark$\,\else\quad\fi}
-\def\rdxm@temp@a{A}
-\def\rdxm@temp@c{C}
-\def\rdxm@empty{}
-
\DeclareKeys[randexam-title]{
- name .store = \@rdxm@title@name,
- date .store = \@rdxm@title@date,
- version .store = \@rdxm@title@version
+ name .code = \DeclareExamValue{examtitle}{name}{#1}
+ ,date .code = \DeclareExamValue{examtitle}{date}{#1}
+ ,version .code = \DeclareExamValue{examtitle}{version}{#1}
}
\NewDocumentCommand\SetExamTitle{+m}{\SetKeys[randexam-title]{#1}}
-\SetExamTitle{name=Math 1906,date=\today,version=A}
+\SetExamTitle{name=Math~1906,date=\today,version=A}
-\newcommand\examtitle[1]{%
- \SetExamTitle{#1}%
- \thispagestyle{plain}
- \ifbool{random}{%
- \ifx\@rdxm@title@version\rdxm@temp@a\def\@rdxm@title@version{B}\fi
- \ifx\@rdxm@title@version\rdxm@temp@c\def\@rdxm@title@version{D}\fi
- }{}%
+\DeclareExamTemplate{examtitle}{normal}{
\begingroup
\Large\noindent
- \ifbool{answer}{%
- \textcolor{red!80!black}{\@rdxm@title@name\hfill Solutions}%
- }{%
- \@rdxm@title@name\hfill Name:\underspace{6em}%
+ \ifbool{answer}{
+ \textcolor{red!80!black}{
+ \UseExamValue{examtitle}{name}\hfill\UseExamTranslation{examtitle-Solutions}
+ }
+ }{
+ \UseExamValue{examtitle}{name}\hfill\UseExamTranslation{examtitle-Name}:\underspace{6em}
}\par
\endgroup
}
+\SelectExamTemplate{examtitle}{normal}
+
+\NewDocumentCommand\examtitle{+m}{
+ \SetExamTitle{#1}
+ \thispagestyle{plain}
+ \ifbool{random}{
+ \tlIfEqT{\expWhole{\UseExamValue{examtitle}{version}}}{A}{
+ \DeclareExamValue{examtitle}{version}{B}
+ }
+ \tlIfEqT{\expWhole{\UseExamValue{examtitle}{version}}}{C}{
+ \DeclareExamValue{examtitle}{version}{D}
+ }
+ }{}
+ \UseExamTemplate{examtitle}{default}
+}
%% ---------------------------------------------------------------------------
%% Command for grade table: \gradetable
%% ---------------------------------------------------------------------------
-%% You need to put .code:n before .initial:n
-\DeclareKeys[randexam]{%
- groupnumber .code:n = \let\exam@group@number#1,
- groupnumber .initial:n = \Roman,
+%% total: total number of parts in current exam;
+%% strut: strut height in the score row.
+\DeclareKeys[randexam-gradetable]{
+ total .code = \DeclareExamValue{gradetable}{total}{#1}
+ ,total .initial:n = 6
+ ,strut .code = \DeclareExamValue{gradetable}{strut}{#1}
+ ,strut .initial:n = 2.5em
}
\newcounter{@exam@grade@cnt}
-\newcommand\rdxm@group@number[1]{%
- \stepcounter{@exam@grade@cnt}%
- \exam@group@number{@exam@grade@cnt}%
+\newrobustcmd\rdxm@part@number[1]{
+ \setcounter{@exam@grade@cnt}{#1}
+ \exam@part@number{@exam@grade@cnt}
}
-\newcommand\insertgroupname{Part}
-\newcommand\insertscorename{Score}
-\newcommand\insertgradername{Grader}
-\newcommand\inserttotalname{Total}
+%% #1: the tl variable; #2: the first cell; #3: the last cell
+%% #4: the number of middle cells; #5: the map command for middle cells.
+\newrobustcmd\rdxm@table@make@row[5]{
+ \tlSet#1{#2 & }
+ \intStepOneInline{1}{#4}{
+ \tlPutRight#1{#5{##1} &}
+ }
+ \tlPutRight#1{ #3}
+}
-\newcommand\gradetable{%
- \par\vspace{1em}%
- \setcounter{@exam@grade@cnt}{0}%
- \noindent\begin{tabularx}{\linewidth}{|*{8}{Y|}}
- \hline
- \textbf{\insertgroupname}
- & \rdxm@group@number{1} & \rdxm@group@number{2} & \rdxm@group@number{3}
- & \rdxm@group@number{4} & \rdxm@group@number{5} & \rdxm@group@number{6}
- & \inserttotalname\\
- \hline
- \textbf{\insertscorename}\rule[-0.75em]{0pt}{2.5em} & & & & & & & \\
+\newrobustcmd\rdxm@gobble@one[1]{}
+
+%% \dimeval or \dimexpr doesn't accept decimal numbers such as 0.3
+\NewDocumentCommand\MakeExamStruct{m}{
+ \rule[-\dimeval{(#1)*3/10}]{0pt}{#1}
+}
+
+\DeclareExamTemplate{gradetable}{normal}{
+ \rdxm@table@make@row
+ \l@rdxm@gradetable@part@tl
+ {\textbf{\UseExamTranslation{gradetable-Part}}}
+ {\UseExamTranslation{gradetable-Total}}
+ {\UseExamValue{gradetable}{total}}
+ \rdxm@part@number
+ \rdxm@table@make@row
+ \l@rdxm@gradetable@score@tl
+ {\textbf{\UseExamTranslation{gradetable-Score}}
+ \MakeExamStruct{\UseExamValue{gradetable}{strut}}}
+ {}
+ {\UseExamValue{gradetable}{total}}
+ \rdxm@gobble@one
+ \ifbool{evaluator}{
+ \rdxm@table@make@row
+ \l@rdxm@gradetable@evaluator@tl
+ {\textbf{\UseExamTranslation{gradetable-Evaluator}}
+ \MakeExamStruct{\UseExamValue{gradetable}{strut}}}
+ {}
+ {\UseExamValue{gradetable}{total}}
+ \rdxm@gobble@one
+ }{}
+ \noindent
+ \begin{tabularx}{\linewidth}{|c|*{\UseExamValue{gradetable}{total}}{Y|}Y|}
\hline
- \ifbool{grader}{
- \textbf{\insertgradername}\rule[-0.75em]{0pt}{2.5em} & & & & & & & \\
- \hline
- }{}
+ \l@rdxm@gradetable@part@tl \\ \hline
+ \l@rdxm@gradetable@score@tl \\ \hline
+ \ifbool{evaluator}{\l@rdxm@gradetable@evaluator@tl \\ \hline}{}
\end{tabularx}
}
+\SelectExamTemplate{gradetable}{normal}
+
+\NewDocumentCommand\gradetable{O{}}{
+ \par\vspace{1em}
+ \begingroup
+ \SetKeys[randexam-gradetable]{#1}
+ \UseExamTemplate{gradetable}{default}
+ \endgroup
+}
%% ---------------------------------------------------------------------------
%% Setting header and footer
%% ---------------------------------------------------------------------------
\newcommand{\rdxm@columnbox}[1]{\makebox[\columnwidth]{#1}}
-\newcommand{\rdxm@headleft}{\@rdxm@title@name}
-\newcommand{\rdxm@headright}{\ifbool{answer}{Solutions}{Name:\hspace{12em}}}
+\newcommand{\rdxm@headleft}{\UseExamValue{examtitle}{name}}
+\newcommand{\rdxm@headright}{
+ \ifbool{answer}{
+ \UseExamTranslation{headfoot-Solutions}
+ }{
+ \UseExamTranslation{headfoot-Name}:\hspace{12em}
+ }
+}
\newcommand{\rdxm@headtext}{\rdxm@headleft\hfill\rdxm@headright}
-\newcommand{\rdxm@footleft}{\@rdxm@title@date}
-\newcommand{\rdxm@footcenter}{Page~\thepage~of~\zpageref{LastPage}}
-\newcommand{\rdxm@footright}{Version \@rdxm@title@version}
+\newcommand{\rdxm@footleft}{\UseExamValue{examtitle}{date}}
+\newcommand{\rdxm@footcenter}{
+ \UseExamTranslation{headfoot-Page}~\thepage\space
+ \UseExamTranslation{headfoot-of}~\zpageref{LastPage}
+}
+\newcommand{\rdxm@footright}{
+ \UseExamTranslation{headfoot-Version}~\UseExamValue{examtitle}{version}
+}
\newcommand{\rdxm@foottext}{\rdxm@footleft\hfill\rdxm@footcenter\hfill\rdxm@footright}
% fancy page style
@@ -235,7 +389,7 @@
\RequirePackage{pgffor}
\newcommand*\exam@set@seed{%
%% 当\pgfmathrandom的参数为3的倍数时,对相邻种子生成的多个随机数分布不均匀
- %\pgfmathsetseed{\numexpr\rdxm@random@seed+\value{rdxm@group}-1\relax}%
+ %\pgfmathsetseed{\numexpr\rdxm@random@seed+\value{rdxm@part}-1\relax}%
%% 因此我们改用下面的方法,用随机数种子生成下一个随机数种子
\pgfmathsetseed{\rdxm@random@seed}%
\pgfmathrandominteger\rdxm@random@seed{1}{2147483647}%
@@ -243,25 +397,31 @@
\fi
%% ---------------------------------------------------------------------------
-%% Command for exam groups: \examgroup
+%% Command for exam groups: \exampart
%% Command for appendix data: \examdata
%% Environment for questions: question
%% Environment for solutions: solution
%% ---------------------------------------------------------------------------
+%% You need to put .code before .initial:n
+\DeclareKeys[randexam-exampart]{%
+ partnumber .code = \let\exam@part@number#1,
+ partnumber .initial:n = \Roman,
+}
+
\newif\ifonlyonequestion \onlyonequestionfalse % 此部分仅有一道题时不显示题目编号
\xdef\allquestions{}
\xdef\lastquestion{}
\newcounter{question} % 当前题型的小题编号
\newcounter{questionreal} % 实际显示的小题编号,在各题型小题统一编号时使用
\newcounter{totalquestions} % 之前各题型小题总数,在各题型小题统一编号时使用
-\newcommand{\solutionname}{Solution}
+
\newcounter{choice} % 后面选择题的 abcd 环境要用到
\newcommand{\hangtext}{}
\newlength{\hanglength}
-\colorlet{group number}{black}
-\colorlet{question number}{blue!80!black}
-\colorlet{solution name}{blue!80!black}
+\colorlet{part~number}{black}
+\colorlet{question~number}{blue!80!black}
+\colorlet{solution~name}{blue!80!black}
\newcounter{rdxm@shuffle@temp@cnt}
\newcounter{rdxm@list@temp@cnt}
@@ -337,19 +497,29 @@
\xdef\lastquestion{}%
}
-\newcounter{rdxm@group}
+\newcounter{rdxm@part}
-\newcommand\insertgroup[2]{%
- \noindent\textbf{\textcolor{group number}{Part~\Roman{rdxm@group}}: #1} (#2)%
+\DeclareExamTemplate{exampart}{normal}{
+ \noindent
+ \textbf{
+ \textcolor{part~number}{\UseExamTranslation{exampart-Part}~\Roman{rdxm@part}}
+ :~\UseExamValue{exampart}{type}
+ }
+ \space(\UseExamValue{exampart}{points})
}
+\SelectExamTemplate{exampart}{normal}
-\newcommand{\examgroup}[2]{%
+\newcommand{\exampart}[2]{
\printquestions
- \setcounter{totalquestions}{\value{totalquestions}+\value{question}}%
- \setcounter{question}{0}%
- \stepcounter{rdxm@group}%
- \vspace{1em}%
- \insertgroup{#1}{#2}%
+ \setcounter{totalquestions}{\value{totalquestions}+\value{question}}
+ \setcounter{question}{0}
+ \stepcounter{rdxm@part}
+ \vspace{1em}
+ \begingroup
+ \DeclareExamValue{exampart}{type}{#1}
+ \DeclareExamValue{exampart}{points}{#2}
+ \UseExamTemplate{exampart}{default}
+ \endgroup
\par\nopagebreak
\if\relax\detokenize{#1}\relax % #1 is empty
\onlyonequestiontrue
@@ -361,57 +531,96 @@
\@afterheading
}
-\renewcommand\appendixname{Appendix}
-\newcommand{\examdata}[1]{%
+\DeclareExamTemplate{examdata}{normal}{
+ \centerline{
+ \textbf{\UseExamTranslation{examdata-Appendix}}
+ \quad\UseExamValue{examdata}{caption}
+ }
+ \smallskip
+}
+\SelectExamTemplate{examdata}{normal}
+
+\NewDocumentCommand\examdata{+m}{
\printquestions\rdxm@stop@random
- \centerline{\textbf{\appendixname}\quad #1}\smallskip
+ \DeclareExamValue{examdata}{caption}{#1}
+ \UseExamTemplate{examdata}{default}
}
\preto{\@enddocumenthook}{\printquestions\rdxm@stop@random}
\newcommand\ignorepars{\@ifnextchar\par{\expandafter\ignorepars\@gobble}{}}
-% 局部定义,仅在当前题目内有效
-\define@key{exam@question}{points}[-1]{\def\rdxm@question@points{#1}}
-\define@key{exam@question}{level}[]{\def\rdxm@question@level{#1}}
-\define@key{exam@question}{year}[]{\def\rdxm@question@year{#1}}
+% local definition, valid only in current question
+\DeclareKeys[randexam-question]{
+ points .store = \l@rdxm@question@points
+ ,level .store = \l@rdxm@question@level
+ ,year .store = \l@rdxm@question@year
+}
-\newcommand\pointname{point}
-\newcommand\pointsname{points}
-\newcommand\pointorpoints[1]{\ifnumgreater{#1}{1}{\pointsname}{\pointname}}
+\newcommand\pointorpoints[1]{
+ \ifnumgreater{#1}{1}{
+ \UseExamTranslation{points-points}
+ }{
+ \UseExamTranslation{points-point}
+ }
+}
\newcommand{\questionpointstext}[1]{ (#1 \pointorpoints{#1}) }
\newcommand\rdxm@hook@exec@other@keys{}
-\newcommand{\execute@question@keys}[1]{%
- \setkeys{exam@question}{#1}%
+\newrobustcmd\execute@question@keys{
\rdxm@hook@exec@other@keys
- \ifdefvoid{\rdxm@question@points}{}{\questionpointstext{\rdxm@question@points}}%
+ \ifdefvoid{\l@rdxm@question@points}{}{\questionpointstext{\l@rdxm@question@points}}
}
-\newenvironment{questionreal}[1][]{%
- \stepcounter{question}\setcounter{choice}{0}%
+\DeclareExamTemplate{questionbegin}{normal}{
\ifresetnumber
\ifonlyonequestion
\renewcommand{\hangtext}{\qquad}%
\else
- \renewcommand{\hangtext}{\textbf{\textsf{\textcolor{question number}{\arabic{question}}.}}\;\,}%
+ \renewcommand{\hangtext}{\textbf{\textsf{\textcolor{question~number}{\arabic{question}}.}}\;\,}
\fi
\else
\setcounter{questionreal}{\value{totalquestions}+\value{question}}%
- \renewcommand{\hangtext}{\textbf{\textsf{\textcolor{question number}{\arabic{questionreal}}.}}\;\,}%
+ \renewcommand{\hangtext}{\textbf{\textsf{\textcolor{question~number}{\arabic{questionreal}}.}}\;\,}
\fi
- \settowidth{\hanglength}{\hangtext}%
+ \settowidth{\hanglength}{\hangtext}
\description[leftmargin=\hanglength,labelwidth=0pt,labelsep=0pt,topsep=0pt,parsep=0pt]
- \item[\hangtext]\execute@question@keys{#1}%
-}{\enddescription}
-\newenvironment{solutionreal}{%
- \renewcommand{\hangtext}{\textbf{\textsf{\textcolor{solution name}{\solutionname}.}}\;\,}%
- \settowidth{\hanglength}{\hangtext}%
+ \item[\hangtext]\execute@question@keys
+}
+\SelectExamTemplate{questionbegin}{normal}
+
+\DeclareExamTemplate{questionend}{normal}{\enddescription}
+\SelectExamTemplate{questionend}{normal}
+
+\NewDocumentEnvironment{questionreal}{O{}}{
+ \stepcounter{question}
+ \setcounter{choice}{0}
+ \SetKeys[randexam-question]{#1}
+ \UseExamTemplate{questionbegin}{default}
+}{
+ \UseExamTemplate{questionend}{default}
+}
+
+\DeclareExamTemplate{solutionbegin}{normal}{
+ \renewcommand{\hangtext}{
+ \textbf{\textsf{\textcolor{solution~name}{\UseExamTranslation{solution-Solution}}.}}\;\,
+ }
+ \settowidth{\hanglength}{\hangtext}
\description[leftmargin=\hanglength,labelwidth=0pt,labelsep=0pt,topsep=0pt,parsep=0pt]
\item[\hangtext]
-}{\enddescription}
+}
+\SelectExamTemplate{solutionbegin}{normal}
+
+\DeclareExamTemplate{solutionend}{normal}{\enddescription}
+\SelectExamTemplate{solutionend}{normal}
+
+\NewDocumentEnvironment{solutionreal}{}{
+ \UseExamTemplate{solutionbegin}{default}
+}{
+ \UseExamTemplate{solutionend}{default}
+}
\let \oldnewpage = \newpage
\let \oldvfill = \vfill
@@ -480,28 +689,37 @@
%% Command for answer tables: \answertable
%% ---------------------------------------------------------------------------
+%% property .store is the same as .tl_set:N in ltkeys.
+%% you need to put .code before .initial:n.
+%% total: total number of questions in current exam part;
+%% column: number of questions in each answer row;
+%% strut: strut height in each answer rows;
+%% notice: notice text before the answer table.
+\DeclareKeys[randexam-answertable]{
+ total .code = \DeclareExamValue{answertable}{total}{#1}
+ ,column .code = \DeclareExamValue{answertable}{column}{#1}
+ ,strut .code = \DeclareExamValue{answertable}{strut}{#1}
+ ,strut .initial:n = 1em
+ ,notice .code = \DeclareExamValue{answertable}{notice}{#1}
+ ,notice .initial:n = {Notice:~you~MUST~write~the~answers~in~the~following~tables.}
+}
+
\gdef\answer@lines@temp{}%
\newcommand{\answer@lines@add}[1]{%
\xdef\answer@lines@temp{\answer@lines@temp#1}%
}
-\newcommand\insertnumbertext{Number}
-\newcommand\insertanswertext{Answer}
-\newcommand\insertanswertabletext{%
- Notice: you MUST write the answers in the following tables.%
+\newrobustcmd\answer@number@hided[1]{\UseExamTranslation{answertable-Number}}
+\newrobustcmd\answer@cell@strut[1]{
+ \parbox[c][#1][c]{2em}{\hbox{\UseExamTranslation{answertable-Answer}}}
}
-\newrobustcmd{\answer@number@hided}[1]{\insertnumbertext} % 在 PDFLaTeX 中需要保护中文
-\newrobustcmd{\answer@cell@strut}[1]{\parbox[c][#1][c]{2em}{\hbox{\insertanswertext}}}
-
\newcounter{answer@col}
\newcounter{answer@row}
\newcounter{answer@total}
+%% #1: strut; #2: total; #3: column.
\newcommand{\answer@lines}[3]{%
- % #1 答题栏各栏指定高度
- % #2 答题栏总共答案个数
- % #3 答题栏每行答案个数
\setcounter{answer@row}{(#2-1)/#3+1}% 除法向下取整,改为向上取整
\begingroup
\let\hline=\relax \let\\=\relax % 禁止展开
@@ -537,13 +755,22 @@
\answer@lines@temp
}
-\newcommand{\answertable}[3][1em]{%
- \insertanswertabletext\par
- \begin{tabularx}{\linewidth}{|c|*{#3}{Y|}}
+\DeclareExamTemplate{answertable}{normal}{
+ \UseExamValue{answertable}{notice}\par
+ \begin{tabularx}{\linewidth}{|c|*{\UseExamValue{answertable}{column}}{Y|}}
\hline
- \answer@lines{#1}{#2}{#3}
- \end{tabularx}%
- \par\vspace{0.8em}%
+ \answer@lines{\UseExamValue{answertable}{strut}}
+ {\UseExamValue{answertable}{total}}{\UseExamValue{answertable}{column}}
+ \end{tabularx}
+}
+\SelectExamTemplate{answertable}{normal}
+
+\NewDocumentCommand\answertable{O{}}{
+ \begingroup
+ \SetKeys[randexam-answertable]{#1}
+ \UseExamTemplate{answertable}{default}
+ \endgroup
+ \par\vspace{0.8em}
}
%% ---------------------------------------------------------------------------
@@ -940,3 +1167,5 @@
\let \downwhitearrow = \Downarrow
}}
+\IgnoreSpacesOff
+
diff --git a/macros/latex/contrib/randexam/randexam.pdf b/macros/latex/contrib/randexam/randexam.pdf
index 0c7f83abdf..2faabec1c8 100644
--- a/macros/latex/contrib/randexam/randexam.pdf
+++ b/macros/latex/contrib/randexam/randexam.pdf
Binary files differ
diff --git a/macros/latex/contrib/randexam/randexam.tex b/macros/latex/contrib/randexam/randexam.tex
index 9e38395b94..feb1af2e14 100644
--- a/macros/latex/contrib/randexam/randexam.tex
+++ b/macros/latex/contrib/randexam/randexam.tex
@@ -3,7 +3,7 @@
\documentclass[12pt,plain,most]{randexam}
\geometry{b5paper,margin=2cm}
-\newcommand*{\myversion}{2024B}
+\newcommand*{\myversion}{2024C}
\newcommand*{\mydate}{\the\year-\mylpad\month-\mylpad\day}
\newcommand*{\mylpad}[1]{\ifnum#1<10 0\the#1\else\the#1\fi}
@@ -46,6 +46,7 @@
\NewDocumentCommand\myfile{m}{\textcolor{purple3}{\mbox{#1}}}
\NewDocumentCommand\mykey{m}{\textcolor{brown3}{\mbox{\fakeverb{#1}}}}
\NewDocumentCommand\myval{m}{\textcolor{azure3}{\mbox{\fakeverb{#1}}}}
+\NewDocumentCommand\myelem{m}{\textcolor{violet3}{\mbox{#1}}}
\begin{document}
@@ -57,6 +58,7 @@
Title: \fillbox{\color{blue3}The randexam class for LaTeX}\\
Author: \fillbox{Jianrui Lyu (tolvjr@163.com)}\\
Version: \fillbox{\myversion{} (\mydate)}\\
+ Code: \fillbox{\url{https://github.com/lvjr/randexam}}\\
\hline
\end{tabularx}%
}
@@ -102,16 +104,16 @@ you add class option \myopt{random} (see Subsection \ref{opt:random}):
\subsection{Document body}
In document body you normally write an \mycmd{\examtitle},
-multiple \mycmd{\examgroup}, and an optional \mycmd{\examdata} commands:
+multiple \mycmd{\exampart}, and an optional \mycmd{\examdata} commands:
\begin{code}
\examtitle{name=Math Final Exam,date=2018-06-28,version=A}
......
-\examgroup{Fill in the blanks.}{3 points for each.}
+\exampart{Fill in the blanks.}{3 points for each.}
......
-\examgroup{Select one answer.}{3 points for each.}
+\exampart{Select one answer.}{3 points for each.}
......
-\examgroup{Work out math calculations.}{8 points for each.}
+\exampart{Work out math calculations.}{8 points for each.}
......
\examdata{Some data may be used in the exam}
......
@@ -130,16 +132,16 @@ If the \mykey{date} key is missing, it has the default value \myval{\today}.
When class option \myopt{random} is passed, the value of \mykey{version} key
will be modified from \myval{A} to \myval{B}.
-\subsection{Exam groups}
+\subsection{Exam parts}
-The questions in an exam could be separated into several groups:
+The questions in an exam could be separated into several parts:
\begin{code}
-\examgroup{Fill in the blanks.}{3 points for each.}
+\exampart{Fill in the blanks.}{3 points for each.}
......
-\examgroup{Select one answer.}{3 points for each.}
+\exampart{Select one answer.}{3 points for each.}
......
-\examgroup{Work out math calculations.}{8 points for each.}
+\exampart{Work out math calculations.}{8 points for each.}
......
\end{code}
@@ -160,7 +162,7 @@ or the exam variants will be incorrect.
\subsection{True-or-false questions}
\begin{code}
-\examgroup{True-or-false questions}{3 points for each.}
+\exampart{True-or-false questions}{3 points for each.}
\begin{question}
The first true-or-false question. \tickout{T}
@@ -189,7 +191,7 @@ so as to make \mypkg{randexam} hide them in generating blank exam papers.
\subsection{Fill-in-the-blank questions}
\begin{code}
-\examgroup{Fill in the blanks.}{3 points for each.}
+\exampart{Fill in the blanks.}{3 points for each.}
\begin{question}
The first fill-in-the-blank question \fillout{answer}.
@@ -217,7 +219,7 @@ so as to make \mypkg{randexam} hide them in generating blank exam papers.
\subsection{Multiple-choice questions}
\begin{code}
-\examgroup{Select one answer.}{3 points for each.}
+\exampart{Select one answer.}{3 points for each.}
\begin{question}
The first multiple-choice questions \pickout{A}.
@@ -275,7 +277,7 @@ according to the lengths of the choices.
For subjective questions, you could put answers inside \myenv{solution} environment.
\begin{code}
-\examgroup{Work out math calculations.}{8 points for each.}
+\exampart{Work out math calculations.}{8 points for each.}
\begin{question}
The first math calculation question.
@@ -315,7 +317,7 @@ Answer to the second question.
You can write other types of questions. For example:
\begin{code}
-\examgroup{Some question type}{4 points for each.}
+\exampart{Some question type}{4 points for each.}
\begin{question}
First question text. \answer{Answer text.}
@@ -345,10 +347,16 @@ Normally you need a grade table after exam title.
You can get it by using \mycmd{\gradetable} command.
\begin{code}
-\gradetable
+\gradetable[total=6,strut=2em]
\end{code}
-\gradetable
+\vspace{-1.5em}\gradetable[total=6,strut=2em]
+
+The meanings of keys in the \verb!\gradetable! command are:
+\begin{description}
+ \item[total] total number of parts in this exam.
+ \item[strut] strut height of the score row; its default value is \verb!2.5em!.
+\end{description}
\subsection{Answer tables}
@@ -356,17 +364,18 @@ Before true-or-false, fill-in-the-blank, or multiple-choice questions,
you may use \mycmd{\answertable} to generate an blank answer table:
\begin{code}
-\answertable[3em]{6}{3}
+\answertable[total=6,column=3,strut=3em]
\end{code}
-\answertable[3em]{6}{3}
+\answertable[total=6,column=3,strut=3em]
-The meanings of the three arguments of \verb!\answertable! commands are as follows:
-\begin{itemize}
- \item The first one means the strut height of the answer rows; its default value is \verb!1em!.
- \item The second one means the total number of questions in this exam group.
- \item The third one means the number of questions in each row.
-\end{itemize}
+The meanings of keys in the \verb!\answertable! command are:
+\begin{description}
+ \item[total] total number of questions in this exam part.
+ \item[column] number of questions in each row.
+ \item[strut] strut height of the answer rows; its default value is \verb!1em!.
+ \item[notice] notice text before the answer table.
+\end{description}
\subsection{Vertical space}
@@ -412,12 +421,13 @@ This is a question.
\subsection{Solution name}
-If you want to change the name of \myenv{solution} environment,
-you could redefine \mycmd{\solutionname} command.
+If you would like to change the name of \myenv{solution} environment,
+you could modify the translation of \mykey{solution-Solution} keyword
+(see Subsection \ref{subsect:translation}).
The following example changes it from "Solution" to "Proof":
\begin{code}
-\renewcommand{\solutionname}{Proof}
+\DeclareExamTranslation{current}{solution-Solution=Proof}
\end{code}
\subsection{Points command}
@@ -498,7 +508,7 @@ The answers will be hidden in the compiled exam paper.
\subsection{Randomized variants}\label{opt:random}
Assume \myfile{exam-a-answer.tex} is an exam paper.
-You can get an randomized variant with all questions in the same group shuffled,
+You can get an randomized variant with all questions in the same part shuffled,
by creating an \myfile{exam-b-answer.tex} file with the following lines:
\begin{code}
@@ -507,7 +517,7 @@ by creating an \myfile{exam-b-answer.tex} file with the following lines:
\end{code}
That is to say, when adding \myopt{random} option to \mypkg{randexam} class,
-The questions in the same group will be shuffled in the compiled exam paper.
+The questions in the same part will be shuffled in the compiled exam paper.
Furthermore, four choices in an \myenv{abcd} environment will be shuffled too.
\subsection{Two column exam papers}
@@ -538,4 +548,147 @@ by creating a new TeX file with the following lines:
That is to say, you can make an exam of A3 size from an exam of A4 size,
even if you have only the PDF file.
+\section{Customizations}
+
+\subsection{Translations of keywords}\label{subsect:translation}
+
+With \mycmd{\DeclareExamTranslation} you can define the translaitons of the keywords
+in an \mypkg{randexam} paper. At this time only English keywords are defined:
+
+\begin{code}
+\DeclareExamTranslation{english}{
+ answertable-Answer = Answer
+ ,answertable-Number = Number
+ ,examdata-Appendix = Appendix
+ ,exampart-Part = Part
+ ,examtitle-Name = Name
+ ,examtitle-Solutions = Solutions
+ ,gradetable-Evaluator = Evaluator
+ ,gradetable-Part = Part
+ ,gradetable-Score = Score
+ ,gradetable-Total = Total
+ ,headfoot-Name = Name
+ ,headfoot-of = of
+ ,headfoot-Page = Page
+ ,headfoot-Solutions = Solutions
+ ,headfoot-Version = Version
+ ,points-point = point
+ ,points-points = points
+ ,question-Question = Question
+ ,solution-Solution = Solution
+}
+\end{code}
+
+You could translate them for another language and enable them with \mycmd{\SelectExamTranslation} command:
+
+\begin{code}
+\DeclareExamTranslation{somelang}{
+ question-Question = Questioooooon
+ ,solution-Solution = Soooooolution
+}
+\SelectExamTranslation{somelang}
+\end{code}
+\DeclareExamTranslation{somelang}{
+ question-Question = Questioooooon
+ ,solution-Solution = Soooooolution
+}
+\SelectExamTranslation{somelang}
+
+After this, you could load current translation of some keywords with \mycmd{\UseExamTranslation} command:
+
+\begin{code}
+\UseExamTranslation{question-Question}
+\UseExamTranslation{solution-Solution}
+\end{code}
+\hrule
+\UseExamTranslation{question-Question}
+\UseExamTranslation{solution-Solution}
+\vspace{0.5em}
+\hrule
+\vspace{0.5em}
+
+\SelectExamTranslation{english}
+
+This command is useful in defining new templates for the exam (see Subsection \ref{subsect:template}).
+
+\subsection{Saving and reading key values}
+
+With \mycmd{\DeclareExamValue} and \mycmd{\UseExamValue} you could save and read
+the value of a key, respectively.
+
+\begin{code}
+\DeclareExamValue{somemodule}{somekey}{SomeValue}
+\UseExamValue{somemodule}{somekey}
+\end{code}
+\hrule
+\DeclareExamValue{somemodule}{somekey}{SomeValue}
+\UseExamValue{somemodule}{somekey}
+\vspace{0.5em}
+\hrule
+\vspace{0.5em}
+
+These two commands are useful in defining new templates
+for the exam (see Subsection \ref{subsect:template}).
+
+\subsection{Templates of elements}\label{subsect:template}
+
+With \mycmd{\DeclareExamTemplate} you could define a new template for some exam element,
+which could be set as default template with \mycmd{\SelectExamTemplate}.
+And with \mycmd{\UseExamTemplate} you could use the default template of the element.
+
+To customize \myelem{examtitle} element for your school,
+you can write the following code in document preamble:
+\begin{code}
+\DeclareExamTemplate{examtitle}{myschool}{%
+ \fbox{%
+ \UseExamValue{examtitle}{name}\quad%
+ \UseExamValue{examtitle}{date}%
+ }%
+}%
+\SelectExamTemplate{examtitle}{myschool}
+\end{code}
+\DeclareExamTemplate{examtitle}{myschool}{%
+ \fbox{%
+ \UseExamValue{examtitle}{name}\quad%
+ \UseExamValue{examtitle}{date}%
+ }%
+}%
+\SelectExamTemplate{examtitle}{myschool}
+
+Then the \mycmd{\examtitle} command in document body will produce different result:
+\begin{code}
+\examtitle{name=Final Exam in My School,date=2024-01-01}
+\end{code}
+\vspace{-1em}
+\examtitle{name=Final Exam in My School,date=2024-01-01}
+
+Normally \mycmd{\examtitle} will call \mycmd{\UseExamTemplate{examtitle}{default}}.
+
+All elements that could be customized with templates in an exam paper
+are listed in the following table:
+
+\begingroup\renewcommand\arraystretch{1.5}\noindent
+\begin{tabularx}{\linewidth}{ll}
+\hline
+ \myelem{examtitle} & for customizing \mycmd{\examtitle} command \\
+\hline
+ \myelem{exampart} & for customizing \mycmd{\exampart} command \\
+\hline
+ \myelem{examdata} & for customizing \mycmd{\examdata} command \\
+\hline
+ \myelem{gradetable} & for customizing \mycmd{\gradetable} command \\
+\hline
+ \myelem{answertable} & for customizing \mycmd{\answertable} command \\
+\hline
+ \myelem{questionbegin} & for customizing \myenv{question} environment \\
+\hline
+ \myelem{questionend} & for customizing \myenv{question} environment \\
+\hline
+ \myelem{solutionbegin} & for customizing \myenv{solution} environment \\
+\hline
+ \myelem{solutionend} & for customizing \myenv{solution} environment \\
+\hline
+\end{tabularx}\par
+\endgroup
+
\end{document}
diff --git a/macros/latex/contrib/undar-digitacion/README.md b/macros/latex/contrib/undar-digitacion/README.md
new file mode 100644
index 0000000000..0010433ffb
--- /dev/null
+++ b/macros/latex/contrib/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/macros/latex/contrib/undar-digitacion/undar-digitacion-doc.pdf b/macros/latex/contrib/undar-digitacion/undar-digitacion-doc.pdf
new file mode 100644
index 0000000000..bb6f1aae66
--- /dev/null
+++ b/macros/latex/contrib/undar-digitacion/undar-digitacion-doc.pdf
Binary files differ
diff --git a/macros/latex/contrib/undar-digitacion/undar-digitacion-doc.tex b/macros/latex/contrib/undar-digitacion/undar-digitacion-doc.tex
new file mode 100644
index 0000000000..263535e0f0
--- /dev/null
+++ b/macros/latex/contrib/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/macros/latex/contrib/undar-digitacion/undar-digitacion.dtx b/macros/latex/contrib/undar-digitacion/undar-digitacion.dtx
new file mode 100644
index 0000000000..a474c2b298
--- /dev/null
+++ b/macros/latex/contrib/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/macros/latex/contrib/undar-digitacion/undar-digitacion.sty b/macros/latex/contrib/undar-digitacion/undar-digitacion.sty
new file mode 100644
index 0000000000..8caa646276
--- /dev/null
+++ b/macros/latex/contrib/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}
+}