Documentation/snippets/new/staff-headword.ly

   1 \version "2.15.32"
   2 \include "catalan.ly"
   3
   4 \header {
   5   lsrtags = "headwords"
   6   texidoc = ""
   7   doctitle = "headword"
   8 }
   9
  10 \header {
  11         mutopiatitle = "Napolitan Dance (Swan Lake)"
  12         mutopiacomposer = "TchaikovskyPI"
  13         mutopiainstrument = "Piano, Trumpet, Percussion"
  14         source = "New arrangement"
  15         style = "Classical"
  16         copyright = "Public Domain"
  17         maintainer = "Laurence Sardain"
  18         lastupdated = "2006/Dec/21"
  19 %       title = "Le Lac des Cygnes"
  20 %       subtitle = "Danse Napolitaine"
  21 %       composer = "Piotr Ilitch Tchaïkovski"
  22 %       arranger = "arr. Laurence Sardain"
  23 %       footer = "Mutopia-2006/12/22-896"
  24 }
  25
  26 trompette = \relative do'' {
  27   \clef treble
  28   \key mib \major
  29   \time 2/4
  30   R2^\markup { \italic Comodo } |
  31   r8 \once \override TextScript #'padding = #2.0
  32   sib16-.^\markup {\dynamic p \italic grazioso} do-. mib( re)-. do-. sib-. |
  33   re8-. r8 re4->( |
  34   re8) do16-. re-. mib( re) do-. re-. |
  35   do8-. r8 sib4-> |
  36 }
  37
  38 tambourin = \relative do' {
  39   \time 2/4
  40   r8 do16 do do8 do |
  41   r8 do16 do do8 do |
  42   r8 do r do |
  43   r8 do16 do do8 do |
  44   r8 do r do |
  45 }
  46
  47 tambourinMidi = \drummode {
  48   \time 2/4
  49   r8 tamb16 tamb tamb8 tamb |
  50   r8 tamb16 tamb tamb8 tamb |
  51   r8 tamb r tamb |
  52   r8 tamb16 tamb tamb8 tamb |
  53   r8 tamb r tamb |
  54 }
  55
  56 upper = \relative do' {
  57   \clef treble
  58   \key mib \major
  59   \time 2/4
  60   r8\p <sol sib mib>16-. <sol sib mib>-. <sol sib mib>8-. <sol sib mib>-. |
  61   r8 <sol sib mib>16-. <sol sib mib>-. <sol sib mib>8-. <sol sib mib>-. |
  62   r8 <lab sib re>16-. <lab sib re>-. <lab sib re>8-. <lab sib re>-. |
  63   r8 <lab sib re>16-. <lab sib re>-. <lab sib re>8-. <lab sib re>-. |
  64   r8 <sol sib mib>16-. <sol sib mib>-. <sol sib mib>8-. <sol sib mib>-. |
  65 }
  66
  67 lower = \relative do {
  68   \clef bass
  69   \key mib \major
  70   \time 2/4
  71   mib4-. r4 |
  72   sib-. r |
  73   fa'-. r |
  74   sib, r |
  75   mib4-. r4 |
  76 }
  77
  78
  79 \score {
  80   <<
  81     \context Staff = "trumpet" <<
  82       \set Staff.instrumentName = \markup { "Trumpet" \concat{ B \teeny \raise #0.4 \flat } }
  83       \transpose sib do'
  84       \trompette
  85     >>
  86     \context RhythmicStaff = "tambourin" <<
  87       \set Staff.instrumentName = "Tambourine"
  88       \tambourin
  89     >>
  90     \context PianoStaff = "prima" <<
  91       \set PianoStaff.instrumentName = "Piano  "
  92       \context Staff = "uppera" \upper
  93       \context Staff = "lowera" \lower
  94     >>
  95   >>
  96   \layout { }
  97 }
  98 \score {
  99   <<
 100     \context Staff = "trumpet" {
 101       \set Staff.midiInstrument = "trumpet"
 102       \trompette
 103     }
 104     \context DrumStaff = "tambourin" {
 105       \tambourinMidi
 106     }
 107     \context Staff = "piano" <<
 108       \upper
 109       \lower
 110     >>
 111   >>
 112   \midi {
 113     \tempo 4 = 72
 114   }
 115 }
 116