From 564cce4274a0934314aaf3df161aa2d288a779e1 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Thu, 17 Nov 2016 12:13:54 +0100
Subject: white noise: keys: Print note names.

---
 04-white-noise/04-white-noise.ly | 11 +++++++++--
 04-white-noise/parts/keys.ly     | 14 +++++++++++++-
 2 files changed, 22 insertions(+), 3 deletions(-)

(limited to '04-white-noise')

diff --git a/04-white-noise/04-white-noise.ly b/04-white-noise/04-white-noise.ly
index 3462fa7..3ec5c3a 100644
--- a/04-white-noise/04-white-noise.ly
+++ b/04-white-noise/04-white-noise.ly
@@ -21,12 +21,19 @@
 }
 
 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"
diff --git a/04-white-noise/parts/keys.ly b/04-white-noise/parts/keys.ly
index 797e17c..1d79fab 100644
--- a/04-white-noise/parts/keys.ly
+++ b/04-white-noise/parts/keys.ly
@@ -15,7 +15,19 @@
   \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
-- 
cgit v1.2.3