CTAN sync 202401290301

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
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
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
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
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
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
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
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
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}
+}