input/tutorial/os-score.ly

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