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> \times 2/3 { <d8 \< f> <e g> <f a> }
  18         <
  19           { \times 2/3 { a8 g c } \! c2 }
  20           \context Voice = oboeTwo {
  21                 \stemDown
  22                 \grace {
  23                   \property Grace.Stem \override #'direction = #-1
  24                   [f,16 g] }
  25                 f8 e e2
  26         } >
  27         \stemBoth
  28         \grace <c,8( e> <)b8. d8.-\trill> <c16 e> |
  29         [<d ( f> < )f8. a>] <)b,8 d> r [<d16( f> <f8. )a>] <b,8 d> r  |
  30         [<c16( e>  < )e8. g>] <c8 e,>
  31 }
  32
  33 hoomPah  =  \repeat unfold 8
  34   \notes  \transpose c' { c8 \stemDown c'8 \stemUp }
  35
  36 bassvoices = \notes \relative c' {
  37         c4 g8. b,16
  38         \autochange Staff \hoomPah
  39         \translator Staff = down
  40         \stemDown [c8 c'8] r4
  41         <g d'> r4
  42         < {\stemUp r2 <e4 c'> <c8 g'> }
  43           \context Voice = reallyLow  {\stemDown g2 ~ | g4 c8 } >
  44 }
  45
  46 \score {
  47         \context PianoStaff \notes <
  48                 \context Staff = up < \time 2/2;
  49                         \viola
  50                         \oboes
  51                 >
  52                 \context Staff = down < \time 2/2; \clef bass;
  53                         \bassvoices
  54                 >
  55         >
  56         \midi { }
  57         \paper {
  58           indent = 0.0;
  59           linewidth = 15.0 \cm; }
  60 }