summaryrefslogtreecommitdiff
path: root/macros/musixtex/tex/musixdia.tex
blob: 05839eea01f3bd209b4cc1293f01c1997065799c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
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