input/sondag-morgen/sondag-morgen.ly

   1 \version "1.7.6"
   2 \include "paper13.ly"
   3
   4 mu = {}
   5 ac = \accent
   6 su = \translator Staff = up
   7 sd = \translator Staff = down
   8 \include "sondag-morgen-lyrics.ly"
   9 \include "sondag-morgen-folded.ly"
  10
  11 \include "deutsch.ly"
  12 \header {
  13     title = "Søndag Morgen"
  14     composer = "Van Morrison (Moon Dance)\\\\Rune Zedeler 2002.06.20"
  15     piece = "Score"
  16     tagline = "\\Large{Form: Intro Vers$_1$ Vers$_2$ Omkvæd Vers$_1$ Omkvæd Omkvæd Outro  }"
  17 }
  18
  19 \score {
  20     \notes <
  21         \property Score.automaticMelismata = ##t
  22         \property Score.TimeSignature \override #'style = #'()
  23         \context Lyrics=marks { \marks }
  24         \context Lyrics = akk \akk
  25         \context StaffGroup = melo <
  26             \context Lyrics = korlyr { "" }
  27             \context Staff=mel <
  28                 \clef "G_8"
  29                 \property Staff.instrument = #'(lines "Kor" "Lead")
  30                 \property Staff.instr = "voc"
  31                 { s1*8 \break }
  32                 \global
  33                 <
  34                     \addlyrics
  35                     \context Voice = kor <
  36                         \voiceOne
  37                         \property Voice.MultiMeasureRest \override #'transparent = ##t
  38                         \transpose c' c \kormel
  39                     >
  40                     \context Lyrics=korlyr \korlyr
  41                 >
  42                 <
  43                     \addlyrics
  44                     \context Voice = mel <
  45                         \voiceTwo
  46                         \transpose c' c \mel
  47                     >
  48                     \context Lyrics=lyr \lyr
  49                 >
  50
  51             >
  52         >
  53         \context StaffGroup = sax <
  54             \context Staff = sax <
  55                 \property Staff.instrument = #'(lines "Sop. sax" "Alt sax" "Ten. sax")
  56                 \property Staff.instr = "sax"
  57                 \clef "G"
  58                 \global
  59                 \context Voice = sop < \voiceOne \sopsax >
  60                 \context Voice = alt < \voiceFour \altsax >
  61                 \context Voice = ten < \voiceTwo \tensax >
  62             >
  63         >
  64         \context StaffGroup = akk <
  65             \context PianoStaff = pia <
  66                 \property GrandStaff.instrument = "Piano    "
  67                 \property GrandStaff.instr = "pia   "
  68                 \context Staff = up <
  69                     \clef "G"
  70                     \global
  71                     \context Voice \piar
  72                 >
  73                 \context Staff = down <
  74                     \global
  75                     \context Voice \pial
  76                 >
  77
  78             >
  79             \context TabStaff=gui <
  80                 \property Staff.instrument = "Guitar    "
  81                 \property Staff.instr = "gt    "
  82                 \property TabStaff.stringOneTopmost = ##f
  83                 \property TabStaff.highStringOne = ##f
  84                 \property TabStaff.stringTunings = #(reverse guitar-tunings)
  85
  86                 \context TabVoice \guitar
  87             >
  88             \context Staff = cello <
  89                 \property Staff.instrument = "Cello"
  90                 \property Staff.instr = "cel"
  91                 \clef "F"
  92                 \global
  93                 \context Voice \cello
  94             >
  95             \context Staff = bas <
  96                 \property Staff.instrument = "Bas"
  97                 \property Staff.instr = "bas"
  98
  99                 \clef "F_8"
 100                 \global
 101                 \transpose c' c \bas
 102             >
 103             \context Staff = drums <
 104                 \property Staff.instrument = "Trommer"
 105                 \property Staff.instr = "tr"
 106                 \clef "percussion"
 107                 \global
 108                 \apply #(drums->paper 'drums) <
 109                     \context Voice=hi { \voiceOne \drhi }
 110                     \context Voice=lo { \voiceTwo \drlo }
 111                 >
 112             >
 113         >
 114     >
 115     \paper {
 116         % linewidth = 26.5\cm
 117         % textheight = 38.0\cm
 118         linewidth = 18.8\cm
 119         indent = 1.0\cm
 120         \translator {
 121             \TabStaffContext
 122             \remove "Key_engraver"
 123             \consists "Rest_engraver"
 124         }
 125         \translator {
 126             \GrandStaffContext
 127             \accepts "TabStaff"
 128             \consists "Instrument_name_engraver"
 129         }
 130         \translator {
 131             \ScoreContext
 132             BarNumber \override #'padding = #2.0
 133         }
 134         \translator {
 135             \StaffContext
 136             minimumVerticalExtent = #'(-4.0 . 4.0)
 137             \remove "Piano_pedal_engraver"
 138         }
 139         \translator {
 140             \PianoStaffContext
 141             VerticalAlignment \override #'forced-distance = #10
 142         }
 143    }
 144
 145 }
 146
 147
 148 mu = -\p
 149 ac = -\f
 150 su = {}
 151 sd = {}
 152 \include "sondag-morgen-unfolded.ly"
 153 \include "deutsch.ly"
 154
 155 \score {
 156     \apply #unfold-repeats
 157     \notes <
 158         \context Staff = lead <
 159             \property Staff.instrument = "drawbar organ"
 160             \context Voice < \mel s1-\ff >
 161         >
 162         \context Staff = sopsax <
 163             \property Staff.instrument = "soprano sax"
 164             \sopsax
 165         >
 166         \context Staff = altsax <
 167             \property Staff.instrument = "alto sax"
 168             \altsax
 169         >
 170         \context Staff = tensax <
 171             \property Staff.instrument = "tenor sax"
 172             \tensax
 173         >
 174         \context Staff = pia <
 175             \property Staff.instrument = "electric grand"
 176             \piar \pial
 177         >
 178         \context Staff = gt <
 179             \property Staff.instrument = "electric guitar (clean)"
 180             \guitar
 181         >
 182         \context Staff = cel <
 183             \property Staff.instrument = "cello"
 184             \cello
 185         >
 186         \context Staff = bas <
 187             \property Staff.instrument = "electric bass (finger)"
 188             < \transpose c' c \bas s1-\ff >
 189         >
 190         \context Staff = trom <
 191             \property Staff.instrument = "drums"
 192             \drhi \drlo
 193         >
 194
 195
 196     >
 197     \midi { \tempo 4 = 128 }
 198 }
 199