white noise: keys: Print note names.

diff --git a/04-white-noise/04-white-noise.ly b/04-white-noise/04-white-noise.ly
index 3462fa76efc3abcccdcf9bbe513a56aed0f05e30..3ec5c3a695e11ce07da132802027df595a77ecbb 100644 (file)
--- a/04-white-noise/04-white-noise.ly
+++ b/04-white-noise/04-white-noise.ly
@@ -21,12 +21,19 @@
 }
 
 AllMusic = <<
 }
 
 AllMusic = <<

-  \new Staff = "keyboard"
+  \new PianoStaff = "keyboard"

   \with {
     instrumentName = #"Synthesizer"
     shortInstrumentName = #"Synth"
     pedalSustainStyle = #'bracket
   \with {
     instrumentName = #"Synthesizer"
     shortInstrumentName = #"Synth"
     pedalSustainStyle = #'bracket

-  } { \keyboard }
+  } {
+    <<
+      \new Staff {
+        \clef treble
+        \keyboard
+      }
+    >>
+  }

   \new StaffGroup = "bass"
   \with {
     instrumentName = #"Bass"
   \new StaffGroup = "bass"
   \with {
     instrumentName = #"Bass"

diff --git a/04-white-noise/parts/keys.ly b/04-white-noise/parts/keys.ly
index 797e17cbcf8711e469464ef2d2b4929f41498bbd..1d79fab6c7f30499bab3b28202dcdff35fe3d1ba 100644 (file)
--- a/04-white-noise/parts/keys.ly
+++ b/04-white-noise/parts/keys.ly
@@ -15,7 +15,19 @@
   \new PianoStaff = "keyboard" \with {
     pedalSustainStyle = #'bracket
   } {
   \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
   }
   \layout {
     \tempo 4 = 120