summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/gregoriotex/gregoriotex-nabc.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-16 21:22:41 +0000
committerKarl Berry <karl@freefriends.org>2016-04-16 21:22:41 +0000
commitc9383c25c72dffde2894fd8a164d53269ce828a1 (patch)
tree0eb3ad41c8855ab9c21b0924ef23a2215b30f06e /Master/texmf-dist/tex/luatex/gregoriotex/gregoriotex-nabc.tex
parentcb7776b7b205ed1ca821d824dd80f7e6c86dc92e (diff)
gregoriotex (16apr16)
git-svn-id: svn://tug.org/texlive/trunk@40561 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/luatex/gregoriotex/gregoriotex-nabc.tex')
-rw-r--r--Master/texmf-dist/tex/luatex/gregoriotex/gregoriotex-nabc.tex64
1 files changed, 64 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/luatex/gregoriotex/gregoriotex-nabc.tex b/Master/texmf-dist/tex/luatex/gregoriotex/gregoriotex-nabc.tex
new file mode 100644
index 00000000000..25ebe0b847c
--- /dev/null
+++ b/Master/texmf-dist/tex/luatex/gregoriotex/gregoriotex-nabc.tex
@@ -0,0 +1,64 @@
+%GregorioTeX file.
+%
+% Copyright (C) 2014-2015 The Gregorio Project (see CONTRIBUTORS.md)
+%
+% This file is part of Gregorio.
+%
+% Gregorio is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% Gregorio is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with Gregorio. If not, see <http://www.gnu.org/licenses/>.
+
+% this file contains macros for St. Gall ancient neume support
+
+\gre@debugmsg{general}{Loading gregoriotex-nabc.tex}%
+\gre@declarefileversion{gregoriotex-nabc.tex}{4.1.1}% GREGORIO_VERSION
+
+
+\xdef\gre@nabcfontname{gregall}
+\xdef\gre@nabcfontsize{8}
+
+\def\gresetnabcfont#1#2{%
+ \xdef\gre@nabcfontname{#1}%
+ \xdef\gre@nabcfontsize{#2}%
+ \global\font\gre@font@nabc={name:#1} at #2 pt\relax %
+ {%
+ \gre@font@nabc %
+ \directlua{gregoriotex.init_nabc_font("\luatexluaescapestring{#1}")}%
+ }%
+ \gre@nabcfontloadedtrue%
+}
+
+\def\grenabccharno#1#2#3{{\directlua{
+ gregoriotex.print_nabc(gregoriotex.parse_nabc("#1", "\luatexluaescapestring{#2}", #3))
+}}}
+
+\def\GreNABCChar#1{{%
+ %\catcode`\~=12{}%
+ %\catcode`\@=11{}%
+ \gre@font@nabc %
+ \gre@style@nabc %
+ \grenabccharno{#1}{\gre@nabcfontname}{1}%
+ \endgre@style@nabc%
+}}
+
+\def\GreNABCNeumes#1#2{%
+ \GreSetTextAboveLines{\GreNABCChar{#2}}%
+}
+
+\newif\ifgre@nabcfontloaded%
+\gre@nabcfontloadedfalse%
+
+\def\GreScoreNABCLines#1{%
+ \ifgre@nabcfontloaded\else%
+ \gresetnabcfont{\gre@nabcfontname}{\gre@nabcfontsize}%
+ \fi %
+}