- <<
-%-- Treble Staff --%
- \new Staff = "G" {
-% Allow this staff to be placed close to the others
- \override Staff.VerticalAxisGroup
- #'minimum-Y-extent = #'(0 . 0)
-% Allow the treble clef to overlap the lower staves:
-% \override Staff.Clef #'Y-extent = #'(0 . 0)
- \override Staff.Clef #'stencil = ##f % No clef required here
- \clef "G"
- s1^\markup { "g," \transparent "g" }
- s^ \markup { "b," \transparent "g" }
- s^ \markup { "d" \transparent "g" }
- s^ \markup { "f" \transparent "g" }
- s^ \markup { "a" \transparent "g" }
- s^ \markup { \with-color #red c' \transparent "g"}
- \stopStaff \startStaff
- \clef "C" % Dummy to force next clef to be printed
- s % Need at least one note for \clef to take effect
- \revert Staff.Clef #'stencil % Clef now required
- \override Staff.Clef #'Y-extent = #'(0 . 0) % Permit overlap
- \clef "G"
- e'^\markup { "e'" \transparent "g" }
- g'^\markup { "g'" \transparent "g" }
- b'^\markup { "b'" \transparent "g" }
- d''^\markup { "d''" \transparent "g" }
- f''^\markup { "f ''" \transparent "g" }
- } % End staff G
-%-- Alto Staff reduced to a single line on middle C --%
- \new Staff = "C" {
- \override Staff.StaffSymbol #'line-count = 1 % One line only
- \override Staff.StaffSymbol #'color = #red % Coloured red
- \override Staff.Clef #'stencil = ##f % No clef required
- \clef "C"
-
-% Allow this staff to be placed close to the others
- \override Staff.VerticalAxisGroup
- #'minimum-Y-extent = #'(0 . 0)
-% Specify height to give correct spacing between the staves
- \override Staff.VerticalAxisGroup #'Y-extent = #'(-1 . 1)
-
- s1 s s s s % Space along to align horizonatally
- \override NoteHead #'color = #red
- c'1 % A middle C
-% s1 s s s s % Keep staff (ie the red line) showing
- } % End staff C
-%-- Bass Staff --%
- \new Staff = "F" {
-% Allow this staff to be placed close to the others
- \override Staff.VerticalAxisGroup
- #'minimum-Y-extent = #'(0 . 0)
- \override Staff.Clef #'stencil = ##f % No clef required
- \clef "F"
- g,1_" " b, d f a
-% s s s s s s % Keep staff showing
- } % End staff F
- >>
- \layout {
-% Reduce horizontal spacing so semibreves can be used
-% without exceeding 1 line
- \context { \Score \override SpacingSpanner
- #'base-shortest-duration = #(ly:make-moment 1 1)
- }
-% Reduce apparent vertical size of note heads to
-% permit them to overlap other grobs vertically
- \context { \Score \override NoteHead #'Y-extent = #'(0 . 0)
- }
-% Remove all barlines
- \context { \Score \override BarLine #'stencil = ##f
- }
-% Remove time signature from all staves
- \context { \Staff \remove Time_signature_engraver
+ <<
+ %-- Note names above treble staff --%
+ \new NoteNames {
+ \set printOctaveNames = ##t
+ g,1 b, d f a
+ \once \override NoteName #'color = #red
+ c'1
+ s1
+ e'1 g' b' d'' f''
+ }
+ %-- Treble Staff --%
+ \new Staff = "G" {
+ \once \override Staff.Clef #'stencil = ##f
+ \clef "G"
+ s1 s s s s s s
+ \override Staff.Clef #'full-size-change = ##t
+ \set Staff.forceClef = ##t
+ \clef "G"
+ e'1 g' b' d'' f''
+ }
+ %-- Alto Staff reduced to a single line on middle C --%
+ \new Staff = "C" {
+ \override Staff.StaffSymbol #'line-count = #1
+ \override Staff.StaffSymbol #'color = #red
+ \override Staff.Clef #'stencil = ##f
+ \clef "C"
+ s1 s s s s
+ \override NoteHead #'color = #red
+ c'1
+ }
+ %-- Bass Staff --%
+ \new Staff = "F" {
+ \override Staff.Clef #'stencil = ##f
+ \clef "F"
+ g,1 b, d f a
+ }
+ >>
+ \layout {
+ \context {
+ \Score
+ \override SpacingSpanner
+ #'base-shortest-duration = #(ly:make-moment 2 1)
+ \override NonMusicalPaperColumn
+ #'line-break-system-details = #'((alignment-offsets . (3 0 -3 -6)))
+ \override BarLine #'stencil = ##f
+ }
+ \context {
+ \Staff
+ \remove "Time_signature_engraver"
+ }