From 0a68553cd24bcf45fbc2858564ef428a8fce2e8a Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Wed, 16 Nov 2016 23:42:31 +0100
Subject: circus: keys: Print note names on keys part.

---
 03-circus/03-circus.ly  | 13 ++++++++++++-
 03-circus/music/keys.ly | 11 ++++-------
 03-circus/parts/keys.ly | 23 ++++++++++++++++++++++-
 3 files changed, 38 insertions(+), 9 deletions(-)

diff --git a/03-circus/03-circus.ly b/03-circus/03-circus.ly
index 8092e9e..18132ce 100644
--- a/03-circus/03-circus.ly
+++ b/03-circus/03-circus.ly
@@ -24,7 +24,18 @@ AllMusic = <<
     instrumentName = #"Synthesizer"
     shortInstrumentName = #"Synth"
     pedalSustainStyle = #'bracket
-  } { \keyboard }
+  } {
+    <<
+      \new Staff {
+        \clef treble
+        \keyboardUpper
+      }
+      \new Staff {
+        \clef bass
+        \keyboardLower
+      }
+    >>
+  }
   \new StaffGroup = "bass"
   \with {
     instrumentName = #"Bass"
diff --git a/03-circus/music/keys.ly b/03-circus/music/keys.ly
index 5c5ffc3..0a82331 100644
--- a/03-circus/music/keys.ly
+++ b/03-circus/music/keys.ly
@@ -266,8 +266,7 @@ keysFinalLower = \relative c {
   d2. | d2. |
 }
 
-keyboard = <<
-  \new Staff \relative c'  {
+keyboardUpper = \relative c'  {
     \set Staff.midiInstrument = #"reed organ"
     \time 2/4
     \key cis \minor
@@ -314,10 +313,9 @@ keyboard = <<
     \transpose c d { \keysArpeggioHigherUpper }
     \keysDramaUpper
     \keysFinalUpper
-  }
+}
 
-  \new Staff \relative c {
-    \clef bass
+keyboardLower = \relative c {
     \set Staff.midiInstrument = #"reed organ"
     \key cis \minor
     r2 | r2 |
@@ -362,5 +360,4 @@ keyboard = <<
     \transpose c d { \keysArpeggioHigherLower }
     \keysDramaLower
     \keysFinalLower
-  }
->>
+}
diff --git a/03-circus/parts/keys.ly b/03-circus/parts/keys.ly
index c27a121..1af7bf2 100644
--- a/03-circus/parts/keys.ly
+++ b/03-circus/parts/keys.ly
@@ -14,7 +14,28 @@
   \new PianoStaff = "keyboard" \with {
     pedalSustainStyle = #'bracket
   } {
-    \compressMMRests \keyboard
+    <<
+      \new Staff {
+        <<
+          \clef treble
+          \compressMMRests \keyboardUpper
+          \context NoteNames = "upper" {
+            \set printOctaveNames = ##f
+            \compressMMRests \keyboardUpper
+          }
+        >>
+      }
+      \new Staff {
+        <<
+          \clef bass
+          \compressMMRests \keyboardLower
+          \context NoteNames = "lower" {
+            \set printOctaveNames = ##f
+            \compressMMRests \keyboardLower
+          }
+        >>
+      }
+    >>
   }
   \layout {
     \tempo 4 = 90
-- 
cgit v1.2.3