blob: 41748636de19e8a087d77404f6bacf224a6fa80c (
about) (
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
111
112
113
114
115
116
|
%%
%% include file for LilyPond
\def\mdef#1#2{\def#1{{\musicfnt\char#2}}}
%% musix defs
\parindent=0pt
\newdimen\interlinedist
\newcount\n
\newdimen\balkhoog
\newdimen\staffrulethickness
\newdimen\interstaffrule
\def\musixtwentydefs{
\font\musicfnt=musix20
\balkhoog=20pt
\staffrulethickness=0.4pt
}
\def\musixcalc{
\interstaffrule=\balkhoog
\advance\interstaffrule by-\staffrulethickness
\divide\interstaffrule by 4
\advance\interstaffrule by -\staffrulethickness
}
\musixtwentydefs
\musixcalc
\mdef\quartball{'007}
\mdef\halfball{'010}
\mdef\wholeball{'011}
\mdef\halfrest{'074}
\mdef\wholerest{'075}
\mdef\quartrest{62}
\mdef\eighthrest{63}
\mdef\sixteenthrest{64}
\mdef\thirtysecondrest{65}
\mdef\sharp{'065}
\mdef\flat{'063}
\mdef\natural{'067}
\mdef\singledot{'00}
\mdef\doubledot{'01}
\mdef\tripledot{'02}
\mdef\mussepline{155}
\mdef\ieigthflag{45}
\mdef\isixteenthflag{46}
\mdef\ithirtysecondflag{47}
\mdef\ueigthflag{40}
\mdef\usixteenthflag{41}
\mdef\uthirtysecondflag{42}
\def\maatstreep{\vrule height\balkhoog}
\def\finishbar{\vrule height\balkhoog width 1pt}
\def\generalmeter#1#2{\vbox to 0pt{\vss\rm\hbox{#1}\hbox{#2}}}
\def\lineseparator{\vbox{\mussepline\vskip -5pt\mussepline}}
\def\beauty{
\par\vskip 10pt\par
\hskip -5pt\lineseparator% \hbox to 1cm{\kern -5mm\hrulefill}
\vskip 10pt
}
\def\interstaffline{%
\vskip 10pt
% \nointerlineskip
% \vbox{\hbox to 0pt{\vrule width20pt height1pt\hss}}
}
\def\ugly{\nointerlineskip\par
\vskip 40pt\par\vbox{\hbox to 0pt{\vrule width30pt height1pt\hss}}\par\vskip 40pt
}
\def\interscoreline{\beauty}
\def\lines#1#2{%
\vbox{\kern-\interstaffrule
\n=0\nointerlineskip%
\loop\ifnum\n<#1\advance\n by1%
\kern\interstaffrule
\hrule height \staffrulethickness width#2
\repeat
}}
\def\toplines#1{ % why space needed here?
\vbox to 0pt{\hbox{\kern-6pt\lines{#1}{12pt}}\vss}}
\def\botlines#1{ % idem ditto
\vbox to 0pt{\vss\hbox{\kern-6pt\lines{#1}{12pt}}}}
%
% a staffsymbol with #1 lines, width #2
% bottom at baseline
\def\linestafsym#1#2{\hbox to 0pt{\vbox to 0pt{\vss\lines{#1}{#2}}\hss}}
\def\vcenter#1{\vbox to 0pt{\vss #1\vss}}
\def\topalign#1{\vbox to 0pt{#1\vss}}
\def\eigthflag{\topalign{\ueigthflag}}
\def\sixteenthflag{\topalign{\usixteenthflag}}
\def\thirtysecondflag{\topalign{\uthirtysecondflag}}
\def\cquartrest{\vcenter\quartrest}
\def\ceighthrest{\vcenter\eighthrest}
\def\csixteenthrest{\vcenter\sixteenthrest}
\def\cthirtysecondrest{\vcenter\thirtysecondrest}
\def\lsingledot{\kern-6pt\singledot}
\def\ldoubledot{\kern-6pt\doubledot}
\def\ltripledot{\kern-6pt\tripledot}
\def\stem#1#2{\vrule height#2 depth-#1}
\def\placebox#1#2#3{%
\vbox to 0pt{\vss\hbox{\raise #1\hbox to 0pt{\kern #2{}#3\hss}}}%
}
|
