Lib/std/ly/piano.ly

   1 % STDfilenameDTS
   2 % File ID: STDuuidDTS
   3 % Author: Øyvind A. Holm <sunny@sunbase.org>
   4
   5 \include "defs.ily"
   6
   7 \include "chords.ily"
   8 \include "click.ily"
   9 \include "piano-lower.ily"
  10 \include "piano-upper.ily"
  11
  12 \score {
  13   \new StaffGroup <<
  14     \chords {
  15       \set chordChanges = ##t
  16       \theChords
  17     }
  18     \new PianoStaff <<
  19       \set PianoStaff.instrumentName = #"Piano"
  20       \new Staff = "upper" {
  21         \clef treble
  22         \pianoUpper
  23         % \bar "|."
  24       }
  25       \new Staff = "lower" {
  26         \clef bass
  27         \pianoLower
  28         % \bar "|."
  29       }
  30     >>
  31
  32     %{
  33     \new DrumStaff \with {
  34       instrumentName = "Metronome"
  35       shortInstrumentName = "Mt."
  36     } {
  37       \initTempo
  38       \clef percussion
  39       \metronome
  40       % \bar "|."
  41     }
  42     %}
  43   >>
  44
  45   \layout { }
  46 }
  47
  48 \score {
  49   \new StaffGroup <<
  50     \new Staff = "Piano" \with {
  51       instrumentName = "Piano"
  52       shortInstrumentName = "Pn."
  53       midiInstrument = "acoustic grand"
  54       % midiMaximumVolume = #1.00
  55       % midiPanPosition = 0
  56     } {
  57       \initTempo
  58       \countOff
  59       <<
  60         \unfoldRepeats \pianoUpper
  61         \unfoldRepeats \pianoLower
  62       >>
  63     }
  64
  65     %{
  66     \new DrumStaff \with {
  67       instrumentName = "Metronome"
  68       shortInstrumentName = "Mt."
  69       midiReverbLevel = #0
  70       % midiMaximumVolume = #1.00
  71     } {
  72       \initTempo
  73       \countOff
  74       \unfoldRepeats \metronome
  75     }
  76     %}
  77   >>
  78
  79   \midi { }
  80 }
  81
  82 % vim: set tw=0 :