summaryrefslogtreecommitdiff
path: root/macros/musictex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-01-29 03:01:04 +0000
committerNorbert Preining <norbert@preining.info>2024-01-29 03:01:04 +0000
commit6c43653052d016d5913aabb728c484f0e62b4754 (patch)
tree86463762682ace059db9efb216a1a4f0ad773688 /macros/musictex
parent7084e3008c8fc947579f46c6b8a08dfd180e72ef (diff)
CTAN sync 202401290301
Diffstat (limited to 'macros/musictex')
-rw-r--r--macros/musictex/FAQ240
-rw-r--r--macros/musictex/README40
-rw-r--r--macros/musictex/add-ons/harmonics.tex120
-rw-r--r--macros/musictex/musicdoc.pdfbin527211 -> 0 bytes
-rw-r--r--macros/musictex/undar-digitacion/README.md45
-rw-r--r--macros/musictex/undar-digitacion/undar-digitacion-doc.pdfbin165863 -> 0 bytes
-rw-r--r--macros/musictex/undar-digitacion/undar-digitacion-doc.tex834
-rw-r--r--macros/musictex/undar-digitacion/undar-digitacion.dtx3280
-rw-r--r--macros/musictex/undar-digitacion/undar-digitacion.sty2859
9 files changed, 0 insertions, 7418 deletions
diff --git a/macros/musictex/FAQ b/macros/musictex/FAQ
deleted file mode 100644
index 5165463c08..0000000000
--- a/macros/musictex/FAQ
+++ /dev/null
@@ -1,240 +0,0 @@
-
-FAQ 930127: Frequently Asked Questions pertaining to MusicTeX and MuTeX
-
--------------------------------------------------------------------------------
-
-NOTE: This is a bare bones beginning of what will constitute a more substantial
- "Frequently Asked Questions" for MuTeX and MusicTeX.
-
- Please mail your contributions to this to "mutex@stolaf.edu"
-
--------------------------------------------------------------------------------
-TABLE OF CONTENTS
--------------------------------------------------------------------------------
-
-01 What is MuTeX?
-02 Where can I get MuTeX and MusicTeX?
-03 Where are the archives of MuTeX mailing list?
-04 With MusicTeX I get notes and beams, but they are badly aligned,
- beams and slurs are offset to the right etc.
-05 I obtained easily the .TEX files but the .PK and .TFM are wrong.
-06 There is no documentation with MusicTeX.
-07 I run MusicTeX on SUNOS (or some other big computer) but I have
- memory problems with MSDOS
-08 Where's the glue? it's not clear to me when to use or not use \temps
- or just what it really does.
-09 When and why do you really need to put \relax at the end of a line?
-10 What are the advantages or disadvantages of using ^ instead of \sh?
- Is one more flexible, or is it just a matter of typing style?
-11 How can I put something somewhere in the MusicTeX staffs.
-12 I cannot print notice.tex with american paper.
-13 How can I make triplets?
-14 How can I offset vertically the rests, in order to avoid collision
- with beams or other notes in polyphonic music:
-
--------------------------------------------------------------------------------
-
-This FAQ list is kept up to date by the contributions of the members of the
-mutex mailing list. To participate in mutex and musictex discussions, you
-can subscribe to (or unsubscribe from) the "mutex" mailing list at the
-address:
- mutex-request@stolaf.edu
-To send a question to the entire membership of the mutex mailing list, use
-the address:
- mutex@stolaf.edu
-
--------------------------------------------------------------------------------
-01 What is MuTeX?
-
-The MuTeX package is a set of macros allowing TeX to typeset music. It was
-written by Andrea Steinbach and Angelika Schofer, as a master's thesis at
-Rheinische Friedrich-Wilhelms University. MuTeX allows you to typeset
-single-staff music and lyrics.
-
-
-01 What is MusicTeX?
-
-Another powerful package which allows the typesetting of orchestral and
-polifonic music is MusicTeX, written by Daniel Taupin.
-
-The main difference between MuTeX and MusicTeX is that
- - MusicTeX deals with multiple staves (staffs?)
- - MuTeX produces a nicer output.
-
-The reason that MuteX produces nicer output seems to be that it can
-handle only single-staff music and therefore can easier put glue
-between the notes. A second reason is that it makes "real" slurs and not
-some sort of rotated brackets (braces, ...). But MusicTeX is getting
-better and better because Daniel Taupin maintains it whilst nearly
-nobody continues the development of MuTeX
-
--------------------------------------------------------------------------------
-02 Where can I get MuTeX and MusicTeX?
-
-Most up to date version of musictex:
-
- rsovax.ups.circe.fr directory [anonymous.musictex]
-
-Different versions of MuTeX and MusicTeX are available from many other
-sites, including:
- ftp.stolaf.edu /pub/mutex/MuTeX.tar.Z
- ftp.stolaf.edu /pub/mutex/MuTeX_doc.tar.Z
- ftp.gmd.de /music/mutex/mutex.zip
- ccadfa.cc.adfa.oz.au /pub/tex/MuTeX.tar.Z
- clouso.crim.ca /pub/MuTeX.tar.Z
- sol.cs.ruu.nl /pub/TEX/mtex.tar.Z
-
-MusicTeX
- ftp.stolaf.edu /pub/mutex/musictex-4.31.tar.Z
- ftp.gmd.de /music/musictex/musictex.zip
- /music/musictex/musictex-nnn.tar.Z
- alfred.ccs.carleton.ca /pub/tex/MusicTeX.tar.Z
- aix370.rrz.uni-koeln.de /tex/musictex.tar.Z
- bach.cs.umb.edu /pub/tex/musictex.tar.Z
- cs.dal.ca /pub/comp.archives/musictex
- emx.utexas.edu /pub/mnt/source/tex/musictex.tar.Z
- forwiss.uni-passau.de /pub/tex/macros/musictex.tar.Z
- iraun1.ira.uka.de /tex/musictex.tar.Z
- kth.se /tex/umb/musictex.tar.Z
- wraith.cs.uow.edu.au /cache/ftp.cs.umb.edu/pub/tex/musictex.tar.Z
- qed.rice.edu /pub/musictex.tar.Z
- sol.cs.ruu.nl /TEX/musictex.tar.Z
- srawgw.sra.co.jp /.a/sranha/arch/arch/comp.archives/musictex
- srawgw.sra.co.jp /.a/sranha/arch/arch/comp.archives/music/notation/musictex
-
-Other Related Stuff
- arisia.xerox.com /pub/musictexdemo.PS
- athene.uni-paderborn.de /pcsoft/amiga/tex/fonts/musictex.lzh
- nz20.rz.uni-karlsruhe.de /pub/pctex/texutl/macros/musictex.lzh
- ftp.gmd.de /music/midi2tex/... midi to MusicTeX
-
-For those without FTP access, you can e-mail to:
-
- mail-server@cs.ruu.nl TEX/musictex.tar.Z
-or
-
-(Submitted by: dgold@basso.actrix.gen.nz (Dale Gold))
-
--------------------------------------------------------------------------------
-03 Where are the archives of the MuTeX mailing list?
-
-Archives for the MuTeX mailing list are available via anonymous FTP from:
- ftp.stolaf.edu:/pub/mutex/archive (actual size: 0.5 MB!)
-
--------------------------------------------------------------------------------
-04 With MusicTeX I get notes and beams, but they are badly aligned,
- beams and slurs are offset to the right etc.
-
-Remove all unnecessary spaces, i.e. ALL (all, not most of them)
-spaces which do not follow a TeX or MusicTeX control sequence. E.g.:
-do not write \qu h | \ibu0i3 \qu b \qu c \enotes
-but \qu h|\ibu0i3\qu b\qu c\enotes
-
-\relax at the end of each line not ending with \enotes
-
-Answer thanks to TAUPIN@FRUPS51.bitnet
-
--------------------------------------------------------------------------------
-
-05 I obtained easily the .TEX files but the .PK and .TFM are wrong.
-
-You probably forgot to say BINARY to your ftp before GETting the binary files.
-As a rule the .TEX and .STY are ASCII, as well as the .MF. But the .PK, .ZIP,
-.TFM and (for VMS) .BCK files must be transferred in BINARY
-
-Answer thanks to TAUPIN@FRUPS51.bitnet
-
--------------------------------------------------------------------------------
-
-06 There is no documentation with MusicTeX.
-
-There is one, named musicdoc.tex. You may process it by plain TeX after
-installing the tfm-files from the distribution. The result is musicdoc.dvi
--- which is in the distribution, too. Print it with you favourite dvi-driver.
-If you do not have all fonts, put dummy ones and read the text. It will not
-be beautiful, but still informative...
-
--------------------------------------------------------------------------------
-
-07 I run MusicTeX on SUNOS (or some other big computer) but I have
- memory problems with MSDOS
-
-Two solutions:
- a) insert compulsory line breaks (\alaligne) and page breaks (\alapage)
- b) use Eberhardt Mattes's bigtex (btex286) (or the beta-test version
- of tex386 if you have at least a 386-machine)
-
--------------------------------------------------------------------------------
-
-08 Where's the glue? it's not clear to me when to use or not use \temps
- or just what it really does.
-
-Glue occurs each time you say \barre or \temps or \alaligne or \alapage
-\temps is used to put glue between groups of notes. You can disable it
-and look how ugly it looks...
-
--------------------------------------------------------------------------------
-
-09 When and why do you really need to put \relax at the end of a line?
-
-Put \relax at end of lines whenever the last item is not a control
-sequence. Because in this case the spaces are swallowed by TeX as a
-final part of the control sequence. Thus I use \relax when I need
-a control sequence to swallow end of line spaces (and new line code).
-
--------------------------------------------------------------------------------
-
-10 What are the advantages or disadvantages of using ^ instead of \sh?
- Is one more flexible, or is it just a matter of typing style?
-
-The ^ is used within collective coding, \sh is used outside.
-
- You may write \sh k\qu k
- or \qu$^k
-
--------------------------------------------------------------------------------
-
-11 How can I put something somewhere in the MusicTeX staffs.
-
-Read the musicdoc and use \zcharnote\244<pitch>\207\244<what-you-like>\207
-If you want it spacing use \charnote\244...\207\244...\207
-Within those macros you can put anything, including maths
-below, in the middle of, above the staffs. To be used inside
-tne \notes....\enotes.
-
--------------------------------------------------------------------------------
-
-12 I cannot print notice.tex with american paper.
-
- don't print it :-) you have an old version. New versions of
- MusicTeX contain musicdoc.dvi a LaTeX-document which fits
- on american paper.
-
--------------------------------------------------------------------------------
-
-13 How can I make triplets?
-
-It's already in musictex.tex, but without the `slur' you wanted. \xtuplet
-is the routine that puts a number under your beam, and the line:
-
- \def\triolet{\xtuplet3}%
-
-will provide you with a number under or over your beam and it could be
-adapted for sextuplets or anything else. This will make you a nice
-triplet:
-
- \Notes\ibl0j0\triolet M\qb0{jk}\tbl0\qb0j\enotes
-
--------------------------------------------------------------------------------
-
-14 How can I offset vertically the rests, in order to avoid collision
- with beams or other notes in polyphonic music:
-
-Write \raise <n>\internote\ds
- or \raise <n>\internote\soupir
-
- All rests are \hbox-es, so you can prefix them with \raise <dimension>
- The <dimension> (or <n>\internote or <n>\Interligne) can be negative.
-
--------------------------------------------------------------------------------
-
diff --git a/macros/musictex/README b/macros/musictex/README
deleted file mode 100644
index 55979dfd2d..0000000000
--- a/macros/musictex/README
+++ /dev/null
@@ -1,40 +0,0 @@
-Here you find Daniel Taupin's MusicTeX a TeX-based system to typeset music.
-
-The package consists of three parts.
-
-- the TeX-macros, -font descriptions, -fonts for 300dpi printers, font-
- definitions and the documentation as zip-file musictex.zip or as com-
- pressed tar-file musictex-nnn.tar.gz if nnn is the version number.
-
- Older versions are available too as zip-files named musictex.nnn, as well
- as zip-files containing only the differences between older versions named
- musictex.iii-nnn.zip (for the step from version iii to version nnn).
- Because some people don't bother about bandwidth and simply use "mget *"
- I've moved older versions to the directory older-versions and diff-files
- to the directory diff-files. I hope that it is not neccessary to put zip-
- and tar-files into different directories to make it not so easy to fetch
- more than one needs.
-
- If you want to use these diff-files you may have to rename them either
- when ftp'ing them or when unzip'ing them. The diff-files do not contain
- the dvi-file of the documention, because this may be produced by yourself
- from the source musicdoc.tex, which is contained if it has been changed.
-
-- some examples, compositions and arrangements by Daniel Taupin named either
- musicexa.zip or musicexa-nnn.tar.gz
- Version handling and diff-files follow the same rules as for musictex.
-
-- fonts, font-metrics, ... for (some) other resolutions than 300 dpi
- in musicpk.zip or musicpk-nnn.tar.gz
-
-The base material (the zip-files) is copied from Daniel Taupins ftp-server
-at hprib.lps.u-psud.fr. The tar- and diff-files are generated by me.
-
-There is a mailing-list for discussions about MusicTeX (and MuTeX). To
-subscribe to this list send a mail to mutex-request@gmd.de contain-
-ing the word subscribe in the body of the mail.
-
-The directory software (only at ftp.gmd.de) points at some software on
-top of MusicTeX like abc2mtex or midi2tex.
-
-Werner.Icking@gmd.de
diff --git a/macros/musictex/add-ons/harmonics.tex b/macros/musictex/add-ons/harmonics.tex
deleted file mode 100644
index f3d738c5df..0000000000
--- a/macros/musictex/add-ons/harmonics.tex
+++ /dev/null
@@ -1,120 +0,0 @@
-%
-% Harmonics in MusicTeX
-% =====================
-%
-%\input musicnft
-%\input musictex
-%\input musicsty
-\input musicvbm
-\def\musictex{Music\TeX}%
-% ________________________________________________________________________
-%
-% Harmonic quaver duplets:-
-% _____ 2 3
-% ypairu | | ypairl | |
-% | | | |
-% 2 3 -----
-%
-\def\ypairu#1#2#3% #1 is beam number, #2 and #3 are notes
-{\Ibu{#1}{#2}{#3}1\yh{#1}{#2}\tbu{#1}\yh{#1}{#3}}\relax
-%
-\def\ypairl#1#2#3% #1 is beam number, #2 and #3 are notes
-{\Ibl{#1}{#2}{#3}1\yb{#1}{#2}\tbl{#1}\yb{#1}{#3}}\relax
-%________________________________________________________________________
-\centerline{\enorme Harmonic notes in \musictex}
-\bigskip
-\bigskip
-\def\wbarno{}%
-\def\nbinstruments{1}%
-\cleftoksi={{0}{0}{0}{0}}%
-\staffbotmarg=12\Interligne%
-%
-% Note symbols by name
-%
-\def\bslash{{\tt\char'134}}%
-\def\mcra#1{\zcharnote{13}{\hbox to 1.3\Interligne{\hss\tt\bslash #1\hss}}}%
-\def\mcrb#1{\kern 10pt\mcra {#1}\kern -10pt}
-%
-\parindent 0mm%
-\debutextrait\normal\temps\NOTEs
-\qsk\qsk\hsk%
-\mcra{zd\bslash sk}\zd i\sk\qsk\mcra{du}\du i\qsk
-\mcra{dup}\dup i\qsk\mcra{dupp}\dupp i\qsk
-\mcra{duppp}\duppp i\qsk\mcra{dl}\dl i\qsk
-\mcra{dlp}\dlp i\qsk\mcra{dlpp}\dlpp i\qsk
-\mcra{dlppp}\dlppp i\enotes\finextrait
-\bigskip
-%
-\parindent 0mm%
-\debutextrait\normal\temps\NOTEs
-\qsk\qsk\hsk%
-\mcra{zy\bslash sk}\zy i\sk\qsk\mcra{yu}\yu i\qsk
-\mcra{yup}\yup i\qsk\mcra{yupp}\yupp i\qsk
-\mcra{yuppp}\yuppp i\qsk\mcra{yl}\yl i\qsk
-\mcra{ylp}\ylp i\qsk\mcra{ylpp}\ylpp i\qsk
-\mcra{ylppp}\ylppp i\enotes\finextrait
-%
-\parindent 0mm%
-\debutextrait\normal\temps\NOTEs
-\qsk\qsk\hsk%
-\mcra{ycu}\ycu i\qsk\mcra{yccu}\yccu i\qsk
-\mcra{ycccu}\ycccu i\qsk\mcra{yccccu}\yccccu i\qsk
-\mcra{ycl}\ycl i\qsk\mcra{yccl}\yccl i\qsk
-\mcra{ycccl}\ycccl i\qsk\mcra{yccccl}\yccccl i\qsk
-\enotes\finextrait
-%
-%
-\parindent 0mm%
-\debutextrait\normal\temps\NOTes
-\qsk\qsk\hsk%
-\mcrb{ypairu1cf}\ypairu1cf\sk%
-\mcrb{ypairu1eg}\ypairu1eg\sk%
-\mcrb{ypairl1jm}\ypairl1jm\sk%
-\mcrb{ypairl1ln}\ypairl1ln\sk%
-\enotes
-\finextrait
-%
-% Guitar Harmonics
-%
-\def\guitar#1#2#3% 1=note, 2=string, 3=fret
-{\zd #1\raise-12pt\hbox{\guitarsym#2#3}\sk}
-\def\lguitar#1#2#3% 1=note, 2=string, 3=fret
-{\raise-12pt\hbox{\guitarsym#2#3}\hqsk\zd #1\qsk\sk}
-%
-\centerline{\moyen Guitar harmonics}
-\medskip
-\parindent 0mm%
-%
-% ---
-% | A | B
-% ---
-%
-% A is the string number (Counting from treble E to bass E)
-% E string = 1, B = 2, G = 3, D = 4, A = 5, E = 6
-%
-% B is the fret number, counting from the nut (or the capot if one is used)
-% Thus 0 indicates an open string, 2 indicates fret 2 etc.
-%
-\font\eightrm=cmr8
-%
-\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
-%
-\def\guitarsym#1#2{%
-% Modified version of \boxtext lifted from gentle.tex - A gentle intro to TeX
-\eightrm\setbox\strutbox=\hbox{\vrule height5.75pt depth0.75pt width\z@}%
-\hbox{\lower 1pt \hbox{\vbox{\hrule%
-\hbox{\strut \vrule #1\vrule}\hrule}}\hskip 0.5pt#2}}%
-%
-\catcode`\@=\catcodeat % Reset catcode of '@' to entry value
-%
-\def\sy#1#2% Inserts #2 as text #1 points to the right of the cursor
-{\kern#1pt\charnote0{#2}\kern-#1pt}%
-%
-\def\gs#1#2{\sy{-0.8}{\guitarsym{#1}{#2}}}\relax % One string
-%
-\debutextrait\normal\temps\NOtes\qsk%
-\lguitar L6{12}\lguitar a5{12}\lguitar b6{7}\lguitar d4{12}%
-\guitar e5{7}\guitar g3{12}\guitar h4{7}\guitar i2{12}%
-\guitar k3{7}\guitar l1{12}\sh m\guitar m2{7}\guitar n3{5}%
-\guitar p1{7}\guitar s1{5}\enotes\finextrait
-\bye
diff --git a/macros/musictex/musicdoc.pdf b/macros/musictex/musicdoc.pdf
deleted file mode 100644
index 4a21c2ef3d..0000000000
--- a/macros/musictex/musicdoc.pdf
+++ /dev/null
Binary files differ
diff --git a/macros/musictex/undar-digitacion/README.md b/macros/musictex/undar-digitacion/README.md
deleted file mode 100644
index 0010433ffb..0000000000
--- a/macros/musictex/undar-digitacion/README.md
+++ /dev/null
@@ -1,45 +0,0 @@
-# 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/musictex/undar-digitacion/undar-digitacion-doc.pdf b/macros/musictex/undar-digitacion/undar-digitacion-doc.pdf
deleted file mode 100644
index bb6f1aae66..0000000000
--- a/macros/musictex/undar-digitacion/undar-digitacion-doc.pdf
+++ /dev/null
Binary files differ
diff --git a/macros/musictex/undar-digitacion/undar-digitacion-doc.tex b/macros/musictex/undar-digitacion/undar-digitacion-doc.tex
deleted file mode 100644
index 263535e0f0..0000000000
--- a/macros/musictex/undar-digitacion/undar-digitacion-doc.tex
+++ /dev/null
@@ -1,834 +0,0 @@
-\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/musictex/undar-digitacion/undar-digitacion.dtx b/macros/musictex/undar-digitacion/undar-digitacion.dtx
deleted file mode 100644
index a474c2b298..0000000000
--- a/macros/musictex/undar-digitacion/undar-digitacion.dtx
+++ /dev/null
@@ -1,3280 +0,0 @@
-% \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/musictex/undar-digitacion/undar-digitacion.sty b/macros/musictex/undar-digitacion/undar-digitacion.sty
deleted file mode 100644
index 8caa646276..0000000000
--- a/macros/musictex/undar-digitacion/undar-digitacion.sty
+++ /dev/null
@@ -1,2859 +0,0 @@
-\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}
-}