summaryrefslogtreecommitdiff
path: root/lilyponddefs.tex
blob: 24dd6171502106cbc6066359b153ea1ed334ab20 (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
%%
%% 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
	\interlinedist=5pt
	\balkhoog=20pt
	\staffrulethickness=0.4pt
	\interstaffrule=\balkhoog
	\advance\interstaffrule by-\staffrulethickness
	\divide\interstaffrule by 4
	\advance\interstaffrule by -\staffrulethickness		
}

\def\interstaffline{
	\vskip 20pt%
}

\musixtwentydefs

\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}

\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\interscoreline{
	\par\vskip 10pt\par
	\hskip -5pt\lineseparator% \hbox to 1cm{\kern -5mm\hrulefill}
	\vskip 10pt
}

%
% a staffsymbol with #1 lines, width #2
% bottom at baseline
\def\linestafsym#1#2{\hbox to 0pt%
  {\vbox to 0pt{\vss%
	\vskip-\interlinedist
	\n=0%
	\loop\ifnum\n<#1\advance\n by1%
		\vskip\interstaffrule \hrule height \staffrulethickness	width#2
		\repeat
	}%
\hss}}

\def\vcenter#1{\vbox to 0pt{\vss #1\vss}}

\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}