Documentation/snippets/new/staff-headword.ly

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