input/tutorial/sammartini.ly

   1
   2 \include "paper16.ly"
   3
   4 stemdown = \property Voice.Stem \override #'direction = #-1
   5 stemup = \property Voice.Stem \override #'direction = #1
   6 stemboth = \property Voice.Stem \revert #'direction
   7
   8 viola = \notes \relative c' \context Voice = viola {
   9     <c4-\f-\arpeggio g' c>
  10     \stemDown g'8. b,16
  11     s1 s2. r4
  12     g
  13 }
  14
  15 oboes = \notes \relative c'' \context Voice = oboe {
  16     \stemUp s4  g8. b,16 c8 r <e'8.^\p g> <f16 a>
  17     \grace <e8( g> <d4 f> <c2 e>
  18     \times 2/3 { <d8 \< f> <e g> <f a> }
  19     <
  20         { \times 2/3 { a8 g c } \! c2 }
  21         \context Voice = oboeTwo {
  22             \stemDown
  23             \grace {
  24                 \stemDown
  25                 [f,16 g] }
  26                 f8 e e2
  27             }
  28     >
  29     \stemBoth
  30     \grace <c,8( e> <)b8. d8.-\trill> <c16 e> |
  31     [<d ( f> < )f8. a>] <)b,8 d> r [<d16( f> <f8. )a>] <b,8 d> r  |
  32     [<c16( e>  < )e8. g>] <c8 e,>
  33 }
  34
  35 hoomPah = \repeat unfold 8 \notes
  36     \transpose c' { c8 \stemDown c'8 \stemUp }
  37
  38 bassvoices = \notes \relative c' {
  39     c4 g8. b,16
  40     \autochange Staff \hoomPah
  41     \translator Staff = down
  42     \stemDown [c8 c'8] r4
  43     <g d'> r4
  44     < {\stemUp r2 <e4 c'> <c8 g'> }
  45         \context Voice = reallyLow  {\stemDown g2 ~ | g4 c8 } >
  46 }
  47
  48 \score {
  49     \context PianoStaff \notes <
  50         \context Staff = up < \time 2/2
  51              \viola
  52              \oboes
  53          >
  54          \context Staff = down < \time 2/2 \clef bass
  55              \bassvoices
  56          >
  57     >
  58     \midi { }
  59     \paper {
  60         indent = 0.0
  61         linewidth = 15.0 \cm }
  62 }