Fw: numbered notes

Hi lily users:

Is it possible to adapt the following numbr (at end of this email) which display number notes to display additional info as to the following table?

Thanks in advance,

Ming. 

Whole (semibreve):  1 - - -    Dotted whole:   1 - - - - -    Double dotted: 1 - - - - - -
 
Half (minim):       1 -        Dotted half:    1 - -          Double dotted: 1 - - ·
 
Quarter (crotchet): 1          Dotted quarter: 1·             Double dotted: 1··
 
Eighth (quaver):    1          Dotted eighth:  1·             Double dotted: 1··
 
16th (semiquaver):  1
                    =

----- Forwarded Message -----
From: MING TSANG <address@hidden>
To: "address@hidden" <address@hidden>
Sent: Wednesday, May 1, 2013 10:17:42 PM
Subject: numbered notes

Hi lily user:

Is it possible to modify the following code. I like to display notes in numbered equivalent. eg. key c\major
f = 4 - if possible there is a "." below the number e.g. *
f' = 4 - e.g. 4
f'' = 4 - if possible to display a "." on top of the number e.g.$

Thanks,
Ming.

\version "2.17.0"

\include "english.ly"

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)))))

musicI= \relative c {\key c\major c4 d e f g a b2 |\break }

musicII= \relative c' {\key c\major c4 d e f g a b2 |\break }

musicIII = \relative c'' { \key c\major c4 d e f g a b2 |\break }

\score{

\new Staff \with {\consists #numbr }

{\musicI \musicII \musicIII}

\layout {}

}

From:	MING TSANG
Subject:	Fw: numbered notes
Date:	Thu, 9 May 2013 15:43:43 -0700 (PDT)