]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/no-notation/midi-volume-equaliser.ly
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / input / no-notation / midi-volume-equaliser.ly
index be41ad5ac57c9989a99bc09edf3bf2372a4d4156..a8dbfa745104e1639a6d4eb511e6424ad4faca6e 100644 (file)
@@ -1,12 +1,12 @@
 #(ly:set-option 'old-relative)
-\version "2.1.7"
+\version "2.7.39"
 \header {
 texidoc = "@cindex Midi Volume Equaliser
 The full orchestra plays a notes, where groups stop one after
 another. Use this to tune equalizer settings. "
 }
 
-\include "paper16-init.ly"
+#(set-global-staff-size 16)
 
 %{
 
@@ -21,94 +21,94 @@ Override, see scm/midi.scm:
 
 %}
 
-flauti = \notes \relative c' {
-  \property Staff.midiInstrument = #"flute"
-  \property Staff.instrument   = #"2 Flauti"
-  \property Staff.instr                = #"Fl."
+flauti =  \relative c' {
+  \set Staff.midiInstrument = #"flute"
+  \set Staff.instrument = #"2 Flauti"
+  \set Staff.instr = #"Fl."
 
   c1\f R1*10
 }
 
-oboi = \notes \relative c' {
-  \property Staff.midiInstrument = #"oboe"
-  \property Staff.instrument   = #"2 Oboi"
-  \property Staff.instr                = #"Ob."
+oboi =  \relative c' {
+  \set Staff.midiInstrument = #"oboe"
+  \set Staff.instrument = #"2 Oboi"
+  \set Staff.instr = #"Ob."
 
   R1*1 c1\f R1*9
 }
 
-clarinetti = \notes \relative c' {
-  \property Staff.midiInstrument = #"clarinet"
-  \property Staff.instrument   = #"Clarinetti"
-  \property Staff.instr                = #"Cl"
+clarinetti =  \relative c' {
+  \set Staff.midiInstrument = #"clarinet"
+  \set Staff.instrument = #"Clarinetti"
+  \set Staff.instr = #"Cl"
 
   R1*2 c1\f R1*8
 }
 
-fagotti = \notes \relative c' {
-  \property Staff.midiInstrument = #"bassoon"
-  \property Staff.instrument   = #"2 Fagotti"
-  \property Staff.instr                = #"Fg."
+fagotti =  \relative c' {
+  \set Staff.midiInstrument = #"bassoon"
+  \set Staff.instrument = #"2 Fagotti"
+  \set Staff.instr = #"Fg."
 
   \clef bass
   R1*3 c1\f R1*7
 }
 
-corni = \notes \relative c' {
-  \property Staff.midiInstrument = #"french horn"
-  \property Staff.instrument   = #"Corni"
-  \property Staff.instr                = #"Cor"
+corni =  \relative c' {
+  \set Staff.midiInstrument = #"french horn"
+  \set Staff.instrument = #"Corni"
+  \set Staff.instr = #"Cor"
 
   R1*4 c1\f R1*6
 }
 
-trombe = \notes \relative c' {
-  \property Staff.midiInstrument = #"trumpet"
-  \property Staff.instrument   = #"Trombe"
-  \property Staff.instr                = #"Tp."
+trombe =  \relative c' {
+  \set Staff.midiInstrument = #"trumpet"
+  \set Staff.instrument = #"Trombe"
+  \set Staff.instr = #"Tp."
 
   \clef bass
   R1*5 c1\f R1*5
 }
 
-timpani = \notes \relative c' {
-  \property Staff.midiInstrument = #"timpani"
-  \property Staff.instrument   = #"Timpani"
-  \property Staff.instr                = #"Timp."
+timpani =  \relative c' {
+  \set Staff.midiInstrument = #"timpani"
+  \set Staff.instrument = #"Timpani"
+  \set Staff.instr = #"Timp."
 
   R1*6 c1\f R1*4
 }
 
-violinoI = \notes \relative c' {
-  \property Staff.midiInstrument = #"violin"
-  \property Staff.instrument   = #"Violino I "
-  \property Staff.instr                = #"Vl. I "
+violinoI =  \relative c' {
+  \set Staff.midiInstrument = #"violin"
+  \set Staff.instrument = #"Violino I "
+  \set Staff.instr = #"Vl. I "
 
   R1*7 c1\f R1*3
 }
 
-violinoII = \notes \relative c' {
-  \property Staff.midiInstrument = #"violin"
-  \property Staff.instrument   = #"Violino II "
-  \property Staff.instr                = #"Vl. II "
+violinoII =  \relative c' {
+  \set Staff.midiInstrument = #"violin"
+  \set Staff.instrument = #"Violino II "
+  \set Staff.instr = #"Vl. II "
  
   R1*8 c1\f R1*2
 }
 
-viola = \notes \relative c' {
-  \property Staff.midiInstrument = #"viola"
-  \property Staff.instrument   = #"Viola"
-  \property Staff.instr                = #"Vla."
+viola =  \relative c' {
+  \set Staff.midiInstrument = #"viola"
+  \set Staff.instrument = #"Viola"
+  \set Staff.instr = #"Vla."
 
   \clef alto
   R1*9 c1\f R1*1
 }
 
-violoncello = \notes \relative c' {
-  \property Staff.midiInstrument = #"cello"
-  %\property Staff.midiInstrument = #"contrabass"
-  \property Staff.instrument   = #"Violoncello"
-  \property Staff.instr                = #"Vc."
+violoncello =  \relative c' {
+  \set Staff.midiInstrument = #"cello"
+  %\set Staff.midiInstrument = #"contrabass"
+  \set Staff.instrument = #"Violoncello"
+  \set Staff.instr = #"Vc."
   
   \clef bass
   R1*10 c1\f
@@ -117,39 +117,39 @@ violoncello = \notes \relative c' {
 
 \score {
   << 
-    \context StaffGroup ="legni" << 
-      \context Staff ="flauti" \flauti
-      \context Staff ="oboi" \oboi
-      \context Staff ="clarinetti" \clarinetti 
-      \context Staff ="fagotti" \fagotti 
+    \new StaffGroup = "legni" << 
+      \new Staff = "flauti" \flauti
+      \new Staff = "oboi" \oboi
+      \new Staff = "clarinetti" \clarinetti 
+      \new Staff = "fagotti" \fagotti 
     >>
-    \context StaffGroup ="ottoni" <<
-      \context Staff ="corni" \corni
-      \context Staff ="trombe" \trombe
+    \new StaffGroup = "ottoni" <<
+      \new Staff = "corni" \corni
+      \new Staff = "trombe" \trombe
     >>
-    \context StaffGroup ="timpani" <<
-      \context Staff ="timpani" \timpani
+    \new StaffGroup = "timpani" <<
+      \new Staff = "timpani" \timpani
      { 
        \skip 1 
        % Hmm: this forces a staff-bracket, that's good!
        % However, I can't find where is decided on staff-bracket yes/no
      }
     >>
-    \context StaffGroup ="archi" <<
-      \context GrandStaff ="violini" <<
-        \context Staff ="violino1" \violinoI
-        \context Staff ="violino2" \violinoII
+    \new StaffGroup = "archi" <<
+      \new GrandStaff = "violini" <<
+        \new Staff = "violino1" \violinoI
+        \new Staff = "violino2" \violinoII
       >>
-      \context Staff ="viola" \viola
-      \context Staff ="violoncello" \violoncello
+      \new Staff = "viola" \viola
+      \new Staff = "violoncello" \violoncello
     >>
   >>
 
-  \paper {
-       \paperSixteen
+  \layout {
+       \layoutSixteen
        indent=100.0\mm
-       linewidth=150.0\mm
-    \translator {
+       line-width=150.0\mm
+    \context {
       \RemoveEmptyStaffContext
     }
   }