Re: easyHeadOn

[MING TSANG]

Hi, Jay & Shane:

I am not talking about fingers.  May be the following snippet can explain it better.

Now the note head is too big.  If I don't enlarge them it will be hard to read.  I was thinking, if it is possible to have a normal note head, but the numbers is printed beside 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: "address@hidden" <address@hidden>
To: address@hidden; address@hidden
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, address@hidden wrote:
> Send lilypond-user mailing list submissions to
>     address@hidden
>
> 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
>     address@hidden
>
> You can reach the person managing the list at
>     address@hidden
>
> 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 <address@hidden>
> Subject: EasyHeadOn
> To: address@hidden
> Message-ID: <address@hidden>
> 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
> address@hidden
> http://lists.gnu.org/mailman/listinfo/lilypond-user
>
>
> End of lilypond-user Digest, Vol 98, Issue 85
> *********************************************