Shamusworld >> Repos - music/blob - great-is-the-lord.ly

   1 \version "2.16.0"\r
   2 \include "pop-chords.ly"\r
   3 \include "english.ly"\r
   4 \r
   5 % Good sizes are 16, 18, & 20\r
   6 staffSize = #20\r
   7 #(set-default-paper-size "letter")\r
   8 #(set-global-staff-size staffSize)\r
   9 #(ly:set-option (quote no-point-and-click))\r
  10 \r
  11 %{ Some useful characters: ‘ ’ “ ” – — † ‡ • … %}\r
  12 \r
  13 \header\r
  14 {\r
  15         title    = \markup { \override #'(font-family . sans) \fontsize #3.5 "Great Is The Lord" }\r
  16         composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Michael W. Smith" }\r
  17         arranger = \markup { \override #'(font-family . sans) \fontsize #1.3 "arr. Ed Smart" }\r
  18         tagline  = $(string-append "Engraved by JLH and Lilypond " (lilypond-version))\r
  19 }\r
  20 \r
  21 \r
  22 %\r
  23 % Song's Structure\r
  24 %\r
  25 Global =\r
  26 {\r
  27         \override Staff.TimeSignature #'style = #'()\r
  28         \key c \major\r
  29         \time 6/8\r
  30 \r
  31         % Intro\r
  32 \r
  33         s2.*4 \bar "||:"   % 1-4\r
  34 \r
  35         \repeat volta 2\r
  36         {\r
  37                 % A section\r
  38 \r
  39                 \mark \markup { \override #'(font-family . sans) { \box { A } } }\r
  40 \r
  41                 s2.*8 \bar "||"   % 5-12\r
  42 \r
  43                 % B section\r
  44 \r
  45                 \mark \markup { \override #'(font-family . sans) { \box { B } } }\r
  46 \r
  47                 s2.*13 |   % 13-25\r
  48         }\r
  49         \alternative\r
  50         {\r
  51                 {\r
  52                         s2.*2 |   % 26-27\r
  53                 }\r
  54                 {\r
  55                         s2. |   % 28\r
  56                 }\r
  57         }\r
  58 \r
  59         % Ending\r
  60 \r
  61         s2. \bar "|."   % 29\r
  62 }\r
  63 \r
  64 \r
  65 %\r
  66 % Lead vocal\r
  67 %\r
  68 \r
  69 LeadVox = \relative c'\r
  70 {\r
  71 %       \set Staff.instrument = #"Lead vox"\r
  72 %       \override Staff.TimeSignature #'style = #'()\r
  73         \clef G\r
  74         \override Score.SpacingSpanner #'average-spacing-wishes = ##f\r
  75 \r
  76         % Intro\r
  77 \r
  78         R2. |   % 1\r
  79         R2. |   % 2\r
  80         R2. |   % 3\r
  81         R2. \bar "||:"   % 4\r
  82 \r
  83         % A section\r
  84 \r
  85         e8 d e f4 f16 e |   % 5\r
  86         d8 g f e4 e16 d |   % 6\r
  87         c8 f e d4 c16 b |   % 7\r
  88         c4. r |   % 8\r
  89         e8 d e f4 f16 e |   % 9\r
  90         d8 g f e4 e16 d |   % 10\r
  91         c8 f e d4 c16 b |   % 11\r
  92         c4. r |   % 12\r
  93 \r
  94         % B section\r
  95 \r
  96         bf'8 bf a bf4 bf8 |   % 13\r
  97         a8 g f g c,4 |   % 14\r
  98         bf'8 bf a bf4 a8 |   % 15\r
  99         g8 b d c4. |   % 16\r
 100         bf8 bf a bf4 bf8 |   % 17\r
 101         a8 d a b4 b8 |   % 18\r
 102         b8 e b c4. |   % 19\r
 103         d2. ~ |   % 20\r
 104         d4. ~ d8 c b |   % 21\r
 105         c2. ~ |   % 22\r
 106         c2. |   % 23\r
 107         d2. ~ |   % 24\r
 108         d4. ~ d8 c b |   % 25\r
 109 \r
 110         c2. |   % 26\r
 111         R2. |   % 27\r
 112 \r
 113         c2. |   % 28\r
 114 \r
 115         % Ending\r
 116 \r
 117         r2.^\fermata |   % 29\r
 118 }\r
 119 \r
 120 \r
 121 LeadVoxText = \lyricmode\r
 122 {\r
 123         Great is the Lord,\r
 124         he is ho -- ly and just;\r
 125         By his po -- wer we trust\r
 126         in his love.\r
 127 \r
 128         Great is the Lord\r
 129         he is faith -- ful and true;\r
 130         By his mer -- cy he proves\r
 131         he is love.\r
 132 \r
 133         Great is the Lord!\r
 134         And wor -- thy of glo -- ry,\r
 135         Great is the Lord!\r
 136         And wor -- thy of praise,\r
 137         Great is the Lord!\r
 138         Now lift up your voice,\r
 139         Now lift up your voice,\r
 140         Great __ _ _ is the Lord! __ _\r
 141         Great __ _ _ is the Lord!\r
 142 \r
 143         Lord!\r
 144 }\r
 145 \r
 146 \r
 147 %\r
 148 % Riffs\r
 149 %\r
 150 \r
 151 Riffs = \relative c'''\r
 152 {\r
 153 %       \set Voice.autoBeaming = ##f\r
 154 %       \set Staff.instrument = #"Lead vox"\r
 155         \override Staff.TimeSignature #'style = #'()\r
 156         \clef G\r
 157 %       \key c \major\r
 158 %       \time 6/8\r
 159 %\override Score.SpacingSpanner #'average-spacing-wishes = ##f\r
 160 \r
 161         % Intro\r
 162 \r
 163         c16 g f8 r f16 e c8 r |   % 1\r
 164         c'16 g f8 r f16 e c g' c e |   % 2\r
 165         <c f>16 <g e'> <f c'>8 r <f c'>16 <e g> <c f>8 r |   % 3\r
 166         c'16 g f e d e c4. |   % 4\r
 167 \r
 168         % A section\r
 169 \r
 170         R2. |   % 5\r
 171         R2. |   % 6\r
 172         R2. |   % 7\r
 173         R2. |   % 8\r
 174         R2. |   % 9\r
 175         R2. |   % 10\r
 176         R2. |   % 11\r
 177         r4. r8 g16 c e g |   % 12\r
 178 \r
 179         % B section\r
 180 \r
 181         bf8-> r4 r4. |   % 13\r
 182         r4. r8 g,16 c e g |   % 14\r
 183         bf8-> r4 r4. |   % 15\r
 184         r4. r8 g,16 c e g |   % 16\r
 185         bf8-> r4 r4 bf8 |   % 17\r
 186         a8 d a b4 b8 |   % 18\r
 187         b8 e b c4. |   % 19\r
 188         d2. ~ |   % 20\r
 189         d4. ~ d8 c b |   % 21\r
 190         << c2. ~ \\ { r4. a,8 b c } >> |   % 22\r
 191         << c'2. \\ { c,4. b8. \tieUp c16 ~ c8 \tieNeutral } >> |   % 23\r
 192         d'2. ~ |   % 24\r
 193         d4. ~ d8 c b |   % 25\r
 194 \r
 195         c16 g f8 r f16 e c8 r |   % 26\r
 196         c'16 g f e d e c4. |   % 27\r
 197 \r
 198         c'16 g f8 r f16 e c8 r |   % 28\r
 199 \r
 200         % Ending\r
 201 \r
 202         c'16 g f e d e c4.^\fermata |   % 29\r
 203 }\r
 204 \r
 205 \r
 206 %\r
 207 % Chord names\r
 208 %\r
 209 \r
 210 Chords = \chordmode\r
 211 {\r
 212 %Bah, can't we set this globally?\r
 213 %       \popChords\r
 214 \r
 215         % Intro\r
 216 \r
 217         c2.:^3 |   % 1\r
 218         s2. |   % 2\r
 219         s2. |   % 3\r
 220         s2. |   % 4\r
 221 \r
 222         % A section\r
 223 \r
 224         c4. d:m7 |   % 5\r
 225         g4./b c |   % 6\r
 226         f4./a g/b |   % 7\r
 227         f8 c/e d:m7 c4. |   % 8\r
 228         c4. d:m7 |   % 9\r
 229         g4./b c |   % 10\r
 230         f4./a g/b |   % 11\r
 231         f8 c/e d:m7 c4. |   % 12\r
 232 \r
 233         % B section\r
 234 \r
 235         bf8/c s f/c bf4./c |   % 13\r
 236         f4./c c |   % 14\r
 237         bf8/c s f/c bf4./c |   % 15\r
 238         g4./c c |   % 16\r
 239         bf8/c s f/c bf4./c |   % 17\r
 240         d4./fs g8 g4/f |   % 18\r
 241         e4. a8:m a4:m/g |   % 19\r
 242         d2.:m7 |   % 20\r
 243         g4.:sus4 g |   % 21\r
 244         a2.:m7 |   % 22\r
 245         a2.:m7/g |   % 23\r
 246         d2.:m7 |   % 24\r
 247         g4.:sus4 g |   % 25\r
 248 \r
 249         c2.:^3 |   % 26\r
 250         s2. |   % 27\r
 251 \r
 252         c2.:^3 |   % 28\r
 253 \r
 254         % Ending\r
 255 \r
 256         s2. |   % 29\r
 257 }\r
 258 \r
 259 \r
 260 %\r
 261 % Chord rhythms\r
 262 %\r
 263 \r
 264 % Use a RhythmicStaff on the chords instead of this?\r
 265 % It almost works, but not quite. Doesn't collapse chords above to single notes...\r
 266 \r
 267 Rhythm = \relative c\r
 268 {\r
 269 %       \set Staff.instrument = #"Rhythm"\r
 270         \override Staff.TimeSignature #'style = #'()\r
 271         \override NoteHead #'style = #'slash\r
 272 \r
 273         % Intro\r
 274 \r
 275         c2. ~ |   % 1\r
 276         c2. |   % 2\r
 277         c2. ~ |   % 3\r
 278         c2. |   % 4\r
 279 \r
 280         % A section\r
 281 \r
 282         c4. c |   % 5\r
 283         c4. c |   % 6\r
 284         c4. c |   % 7\r
 285         c8 c c c4. |   % 8\r
 286         c4. c |   % 9\r
 287         c4. c |   % 10\r
 288         c4. c |   % 11\r
 289         c8 c c c4. |   % 12\r
 290 \r
 291         % B section\r
 292 \r
 293         c8 c c c4. |   % 13\r
 294         c4. c |   % 14\r
 295         c8 c c c4. |   % 15\r
 296         c4. c |   % 16\r
 297         c8 c c c4. |   % 17\r
 298         c4. c8 c4 |   % 18\r
 299         c4. c8 c4 |   % 19\r
 300         c4. c |   % 20\r
 301         c4. c |   % 21\r
 302         c4. c |   % 22\r
 303         c4. c |   % 23\r
 304         c4. c |   % 24\r
 305         c4. c |   % 25\r
 306 \r
 307         c2. ~ |   % 26\r
 308         c2. |   % 27\r
 309 \r
 310         c2. |   % 28\r
 311 \r
 312         % Ending\r
 313 \r
 314         c4. c^\fermata |   % 29\r
 315 }\r
 316 \r
 317 \r
 318 Dynamics =\r
 319 {\r
 320         % Intro\r
 321 \r
 322         s2._\f |   % 1\r
 323 \r
 324         s2.*3 |   % 2-4\r
 325 \r
 326         s4._\mf s |   % 5\r
 327 \r
 328         s2.*7 |   % 6-12\r
 329 \r
 330         s8_\f s4 s4. |   % 13\r
 331 }\r
 332 \r
 333 \r
 334 \score\r
 335 {\r
 336         <<\r
 337                 \Global                                         % The "roadmap" that everything else depends on\r
 338 \r
 339                 \context Staff\r
 340                 <<\r
 341                         \new Voice = "lead" \LeadVox\r
 342                         \new Lyrics \lyricsto "lead" \LeadVoxText\r
 343                 >>\r
 344 \r
 345                 \new Staff \with\r
 346                 {\r
 347 %                       \remove "Time_signature_engraver"\r
 348 %                       \remove "Clef_engraver"\r
 349 %Hmm, removing this screws up the formatting...\r
 350 %                       \remove "Key_engraver"\r
 351                         fontSize = #-3.0\r
 352                         \override StaffSymbol #'staff-space = #(magstep -3.0)\r
 353 %                       firstClef = ##f\r
 354                 }\r
 355                 \Riffs\r
 356 \r
 357                 \new ChoirStaff = "Rhythm"\r
 358                 <<\r
 359 %                       \new Staff = "riff" \RhythmB\r
 360                         \new ChordNames = "chords" \Chords\r
 361                         \new RhythmicStaff << \Rhythm \Dynamics >>\r
 362                 >>\r
 363 \r
 364                 \set Score.skipBars = ##t\r
 365                 \set Score.melismaBusyProperties = #'()\r
 366         >>\r
 367 }\r
 368 \r
 369 \r
 370 \paper\r
 371 {\r
 372         #(define fonts (make-pango-font-tree\r
 373                 "Times New Roman"\r
 374                 "DomCasual BT"\r
 375                 "Luxi Mono"\r
 376                 (/ staffSize 20)))\r
 377 \r
 378 % Don't spread staves vertically across last page (default: t)\r
 379 %       ragged-last-bottom = ##f\r
 380 % Don't spread staves vertically across the page (default: f)\r
 381 %       ragged-bottom = ##t\r
 382 % Allow partial line for last stave (default: f)\r
 383         ragged-last = ##t\r
 384 \r
 385 % To find out what's eating the space at the top...\r
 386 %       annotate-spacing = ##t\r
 387 %let's try this: [It works! Huzzah!]\r
 388         obsolete-page-top-space = 0  top-system-spacing #'basic-distance = #(/ obsolete-page-top-space staff-space)\r
 389 }\r