input/tutorial/os-score.ly

   1
   2 \include "os-music.ly";
   3 \include "paper13.ly";
   4
   5 #(set! point-and-click #t)
   6 #(define text-flat '((font-relative-size . -2) (music "accidentals--1")))
   7
   8 \score {
   9   \notes <
  10     \global
  11     \context StaffGroup = woodwind <
  12       \context Staff = flauti <
  13         \property Staff.midiInstrument = #"flute"
  14         \property Staff.instrument = "2 Flauti"
  15         \property Staff.instr = "Fl."
  16         \Key
  17         \context Voice=one { \voiceOne \flautoI }
  18         \context Voice=two { \voiceTwo \flautoII }
  19       >
  20     >
  21     \context StaffGroup = timpani <
  22       \context Staff = timpani <
  23         \property Staff.midiInstrument = #"timpani"
  24         \property Staff.instrument = #'(lines "Timpani" "(C-G)")
  25         \property Staff.instr = #"Timp."
  26         \clef bass;
  27         \Key
  28         \timpani
  29       >
  30     >
  31     \context StaffGroup = brass <
  32       \context Staff = trombe <
  33         \property Staff.midiInstrument = #"trumpet"
  34         \property Staff.instrument = #`(lines "2 Trombe" (rows "(C)"))
  35         \property Staff.instr = #`(lines "Tbe." (rows "(C)"))
  36         \Key
  37         \context Voice=one \partcombine Voice
  38           \context Thread=one \tromboI
  39           \context Thread=two \tromboII
  40       >
  41       \context Staff = corni <
  42         \property Staff.midiInstrument = #"french horn"
  43         \property Staff.instrument = #`(lines "Corno" (rows "(E" ,text-flat ")"))
  44         \property Staff.instr = #`(lines "Cor."  (rows "(E" ,text-flat ")"))
  45         \property Staff.transposing = #3
  46         \notes \key bes \major;
  47         \context Voice=one \corno
  48       >
  49     >
  50   >
  51   \paper {
  52     indent = 15 * \staffspace;
  53     linewidth = 60 * \staffspace;
  54     textheight = 90 * \staffspace;
  55     \translator{
  56       \ThreadContext
  57       \consists "Rest_engraver";
  58     }
  59     \translator{
  60       \VoiceContext
  61       \remove "Rest_engraver";
  62     }
  63     \translator{
  64       \HaraKiriStaffContext
  65     }
  66     \translator {
  67       \OrchestralScoreContext
  68       BarNumber \override #'padding = #3
  69     }
  70   }
  71   \midi {
  72     \tempo 4 = 75;
  73   }
  74 }
  75