input/sondag-morgen/sondag-morgen.ly

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