From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 macros/musixtex/tex/musixper.tex | 195 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 195 insertions(+)
 create mode 100644 macros/musixtex/tex/musixper.tex

(limited to 'macros/musixtex/tex/musixper.tex')

diff --git a/macros/musixtex/tex/musixper.tex b/macros/musixtex/tex/musixper.tex
new file mode 100644
index 0000000000..47ad54e644
--- /dev/null
+++ b/macros/musixtex/tex/musixper.tex
@@ -0,0 +1,195 @@
+%
+%   This file is part of MusiXTeX
+%
+%   MusiXTeX 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 2, or (at your option)
+%   any later version.
+%
+%   MusiXTeX 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 MusiXTeX; see the file COPYING.  If not, write to
+%   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+%   Boston, MA 02111-1307, USA.
+%
+\ifx\undefined\drumclef \else \endinput \fi
+
+\immediate\write16{MusiXPERcussion T.60\space<27 September 2010>}%
+
+\ifx\undefined\dqb
+  \input musixdia
+\fi
+
+\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
+
+% if you need pointed percussion notes, say '\p[p][p]t n\xqu n' or '\xqu{.n}'
+% if you need them more often define them by your one
+
+\def\drumclef{\raise2\internote\hbox{\keychar77}}
+
+%%% notes with a circled diagonal cross head, for closed hihat ...
+
+\def\dc@symbol{\def\q@u{\musixchar113}}
+
+\def\dcqu{\dc@symbol\@qu}
+\def\dcql{\dc@symbol\@ql}
+
+\def\dcqb{\dc@symbol\@qb}
+
+\def\dczq{\dc@symbol\@zq}
+
+\def\dccu{\dc@symbol\@cu}
+\def\dcccu{\dc@symbol\@ccu}
+%\def\dccccu{\dc@symbol\@cccu}
+%\def\dcccccu{\dc@symbol\@ccccu}
+\def\dccl{\dc@symbol\@cl}
+\def\dcccl{\dc@symbol\@ccl}
+%\def\dccccl{\dc@symbol\@cccl}
+%\def\dcccccl{\dc@symbol\@ccccl}
+
+%%% notes with a diagonal cross half circle head, for half open hihat ...
+
+\def\dh@symbol{\def\q@u{\musixchar112}}
+
+\def\dhqu{\dh@symbol\@qu}
+\def\dhql{\dh@symbol\@ql}
+
+\def\dhqb{\dh@symbol\@qb}
+
+\def\dhzq{\dh@symbol\@zq}
+
+\def\dhcu{\dh@symbol\@cu}
+\def\dhccu{\dh@symbol\@ccu}
+%\def\dhcccu{\dh@symbol\@cccu}
+%\def\dhccccu{\dh@symbol\@ccccu}
+\def\dhcl{\dh@symbol\@cl}
+\def\dhccl{\dh@symbol\@ccl}
+%\def\dhcccl{\dh@symbol\@cccl}
+%\def\dhccccl{\dh@symbol\@ccccl}
+
+%%% notes with a diagonal cross head, for open hihat ...
+
+\def\do@symbol{\def\q@u{\musixchar111}}
+
+\def\doqu{\do@symbol\@qu}
+\def\doql{\do@symbol\@ql}
+
+\def\doqb{\do@symbol\@qb}
+
+\def\dozq{\do@symbol\@zq}
+
+\def\docu{\do@symbol\@cu}
+\def\doccu{\do@symbol\@ccu}
+%\def\docccu{\do@symbol\@cccu}
+%\def\doccccu{\do@symbol\@ccccu}
+\def\docl{\do@symbol\@cl}
+\def\doccl{\do@symbol\@ccl}
+%\def\docccl{\do@symbol\@cccl}
+%\def\doccccl{\do@symbol\@ccccl}
+
+%%% notes with a doublesharp-head
+
+\def\x@symbol{\def\q@u{\musixchar114}}
+
+\def\xqu{\x@symbol\@qu}
+\def\xql{\x@symbol\@ql}
+
+\def\xqb{\x@symbol\@qb}
+
+\def\xzq{\x@symbol\@zq}
+
+\def\xcu{\x@symbol\@cu}
+\def\xccu{\x@symbol\@ccu}
+%\def\xcccu{\x@symbol\@cccu}
+%\def\xccccu{\x@symbol\@ccccu}
+\def\xcl{\x@symbol\@cl}
+\def\xccl{\x@symbol\@ccl}
+%\def\xcccl{\x@symbol\@cccl}
+%\def\xccccl{\x@symbol\@ccccl}
+
+%%% notes with a circled doublesharp-head
+
+\def\ox@symbol{\def\q@u{\musixfont\@cxv}}
+
+\def\oxqu{\ox@symbol\@qu}
+\def\oxql{\ox@symbol\@ql}
+
+\def\oxqb{\ox@symbol\@qb}
+
+\def\oxzq{\ox@symbol\@zq}
+
+\def\oxcu{\ox@symbol\@cu}
+\def\oxccu{\ox@symbol\@ccu}
+%\def\oxcccu{\ox@symbol\@cccu}
+%\def\oxccccu{\ox@symbol\@ccccu}
+\def\oxcl{\ox@symbol\@cl}
+\def\oxccl{\ox@symbol\@ccl}
+%\def\oxcccl{\ox@symbol\@cccl}
+%\def\oxccccl{\ox@symbol\@ccccl}
+
+%%% notes with a RhOmbus head, for shaker ...
+
+\def\r@symbol{\def\q@u{\musixchar118}}
+
+\def\roqu{\r@symbol\@qu}
+\def\roql{\r@symbol\@ql}
+
+\def\roqb{\r@symbol\@qb}
+
+\def\rozq{\r@symbol\@zq}
+
+\def\rocu{\r@symbol\@cu}
+\def\roccu{\r@symbol\@ccu}
+%\def\rocccu{\r@symbol\@cccu}
+%\def\roccccu{\r@symbol\@ccccu}
+\def\rocl{\r@symbol\@cl}
+\def\roccl{\r@symbol\@ccl}
+%\def\rocccl{\r@symbol\@cccl}
+%\def\roccccl{\r@symbol\@ccccl}
+
+%%% notes with a TrianGle head, for rattle ...
+
+\def\t@symbol{\def\q@u{\musixchar116}}
+
+\def\tgqu{\t@symbol\@qu}
+\def\tgql{\t@symbol\@ql}
+
+\def\tgqb{\t@symbol\@qb}
+
+\def\tgzq{\t@symbol\@zq}
+
+\def\tgcu{\t@symbol\@cu}
+\def\tgccu{\t@symbol\@ccu}
+%\def\tgcccu{\t@symbol\@cccu}
+%\def\tgccccu{\t@symbol\@ccccu}
+\def\tgcl{\t@symbol\@cl}
+\def\tgccl{\t@symbol\@ccl}
+%\def\tgcccl{\t@symbol\@cccl}
+%\def\tgccccl{\t@symbol\@ccccl}
+
+%%% notes with a + head, for bongos ...
+
+\def\k@symbol{\def\q@u{\musixchar117}}
+
+\def\kqu{\k@symbol\@qu}
+\def\kql{\k@symbol\@ql}
+
+\def\kqb{\k@symbol\@qb}
+
+\def\kzq{\k@symbol\@zq}
+
+\def\kcu{\k@symbol\@cu}
+\def\kccu{\k@symbol\@ccu}
+%\def\kcccu{\k@symbol\@cccu}
+%\def\kccccu{\k@symbol\@ccccu}
+\def\kcl{\k@symbol\@cl}
+\def\kccl{\k@symbol\@ccl}
+%\def\kcccl{\k@symbol\@cccl}
+%\def\kccccl{\k@symbol\@ccccl}
+
+\catcode`\@=\catcodeat
+\endinput
-- 
cgit v1.2.3

