diff options
author | Karl Berry <karl@freefriends.org> | 2016-05-03 22:18:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-05-03 22:18:25 +0000 |
commit | c6bfcca248f6a0ceacc867b2e70068e760a40d86 (patch) | |
tree | 381e83c0c202d556281da2f9fb9a7a1eeca41f50 /Master/texmf-dist/doc/luatex/gregoriotex/GregorioNabcRef.tex | |
parent | 229d2a84824108e60025d12c971370b90ee01578 (diff) |
gregoriotex (3may16)
git-svn-id: svn://tug.org/texlive/trunk@40872 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/luatex/gregoriotex/GregorioNabcRef.tex')
-rw-r--r-- | Master/texmf-dist/doc/luatex/gregoriotex/GregorioNabcRef.tex | 183 |
1 files changed, 91 insertions, 92 deletions
diff --git a/Master/texmf-dist/doc/luatex/gregoriotex/GregorioNabcRef.tex b/Master/texmf-dist/doc/luatex/gregoriotex/GregorioNabcRef.tex index 744e0fbd08a..3e648537460 100644 --- a/Master/texmf-dist/doc/luatex/gregoriotex/GregorioNabcRef.tex +++ b/Master/texmf-dist/doc/luatex/gregoriotex/GregorioNabcRef.tex @@ -6,7 +6,6 @@ \usepackage{fontspec} \usepackage{luacode} \usepackage{multicol} -\usepackage{fixltx2e} \usepackage{hyperref} \usepackage{color} \usepackage[allowdeprecated=false]{gregoriotex} @@ -22,25 +21,25 @@ \huge{nabc language for gregorio} \end{center} - \vspace{1.5cm} - \begingroup% - \gredefbarredsymbol{Vbar}{V}{greVBar}{9.5}{0.05em}{0pt}% - \greannotation{\scriptsize{AL}} - \greannotation{\scriptsize{II}} - \color{black!60} - \setmainfont[SmallCapsFont=AlegreyaSC]{Alegreya}% - \addtolength{\hsize}{-4cm}% - \setlength{\fboxsep}{5mm}% - \begin{list}{}{% - \setlength{\topsep}{0pt}% - \setlength{\leftmargin}{1.5cm}% - \setlength{\rightmargin}{1.5cm}% - \setlength{\listparindent}{0pt}% - \setlength{\itemindent}{0pt}% - \setlength{\parsep}{0pt}% - }\item[]{\fbox{\parbox{\hsize}{\gregorioscore[f]{veni}}}}% - \end{list}% - \endgroup% + \vspace{1.5cm} + \begingroup% + \gredefbarredsymbol{Vbar}{V}{greVBar}{9.5}{0.05em}{0pt}% + \greannotation{\scriptsize{AL}} + \greannotation{\scriptsize{II}} + \color{black!60} + \setmainfont[SmallCapsFont=AlegreyaSC]{Alegreya}% + \addtolength{\hsize}{-4cm}% + \setlength{\fboxsep}{5mm}% + \begin{list}{}{% + \setlength{\topsep}{0pt}% + \setlength{\leftmargin}{1.5cm}% + \setlength{\rightmargin}{1.5cm}% + \setlength{\listparindent}{0pt}% + \setlength{\itemindent}{0pt}% + \setlength{\parsep}{0pt}% + }\item[]{\fbox{\parbox{\hsize}{\gregorioscore[f]{veni}}}}% + \end{list}% + \endgroup% \vfill \pagebreak @@ -49,43 +48,43 @@ \gresetnabcfont{gregall}{8} \def\neume{% - \begingroup % - \catcode`\~=12{}% - \catcode`\@=11{}% - \neumebody% + \begingroup % + \catcode`\~=12{}% + \catcode`\@=11{}% + \neumebody% } \def\neumebody#1{% - \vbox{\hbox{\vspace{1mm}}\hbox{\noindent\GreNABCChar{#1}\hspace{1mm}}% - \hbox{\vspace{1mm}}\hbox{\noindent{\fontsize{6}{6}\texttt{#1}\hspace{1mm}}}}% - \endgroup % + \vbox{\hbox{\vspace{1mm}}\hbox{\noindent\GreNABCChar{#1}\hspace{1mm}}% + \hbox{\vspace{1mm}}\hbox{\noindent{\fontsize{6}{6}\texttt{#1}\hspace{1mm}}}}% + \endgroup % } \def\neumer{% - \begingroup % - \catcode`\~=12{}% - \catcode`\@=11{}% - \neumerbody% + \begingroup % + \catcode`\~=12{}% + \catcode`\@=11{}% + \neumerbody% } \def\neumerbody#1{% - \vbox{\hbox{\vspace{1mm}}\hbox{\noindent\hspace{8mm}\GreNABCChar{#1}\hspace{1mm}}% - \hbox{\vspace{1mm}}\hbox{\noindent{\fontsize{6}{6}\texttt{#1}\hspace{1mm}}}}% - \endgroup % + \vbox{\hbox{\vspace{1mm}}\hbox{\noindent\hspace{8mm}\GreNABCChar{#1}\hspace{1mm}}% + \hbox{\vspace{1mm}}\hbox{\noindent{\fontsize{6}{6}\texttt{#1}\hspace{1mm}}}}% + \endgroup % } \def\sneume{% - \begingroup % - \catcode`\~=12{}% - \catcode`\@=11{}% - \sneumebody% + \begingroup % + \catcode`\~=12{}% + \catcode`\@=11{}% + \sneumebody% } \def\sneumebody#1{% - \font\grefontnabc={name:gregall} at 6pt\grefontnabc\begin{gre@style@nabc}% - \directlua{tex.sprint(gregoriotex.nabc_font_tables["gregall"]["\luatexluaescapestring{#1}"] or "")}% - \end{gre@style@nabc}% - \endgroup % + \font\grefontnabc={name:gregall} at 6pt\grefontnabc\begin{gre@style@nabc}% + \directlua{tex.sprint(gregoriotex.nabc_font_tables["gregall"]["\luatexluaescapestring{#1}"] or "")}% + \end{gre@style@nabc}% + \endgroup % } { @@ -132,10 +131,10 @@ The \textit{horizontal spacing adjustment descriptor} consists of a sequence of horizontal spacing adjustment characters \texttt{/} and \texttt{`}. \begin{itemize} - \item \texttt{//} move by \texttt{nabclargerspace} skip to the right - \item \texttt{/} move by \texttt{nabcinterelementspace} skip to the right - \item \texttt{``} move by \texttt{nabclargerspace} skip to the left - \item \texttt{`} move by \texttt{nabcinterelementspace} skip to the left + \item \texttt{//} move by \texttt{nabclargerspace} skip to the right + \item \texttt{/} move by \texttt{nabcinterelementspace} skip to the right + \item \texttt{``} move by \texttt{nabclargerspace} skip to the left + \item \texttt{`} move by \texttt{nabcinterelementspace} skip to the left \end{itemize} The \textit{complex glyph descriptor} consists of a \textit{glyph descriptor}, @@ -183,12 +182,12 @@ following table: The \texttt{glyph modifiers} is a possibly empty sequence of following characters optionally followed by a number: \begin{itemize} - \item \texttt{S} modification of the mark - \item \texttt{G} modification of the grouping (neumatic break) - \item \texttt{M} melodic modification - \item \texttt{-} addition of episema - \item \texttt{>} augmentive liquescence - \item ~~\texttt{\~} diminutive liquescence + \item \texttt{S} modification of the mark + \item \texttt{G} modification of the grouping (neumatic break) + \item \texttt{M} melodic modification + \item \texttt{-} addition of episema + \item \texttt{>} augmentive liquescence + \item ~~\texttt{\~} diminutive liquescence \end{itemize} If Dom Cardine's table contains multiple glyphs with the same modifiers, a positive number is added afterwards. E.g.\ for augmentive liquescent @@ -215,12 +214,12 @@ optionally by a modifier letter from the following table and finally a mandatory positive number of repetitions. If the modifier letter is missing, it is a punctum. \begin{itemize} - \item \texttt{t} \sneume{ta} tractulus - \item \texttt{u} \sneume{ta-} tractulus with episema - \item \texttt{v} \sneume{suv1} tractulus with double episema - \item \texttt{w} \sneume{gr} gravis - \item \texttt{x} \sneume{st>} liquescens stropha - \item \texttt{y} \sneume{gr-} gravis with episema + \item \texttt{t} \sneume{ta} tractulus + \item \texttt{u} \sneume{ta-} tractulus with episema + \item \texttt{v} \sneume{suv1} tractulus with double episema + \item \texttt{w} \sneume{gr} gravis + \item \texttt{x} \sneume{st>} liquescens stropha + \item \texttt{y} \sneume{gr-} gravis with episema \end{itemize} Only subpunctis are normally used in neume classification, the prepunctis is a \texttt{nabc} concept to describe the rising sequence of punctis, tractulis @@ -390,40 +389,40 @@ Table with nabc strings and corresponding gregall and gresgmodern glyphs: \end{center} \begin{luacode*} - local i - local last - local key - local str - local keym - local arr = {} - for key in pairs(gregoriotex.nabc_font_tables['gregall']) do - table.insert(arr, key) - end - for key in pairs(gregoriotex.nabc_font_tables['gresgmodern']) do - table.insert(arr, key) - end - table.sort(arr) - tex.sprint("\\begin{multicols}{3}\\noindent"); - for i, key in ipairs(arr) do - if last ~= key then - last = key - keym = key:gsub("~","\\~{}") - str = keym .. "\\hfill" - if gregoriotex.nabc_font_tables['gregall'][key] then - str = str .. "{\\font\\grefontnabc={name:gregall} at 8pt\\grefontnabc\\begin{gre@style@nabc}" .. gregoriotex.nabc_font_tables['gregall'][key] .. "\\end{gre@style@nabc}}" - else - str = str .. "{\\color{blue}missing}" - end - str = str .. "\\hfill" - if gregoriotex.nabc_font_tables['gresgmodern'][key] then - str = str .. "{\\font\\grefontnabc={name:gresgmodern} at 8pt\\grefontnabc\\begin{gre@style@nabc}" .. gregoriotex.nabc_font_tables['gresgmodern'][key] .. "\\end{gre@style@nabc}}" - else - str = str .. "{\\color{blue}missing}" - end - tex.sprint(str .. "\\\\") - end - end - tex.sprint("\\end{multicols}") + local i + local last + local key + local str + local keym + local arr = {} + for key in pairs(gregoriotex.nabc_font_tables['gregall']) do + table.insert(arr, key) + end + for key in pairs(gregoriotex.nabc_font_tables['gresgmodern']) do + table.insert(arr, key) + end + table.sort(arr) + tex.sprint("\\begin{multicols}{3}\\noindent"); + for i, key in ipairs(arr) do + if last ~= key then + last = key + keym = key:gsub("~","\\~{}") + str = keym .. "\\hfill" + if gregoriotex.nabc_font_tables['gregall'][key] then + str = str .. "{\\font\\grefontnabc={name:gregall} at 8pt\\grefontnabc\\begin{gre@style@nabc}" .. gregoriotex.nabc_font_tables['gregall'][key] .. "\\end{gre@style@nabc}}" + else + str = str .. "{\\color{blue}missing}" + end + str = str .. "\\hfill" + if gregoriotex.nabc_font_tables['gresgmodern'][key] then + str = str .. "{\\font\\grefontnabc={name:gresgmodern} at 8pt\\grefontnabc\\begin{gre@style@nabc}" .. gregoriotex.nabc_font_tables['gresgmodern'][key] .. "\\end{gre@style@nabc}}" + else + str = str .. "{\\color{blue}missing}" + end + tex.sprint(str .. "\\\\") + end + end + tex.sprint("\\end{multicols}") \end{luacode*} \vfill |