From 17bec499f1a58ad917f176c17ea7cf773cbce23a Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Thu, 17 Nov 2016 11:58:52 +0100
Subject: song1: keys: Print note names.

---
 01-song1/01-song1.ly   |  9 ++++++++-
 01-song1/music/keys.ly |  6 ++----
 01-song1/parts/keys.ly | 17 ++++++++++++++++-
 3 files changed, 26 insertions(+), 6 deletions(-)

(limited to '01-song1')

diff --git a/01-song1/01-song1.ly b/01-song1/01-song1.ly
index 0dba940..c6d6a42 100644
--- a/01-song1/01-song1.ly
+++ b/01-song1/01-song1.ly
@@ -26,7 +26,14 @@ AllMusic = <<
     instrumentName = #"Synthesizer"
     shortInstrumentName = #"Synth"
     pedalSustainStyle = #'bracket
-  } { \keyboard }
+  } {
+    <<
+      \new Staff {
+        \clef treble
+        \keyboard
+      }
+    >>
+  }
   \new StaffGroup = "bass"
   \with {
     instrumentName = #"Bass"
diff --git a/01-song1/music/keys.ly b/01-song1/music/keys.ly
index c991085..8a3c90a 100644
--- a/01-song1/music/keys.ly
+++ b/01-song1/music/keys.ly
@@ -151,8 +151,7 @@ keysEnd = \relative c {
 }
 
 
-keyboard = <<
-  \new Staff \relative c' {
+keyboard = \relative c' {
     \tempo 4 = 90
     \clef "treble_8"
     %% Intro
@@ -179,5 +178,4 @@ keyboard = <<
     \keysATransitionPreOutro
     \repeat volta 2 \keysOutro
     \keysEnd
-  }
->>
+}
diff --git a/01-song1/parts/keys.ly b/01-song1/parts/keys.ly
index 77c2425..67b248d 100644
--- a/01-song1/parts/keys.ly
+++ b/01-song1/parts/keys.ly
@@ -12,7 +12,22 @@
 \include "../music/keys.ly"
 
 \score {
-  \compressMMRests { \keyboard }
+  \new PianoStaff = "keyboard" \with {
+    pedalSustainStyle = #'bracket
+  } {
+    <<
+      \new Staff {
+        <<
+          \clef treble
+          \compressMMRests \keyboard
+          \context NoteNames = "upper" {
+            \set printOctaveNames = ##f
+            \compressMMRests \keyboard
+          }
+        >>
+      }
+    >>
+  }
   \layout {
     indent = #0
     short-indent = #0
-- 
cgit v1.2.3