white noise: keys: Print note names.
authorrekado <rekado@elephly.net>
Thu, 17 Nov 2016 11:13:54 +0000 (12:13 +0100)
committerrekado <rekado@elephly.net>
Thu, 17 Nov 2016 11:13:54 +0000 (12:13 +0100)
04-white-noise/04-white-noise.ly
04-white-noise/parts/keys.ly

index 3462fa7..3ec5c3a 100644 (file)
 }
 
 AllMusic = <<
-  \new Staff = "keyboard"
+  \new PianoStaff = "keyboard"
   \with {
     instrumentName = #"Synthesizer"
     shortInstrumentName = #"Synth"
     pedalSustainStyle = #'bracket
-  } { \keyboard }
+  } {
+    <<
+      \new Staff {
+        \clef treble
+        \keyboard
+      }
+    >>
+  }
   \new StaffGroup = "bass"
   \with {
     instrumentName = #"Bass"
index 797e17c..1d79fab 100644 (file)
   \new PianoStaff = "keyboard" \with {
     pedalSustainStyle = #'bracket
   } {
-    \compressMMRests \keyboard
+    <<
+      \new Staff {
+        <<
+          \tempo 4 = 90
+          \clef treble
+          \compressMMRests \keyboard
+          \context NoteNames = "upper" {
+            \set printOctaveNames = ##f
+            \compressMMRests \keyboard
+          }
+        >>
+      }
+    >>
   }
   \layout {
     \tempo 4 = 120