Re: \makeOctaves broken?

[David Kastrup]

> I am not topposting

Let's see whether bypassing Gmane gets us into the discussion any
faster.

Jan-Peter Voigt <address@hidden> writes:

> Hello Urs,
>
> the articulations are were copied to the EventChord - so I added
> copying the articulations from NoteEvent to EventChord.
> That means, they should not stay in the NoteEvents when getting
> wrapped into the EventChord:

Well, you could use event-chord-wrap! in order to fix this the easy way.

Actually, here is a somewhat amusing version that can do quite a bit
more with quite less code, and that will work both in absolute as well
as relative mode.

relTranspose =
#(define-music-function (parser location from to mus)
  (ly:pitch? ly:pitch? ly:music?)
  #{ \withMusicProperty #'to-relative-callback
     #(lambda (m p)
       (let ((mu (ly:music-property m 'element)))
        (ly:music-transpose mu (ly:pitch-diff from to))
        (ly:make-music-relative! mu p)
        (ly:music-transpose mu (ly:pitch-diff to from)))
       p)
     \transpose $from $to $mus
  #}) 

makeDuped =
#(define-music-function (parser location from arg mus)
  (ly:pitch? ly:music? ly:music?)
  (make-simultaneous-music
   (fold-some-music
    (lambda (m) (music-is-of-type? m 'note-event))
    (lambda (p l)
     (cons #{ \relTranspose $from $(ly:music-property p 'pitch) $mus #} l))
    (list #{ $mus #})
    arg)))

\relative c' {
  \time 3/8
  \key gis \minor
  \makeDuped c' c''  { dis8( e dis')~ dis8.( cis16 b8}
  \makeDuped c' <c g> { ais' gis dis) cis( dis<dis gis'>) }
}


-- 
David Kastrup