From: Gilles <address@hidden>
To: lilypond-usermailinglist <address@hidden>; MING TSANG
<address@hidden>
Sent: Monday, November 5, 2012 11:30:39 AM
Subject: Re: pitch name transpose into numeric per key signature
> Additional question: Can the numeric line up horizontally?
I am 3 days late answering.
The traditional way to do that is to override the padding property, but I wanted to explore the method using context, that I was not used to.
Here are the result of my tries.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\include "english.ly"
%%
http://lsr.dsi.unimi.it/LSR/Snippet?id=818 %%%%%%%%%%%%%%%%%%%%%%%%%%%
numbr = #(make-engraver (acknowledgers
((note-head-interface engraver grob
source)
(let* (
(context (ly:translator-context engraver))
(tonic-pitch (ly:context-property context 'tonic))
(tonic-index (ly:pitch-notename tonic-pitch))
(event (ly:grob-property grob 'cause))
(grob-pitch (ly:event-property event 'pitch))
(grob-index (ly:pitch-notename grob-pitch))
(delta (modulo (- grob-index tonic-index) 7))
(name (list-ref '("1" "2" "3" "4" "5" "6" "7") delta))
(newgrob (ly:engraver-make-grob engraver 'TextScript event)))
(set! (ly:grob-property newgrob 'text) name)
;(set! (ly:grob-property newgrob 'direction) UP)
))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%
music = \relative c' {
\key c\major c4 e g
b d f a2 |\break
\key g\major g,,4 b d fs a c e2 | \break
\key ef\major ef,4 g bf d f af c2 | \break
\key d \major d,,4 fs a cs e g b2 | \break
\key cf\major cf,,4 ef gf bf df ff af2 | \break
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%
\markup "with padding"
\score{
\new Staff \with {
\consists #numbr
\override TextScript #'direction = #UP
\override TextScript #'padding = #3
}
\music
\layout {}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%
\markup "with a new context"
\score { <<
\new NumbrStaff \music
\new Staff \music
>>
\layout {
\context {
\type Engraver_group
\name NumbrStaff
\consists
Output_property_engraver
\consists Key_engraver % needed for tonic pitch
\consists Note_heads_engraver % needed for pitch of note
\consists Text_engraver
\consists #numbr
\consists Axis_group_engraver
\override KeySignature #'stencil = ##f
\override KeyCancellation #'stencil = ##f
\override NoteHead #'stencil = ##f
% this section is a copy of NoteNames engraver in engraver-init.ly
\override VerticalAxisGroup #'staff-affinity = #UP
\override VerticalAxisGroup #'nonstaff-nonstaff-spacing =
#'((basic-distance . 0)
(minimum-distance . 2.8)
(padding . 0.2)
(stretchability .
0))
\override VerticalAxisGroup #'nonstaff-relatedstaff-spacing =
#'((basic-distance . 5.5)
(padding . 0.5)
(stretchability . 1))
\override VerticalAxisGroup
#'nonstaff-unrelatedstaff-spacing #'padding = 1.5
}
\context { \Score \accepts NumbrStaff }
}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-- Gilles