HA!! Yes! That is very close indeed.
Now I can enter in chord changes, and with just a very simple search/replace make an arpeggio sheet for them. See enclosed file for example (requires Giles code below as an \include) To get the chord changes and the arps, I just double the chord progression with a longer duration. It still is less typing than what I was doing. And can I just say, this list is *always* helpful. I wish some software that I have paid for had people as responsive as this list has. Every time I have asked a question it has been answered! Thank you Giles! Daniel > > ------------------------------ > > Message: 8 > Date: Mon, 01 Aug 2011 17:00:29 +0200 > From: Gilles <gilles.thiba...@free.fr> > To: lilypond-user@gnu.org > Subject: Re: Arpeggios from chordmode? > Message-ID: <op.vzjim3mpdfrkz2@pc64> > Content-Type: text/plain; charset="iso-8859-15"; Format="flowed"; > DelSp="yes" > > > > Is there as simple way to get chord mode to return: > > > > c4 e g > > > > instead of > > > > <c e g>4 > > > > Is something like that what you wanted ? > > %%%%%%%%%%%%%%%%%%%%%%%% > #(use-modules (ice-9 receive)) > %% see http://www.gnu.org/software/guile/manual/guile.html#Multiple-Values > > #(define (chords-list->seq-list lst) > (receive (notes others) > (partition (lambda(x) (ly:duration? (ly:music-property x > 'duration))) > lst) > (map (lambda(x) > (let ((elts (list x))) > (if (pair? others)(begin > (set! elts (append elts others)) > (set! others '()))) > (make-music 'EventChord 'elements elts))) > notes))) > > chordsToSeq = #(define-music-function (parser location music)(ly:music?) > (music-map > (lambda (x) > (if (eq? 'EventChord (ly:music-property x 'name)) > (make-music 'SequentialMusic 'elements > (chords-list->seq-list (ly:music-property x 'elements))) > x)) > music)) > > > music = \chordmode {d4:min7\f g:7 c:maj7} > > \new Voice \chordsToSeq \music > %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% > > Gilles > -------------- next part -------------- > A non-text attachment was scrubbed... > Name: chordsToSeq.png > Type: image/png > Size: 906 bytes > Desc: not available > URL: > </archive/html/lilypond-user/attachments/20110801/094c80c9/attachment.png> > > ------------------------------ > >
Arpblueschart.ly
Description: Binary data
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
