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
|
