…ctx) (cond ((<= (ly:pitch-semitones pitch) 1) ; Note too low (markup #:sans "U")) ((>= (ly:pitch-semitones pitch) 27) ; Note too high (… …pitch) 13) (markup #:sans (note-name->markup pitch #f)) (markup #:sans (#:center-column (#:pad-around 0.6 (note-name->markup pitch #t) "+"))) ) ) ) ) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % Example code begins % music = { \key d \…