[tablatures] Re: Problems with chord glissandos with articulations and tablature

[ Thread Index | Date Index | More lilynet.net/tablatures Archives ]




On 4/16/10 7:27 AM, "Phil Holmes" <mail@xxxxxxxxxxxxxx> wrote:

> You can override this:
> 
> http://lsr.dsi.unimi.it/LSR/Item?id=457


Thanks for the tip!

Here's a revised version, with the warning message turned off during the
chordGlissando and back on afterwards:

%%%%% Start of cut and paste section

\version "2.13.3"

chordGlissando =
#(define-music-function (parser location mus1 mus2) (ly:music? ly:music?)
  "Make a glissando between the notes of triads @code{mus1} and
@code{mus2}."

  (define (add-glissando musChord)
     (let ((els (ly:music-property musChord 'elements)))
      (ly:music-set-property! musChord 'elements (append els (list
(make-music 'GlissandoEvent))))
      musChord))

  (define (get-notes musicChord)
   (filter (lambda(x) (eq? (ly:music-property x 'name) 'NoteEvent))
           (ly:music-property musicChord 'elements)))

  (define (select-note musChord index)
    (let* ((notes (get-notes musChord))
           (non-notes (filter (lambda (x)
                               (not (eq? (ly:music-property x 'name)
                                         'NoteEvent)))
                              (ly:music-property musChord 'elements)))
           (selected-note (list-ref notes index))
           (new-els (cons selected-note non-notes))
           (new-mus (ly:music-deep-copy musChord)))
     (ly:music-set-property! new-mus 'elements new-els)
     new-mus))

  (define (add-glissando-line mus1 mus2 index)
    #{
       \new Voice {
         \hideNotes
         \override NoteColumn #'ignore-collision = ##t
         \once \override Glissando #'thickness = #2
         $(add-glissando (select-note mus1 (1- index)))
         $(select-note mus2 (1- index))
       }
    #})

  (let* ((notes1 (get-notes mus1))
         (notes2 (get-notes mus2))
         (note-count (min (length notes1) (length notes2))))

    #{
       \once \override Glissando #'minimum-length = #5
       \once \override Glissando #'springs-and-rods =
#ly:spanner::set-spacing-rods
       \once \override Glissando #'thickness = #2
     <<
       \override NoteColumn #'ignore-collision = ##t
       {
         $(add-glissando mus1)
         $mus2
       }
       $(if (> note-count 1) (add-glissando-line mus1 mus2 1))
       $(if (> note-count 2) (add-glissando-line mus1 mus2 2))
       $(if (> note-count 3) (add-glissando-line mus1 mus2 3))
       $(if (> note-count 4) (add-glissando-line mus1 mus2 4))
       $(if (> note-count 5) (add-glissando-line mus1 mus2 5))
       $(if (> note-count 6) (add-glissando-line mus1 mus2 6))
       $(if (> note-count 7) (add-glissando-line mus1 mus2 7))
    >>
    \revert NoteColumn #'ignore-collision
  #}))


\relative c' {
 \new Staff  {
   \override NoteColumn #'ignore-collision = ##t
   d8 [ \chordGlissando <c e g>16 <d f a>] e4 <e g c> d |
   \chordGlissando <c e g>4 <e c f> \chordGlissando <c e g> <d f a> |
   \break
   \chordGlissando <c e>4 <e g>4
   \chordGlissando <c e g c>4 <e g c e>4
 }
}
 




Mail converted by MHonArc 2.6.19+ http://listengine.tuxfamily.org/