Question:
Is possible to modify the following to print the numbers next to the note head?
---------------------------------------------------------------------------------
\version "2.13.46"
\header {
title = "The Lord Is In His Holy Temple"
subtitle = "主在聖殿中 "
poet = "詞"
composer = " 曲"
meter = \markup { "D" "4/4" }
enteredby="ymingT"
maintainer="ymingT"
texidoc = ""
}
ignoreMelisma = \set ignoreMelismata = ##t
ignoreMelismaOff = \unset ignoreMelismata
#(define Ez_numbers_engraver
(list
(cons 'acknowledgers
(list
(cons 'note-head-interface
(lambda (engraver grob source-engraver)
(let* ((context (ly:translator-context engraver))
(tonic-pitch (ly:context-property context 'tonic))
(tonic-name (ly:pitch-notename tonic-pitch))
(grob-pitch
(ly:event-property (event-cause grob) 'pitch))
(grob-name (ly:pitch-notename grob-pitch))
(delta (modulo (- grob-name tonic-name) 7))
(note-names
(make-vector 7 (number->string (1+ delta)))))
(ly:grob-set-property! grob 'note-names note-names))))))))
#(set-global-staff-size 21)
#(set-default-paper-size "letter")
EzNum = {
\override Staff.StaffSymbol #'staff-space = #2.25
\override Staff.StaffSymbol #'line-thickness = #1.25
\override Staff.NoteHead #'font-size = #+2.75
\override Staff.Clef #'font-size = #+2.25
\override Staff.TimeSignature #'font-size = #+2.25
\override Staff.Accidental #'font-size = #+2.25
\easyHeadsOn
\override Voice.NoteHead #'font-size = #-0.25
}
\paper {
#(set-paper-size "letter")
indent = #(* mm 0)
line-width = #(* mm 160)
interscoreline = 12.\mm
between-system-space = 80\mm
ragged-bottom = ##t
}
\include "english.ly"
TimeKey = { \time 4/4 \key d \major } % \partial 4
SopMusic = \relative c' {
\EzNum
fs2 fs4 fs | fs( g) fs2 | %bar 01-02
a2 a4 a | a( b) a2 | %bar 03-04
}
AltoMusic = \relative c' {
\EzNum
d2 d4 d | d2 d2 | %bar 01-02
fs2 fs4 fs | fs2 fs | %bar 03-04
}
TenorMusic = \relative c {
\EzNum
a'2 a4 a4 | a4( b4) a2 | %bar 01-02
c2 cs?4 cs4 | c4( d4) cs2 | %bar 03-04
}
BassMusic = \relative c {
\EzNum
d2 d4 d4 | d2 d2 | %bar 01-02
d2 d4 d4 | d2 d2 | %bar 03-04
}
VerseOne = \lyricmode {
主 在 聖 | 殿 中 | 主 在 聖 | 殿 中 |
}
\score {
\new GrandStaff = "GrandStaff_score" <<
\new ChoirStaff <<
\tempo 4 = 90
\set Score.markFormatter = #format-mark-box-numbers
\new Staff <<
\override Score.BarNumber #'break-visibility = #'#(#t #t #t)
\clef "treble"
\new Voice = "Sop" { \voiceOne \TimeKey \SopMusic }
\new Voice = "Alto" { \voiceTwo \TimeKey \AltoMusic }
\new Lyrics \lyricsto "Sop" { \VerseOne }
>>
\new Staff <<
\clef "bass"
\new Voice = "Tenor" { \voiceOne \TimeKey \TenorMusic }
\new Voice = "Bass" { \voiceTwo \BassMusic }
>>
>>
>>
\layout {
\context {
\RemoveEmptyStaffContext
\override VerticalAxisGroup #'remove-first = ##t
\consists \Ez_numbers_engraver
}
}
% \midi { }
}
______________end___________________________________________
________________________________
From: "[email protected]" <[email protected]>
To: [email protected]; [email protected]
Sent: Sat, January 22, 2011 8:05:29 AM
Subject: easyHeadOn
Since I don't use the number engraver I'm not sure how that looks (meaning
after you've used 5 fingers what do the numbers mean?) but reading the
section on fingering gives you numbers adjacent to the notes (or above or
below) and if you need numbers higher than 5? I use markups.
Jay
On Fri, 21 Jan 2011 12:01:10 -0500, [email protected] wrote:
> Send lilypond-user mailing list submissions to
> [email protected]
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://lists.gnu.org/mailman/listinfo/lilypond-user
> or, via email, send a message with subject or body 'help' to
> [email protected]
>
> You can reach the person managing the list at
> [email protected]
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of lilypond-user digest..."
>
>
> Today's Topics:
>
> 1. EasyHeadOn (MING TSANG)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Fri, 21 Jan 2011 07:05:48 -0800 (PST)
> From: MING TSANG <[email protected]>
> Subject: EasyHeadOn
> To: [email protected]
> Message-ID: <[email protected]>
> Content-Type: text/plain; charset="us-ascii"
>
> I have been using easyHeadOn plus "#(define Ez_numbers_engraver" (from
the
> lilypond GNU-List) translates them into numbers. The number is printed
> inside
> the note head. Is it possible to have the number printed adjacent to the
> note
> head?
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
>
http://lists.gnu.org/archive/html/lilypond-user/attachments/20110121/fcabd633/attachment.html
>
> ------------------------------
>
> _______________________________________________
> lilypond-user mailing list
> [email protected]
> http://lists.gnu.org/mailman/listinfo/lilypond-user
>
>
> End of lilypond-user Digest, Vol 98, Issue 85
> *********************************************_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
