tagline = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))
}
-
-%{
-tweak = #(define-music-function (parser location sym val arg)
- (symbol? scheme? ly:music?)
-
- "Add @code{sym . val} to the @code{tweaks} property of @var{arg}."
-
- (set!
- (ly:music-property arg 'tweaks)
- (acons sym val
- (ly:music-property arg 'tweaks)))
- arg)
-%}
-
% Useful tweak abbreviations (hn = harmony note)
hn = #(define-music-function (parser location arg) (ly:music?)
Global =
{
\key c \major
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\time 4/4
% Intro
e -- ven though you _ are a king,
I love you more than a -- ny o -- ther
- so much more than a -- ny -- thing.
+ so much more than a -- ny -- thing. _
}
+
%
% Riffs
%
%
Chords = \chordmode
{
-%Bah, can't we set this globally?
-% \popChords
-
% Intro
c2 e:m/b | % 1
Rhythm =
{
- \override Staff.TimeSignature #'style = #'()
+ \numericTimeSignature
\override NoteHead #'style = #'slash
+ \teeny
% Intro
\score
{
<<
- \Global % The "roadmap" that everything else depends on
+ \Global % The "roadmap" that everything else depends on
\context Staff
<<
- \context Staff << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
+ << \new Voice = "lead" \LeadVox \new Voice \Riffs >>
\new Lyrics \lyricsto "lead" \LeadVoxText
\new Lyrics \lyricsto "lead" \LeadVoxTextB
>>
{
#(define fonts (make-pango-font-tree
"Times New Roman"
- "DomCasual BT"
- "Luxi Mono"
- (/ staffSize 20)))
- #(define fonts (make-pango-font-tree
- "Times New Roman"
- "DomCasual BT"
+ "JazzText"
"Luxi Mono"
(/ staffSize 20)))
% To find out what's eating the space at the top...
% annotate-spacing = ##t
-%let's try this: [It works! Huzzah!]
- obsolete-page-top-space = 0 top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)
}
+