summaryrefslogtreecommitdiff
path: root/macros/generic/musixtex/tex/musixdia.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/generic/musixtex/tex/musixdia.tex')
-rw-r--r--macros/generic/musixtex/tex/musixdia.tex110
1 files changed, 110 insertions, 0 deletions
diff --git a/macros/generic/musixtex/tex/musixdia.tex b/macros/generic/musixtex/tex/musixdia.tex
new file mode 100644
index 0000000000..05839eea01
--- /dev/null
+++ b/macros/generic/musixtex/tex/musixdia.tex
@@ -0,0 +1,110 @@
+%
+% 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.
+%
+
+\immediate\write16{MusiXDIAmond T.40\space<12 September 1995>}%
+
+\ifx\undefined\dqu \else \endinput \fi
+
+\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
+
+%%% notes with a unfilled diamond head, for gregorian and flagolet notes ...
+
+\def\d@symbol{\def\q@u{\musixfont\&}}
+
+\def\dnq{\d@symbol\@nq}
+\def\dznq{\advancefalse\dnq}
+
+\def\dqu{\d@symbol\@qu}
+\def\dqup{\d@symbol\@qup}
+\def\dqupp{\d@symbol\@qupp}
+%\def\dquppp{\d@symbol\@quppp}
+
+\def\dql{\d@symbol\@ql}
+\def\dqlp{\d@symbol\@qlp}
+\def\dqlpp{\d@symbol\@qlpp}
+%\def\dqlppp{\d@symbol\@qlppp}
+
+\def\dqb{\d@symbol\@qb}
+
+\def\dzq{\d@symbol\@zq}
+\def\dzqp{\d@symbol\@zqp}
+\def\dzqpp{\d@symbol\@zqpp}
+%\def\dzqppp{\d@symbol\@zqppp}
+
+\def\dcu{\d@symbol\@cu}
+\def\dccu{\d@symbol\@ccu}
+\def\dcccu{\d@symbol\@cccu}
+\def\dccccu{\d@symbol\@ccccu}
+\def\dcl{\d@symbol\@cl}
+\def\dccl{\d@symbol\@ccl}
+\def\dcccl{\d@symbol\@cccl}
+\def\dccccl{\d@symbol\@ccccl}
+
+\def\dcup{\d@symbol\@cup}
+\def\dcupp{\d@symbol\@cupp}
+%\def\dcuppp{\d@symbol\@cuppp}
+
+\def\dclp{\d@symbol\@clp}
+\def\dclpp{\d@symbol\@clpp}
+%\def\dclppp{\d@symbol\@clppp}
+
+%%% notes with a filled diamond head, for gregorian notes ...
+
+\def\y@symbol{\def\q@u{\musixfont\%}}
+
+\def\ynq{\y@symbol\@nq}
+\def\yznq{\advancefalse\ynq}
+\def\zynq{\advancefalse\ynq}
+
+\def\yqu{\y@symbol\@qu}
+\def\yqup{\y@symbol\@qup}
+\def\yqupp{\y@symbol\@qupp}
+%\def\yquppp{\y@symbol\@quppp}
+
+\def\yql{\y@symbol\@ql}
+\def\yqlp{\y@symbol\@qlp}
+\def\yqlpp{\y@symbol\@qlpp}
+%\def\yqlppp{\y@symbol\@qlppp}
+
+\def\yqb{\y@symbol\@qb}
+
+\def\yzq{\y@symbol\@zq}
+\def\yzqp{\y@symbol\@zqp}
+\def\yzqpp{\y@symbol\@zqpp}
+%\def\yzqppp{\y@symbol\@zqppp}
+
+\def\ycu{\y@symbol\@cu}
+\def\yccu{\y@symbol\@ccu}
+\def\ycccu{\y@symbol\@cccu}
+\def\yccccu{\y@symbol\@ccccu}
+\def\ycl{\y@symbol\@cl}
+\def\yccl{\y@symbol\@ccl}
+\def\ycccl{\y@symbol\@cccl}
+\def\yccccl{\y@symbol\@ccccl}
+
+\def\ycup{\y@symbol\@cup}
+\def\ycupp{\y@symbol\@cupp}
+%\def\ycuppp{\y@symbol\@cuppp}
+
+\def\yclp{\y@symbol\@clp}
+\def\yclpp{\y@symbol\@clpp}
+%\def\yclppp{\y@symbol\@clppp}
+
+\catcode`\@=\catcodeat
+\endinput