Simple note to chord substitution?

[Jacob]

Dear everyone,

I am a new user to Lilypad and have been using it to typeset some
straight-forward flageolet music up to now. I was hoping, however, to move
onto some of the pieces which are written in a tablature (a good example is
here: http://memory.loc.gov/dcmflute/misc/tutor1/0016r.jpg). Ideally, I
would like to reproduce the look of the original tablature and have the
modern notation below.

I have managed to sort out all the layout issues and find a way of quite
faithfully reproducing the look of the original, using two staves to show
the tablature (one shows the rhythm and the other the diagram of which holes
are covered). I'll put some example code at the bottom so you can see what I
have in mind.

The problem I have is that to produce the look of the tablature, on the
middle stave, each note of music has to be substituted for a specific chord.
For example, each "d" needs to be turned into "<e g b d f a>" and each "e"
becomes "<g b d f a>". What I was wondering is if there is a simple way
whereby I can store some music in an input variable (e.g. Music = {d e}) and
then, for the middle stave, run a function where each note is substituted
for the required chord?

I'm afraid I've only had experience of programming in web-based languages so
I'm not really sure where to start with Scheme (short of a "Scheme for
Dummies" book and learning the 
language from scratch!). I hope that such a thing will be easy to do. The
other option, I suppose, is manually generating the middle stave's notation
using another language outside the program, but that does seem quite
cumbersome. If I have missed another answer to this which has already been
given here or in the documentation, I apologise.

Many thanks for your time,

Best wishes,

Jacob

http://www.flageolets.com

**
Sample
**
Music = {d2e fis g a b cis d}
<<
{\new RhythmicStaff \with                                               %%Rhythm
{\remove "Clef_engraver"
\remove "Time_signature_engraver"
\remove "Staff_symbol_engraver"}
{\override StaffSymbol #'transparent = ##t 
\override TimeSignature #'transparent = ##t 
\override BarLine #'transparent = ##t 
\override NoteHead #'style = #'neomensural
\override Stem #'flag-style = #'mensural
\override Rest #'style = #'neomensural
\autoBeamOff
\Music}}
{\new Staff \with                                                       %%Notes
{  \remove "Clef_engraver" }
{ 
\override Staff.TimeSignature #'style = #'mensural
\override Rest #'style = #'neomensural
\override Staff.StaffSymbol #'line-count = #6
\override Stem #'transparent = ##t 
\override NoteHead #'glyph-name = #"2la"
\override NoteHead #'style = #'special 
\time 2/2
\relative c'{<e g b d f a>2<g b d f a><e g d' f a><d' f a><f a><d f><d>s}}      
%%Can this be automatically generated from \Music?
}
{\new Staff                                                     %%Modern
{\clef "G^8"
\time 2/2
\key d \major
\relative c''{
\Music}}}
>>
\version "2.7.39" 
-- 
View this message in context: 
http://www.nabble.com/Simple-note-to-chord-substitution--tf2278138.html#a6327199
Sent from the Gnu - Lilypond - User forum at Nabble.com.