wow, thanks for the quick fix. now it works perfect for me.
-------- Original-Nachricht -------- > Datum: Sat, 31 May 2008 06:23:37 +0000 (UTC) > Von: Jay Anderson <[EMAIL PROTECTED]> > An: [email protected] > Betreff: Re: LSR octavation function > Tao Cumplido <tao_lilyponduser <at> gmx.net> writes: > > i.e. \octaves { \times 2/3 { c'4 c' c' } } > > results in a crash. > > Ugh! I'm learning. Here's a quick fix that seems to work: > > #(define (octave-up m t) > (let* ((octave (1- t)) > (new-note (ly:music-deep-copy m)) > (new-pitch (ly:make-pitch > octave > (ly:pitch-notename (ly:music-property m 'pitch)) > (ly:pitch-alteration (ly:music-property m 'pitch))))) > (set! (ly:music-property new-note 'pitch) new-pitch) > new-note)) > > #(define (octavize-chord elements t) > (cond ((null? elements) elements) > ((eq? (ly:music-property (car elements) 'name) 'NoteEvent) > (cons (car elements) > (cons (octave-up (car elements) t) > (octavize-chord (cdr elements) t)))) > (else (cons (car elements) (octavize-chord (cdr elements ) t))))) > > #(define (octavize music t) > (if (eq? (ly:music-property music 'name) 'EventChord) > (ly:music-set-property! music 'elements (octavize-chord > (ly:music-property music 'elements) t))) > music) > > octaves = #(define-music-function (parser location arg mus) (integer? > ly:music?) > (music-map (lambda (x) (octavize x arg)) mus)) > > \relative c' > { > \time 3/8 > \key gis \minor > \octaves #1 { dis8( e dis')~ dis8.( cis16 b8} > \octaves #-1 { ais' gis dis) cis( dis <dis gis'>) } > \time 4/4 > \octaves #1 { \times 2/3 {c,4 d e} \times 2/3 {c4 \times 2/3 {d8 e g} > c,4} } > \octaves #-1 { \repeat unfold 8 {\times 2/3 {c'16 d e} } } > } > > > > _______________________________________________ > lilypond-user mailing list > [email protected] > http://lists.gnu.org/mailman/listinfo/lilypond-user -- Psssst! Schon vom neuen GMX MultiMessenger gehört? Der kann`s mit allen: http://www.gmx.net/de/go/multimessenger _______________________________________________ lilypond-user mailing list [email protected] http://lists.gnu.org/mailman/listinfo/lilypond-user
