Re: Cluster fill-style

[Simon Bailey]

Hi Jean,

actually, there seems to be a bit of a problem:

\new Voice {
  R1*3 | r2 r4.
  \makeClusters { <d f>8 | q1 | q8 <d d'> <d' f>2. | q1 | q1 | q2 r2 }
  \barNumberCheck #10
  \makeClusters {
    <d, f>1 | q4. <d d'>8 <d' f>2 | q1 | q2 <d, f>2 |
    \barNumberCheck #14 %1
    q2 <d d'>2 | q2 <d a'> | <d a' d>2 q8. <f d'>8. <d d'>8 | q1 | q1 | q2. <d f>4 |
  }
  R1*47
  \makeClusters { <c g>1 | q1 | <d e>1 | <d d'>1 | <d' e>1 | q1 | q1 | q1 | }
  R1*11
  \barNumberCheck #86
}

gives the error message:

Starting lilypond.exe 2.23.9 [Untitled]...
Processing `C:/Users/sia/AppData/Local/Temp/frescobaldi-kad5rc1x/tmpi_go0x11/document.ly'
Parsing...
Interpreting music...[8][16][24][32][40][48][56][64][72][80]
Preprocessing graphical objects...
Finding the ideal number of pages...
Fitting music on 1 page...
Drawing systems...ice-9/eval.scm:155:9: In procedure car: Wrong type argument in position 1 (expecting pair): ()
Exited with return code 1.

If i comment out the 3rd \makeClusters, it works though.

Any ideas?

Thanks, kind regards,

sb

On Fri, 27 May 2022 at 20:38, Simon Bailey <binabik@gmail.com> wrote:

Hi Jean,

sweet, that does the trick perfectly! Thanks for your help.

Kind regards,

sb

On Fri, 27 May 2022 at 20:31, Jean Abou Samra <jean@abou-samra.fr> wrote:

Le 27/05/2022 à 20:57, Simon Bailey a écrit :
> Jean,
>
> That's absolutely amazing, thanks so much!
>
> However, unlike the "regular" clusters, it doesn't extend to the
> barlines, leaving some empty holes. See attached screenshots. (I'm
> running 2.23.9 on Windows).
>
> I can provide a MWE of my score if you'd like.



Aye. I was lazy and thought you wouldn't need that :-)

Next try:


\version "2.23.9"

#(use-modules (ice-9 match))

#(define (cluster::dashed-fill grob)
    (let* ((columns (ly:grob-object grob 'columns))
           (column-list (ly:grob-array->list columns))
           (x-refp (ly:grob-common-refpoint-of-array grob columns X))
           (y-refp (ly:grob-common-refpoint-of-array grob columns Y))
           (my-exts (map (lambda (c)
                          (ly:grob-extent c y-refp Y))
                        column-list))
           (my-coords (map (lambda (c)
                            (ly:grob-relative-coordinate c x-refp X))
                          column-list))
           (after-me (find-tail (lambda (s)
                                  (eq? s grob))
                                (ly:spanner-broken-into
(ly:grob-original grob))))
           (neighbor (and after-me
                          (pair? (cdr after-me))
                          (cadr after-me)))
           (exts (if neighbor
                     (append my-exts
                             (let* ((neighbor-cols (ly:grob-object
neighbor 'columns))
                                    (first-neighbor-col (car
(ly:grob-array->list neighbor-cols)))
                                    (neighbor-refp
(ly:grob-common-refpoint-of-array neighbor neighbor-cols Y)))
                               (list (ly:grob-extent first-neighbor-col
neighbor-refp Y))))
                     my-exts))
           (coords (if neighbor
                       (append my-coords
                               (let ((bound (ly:spanner-bound grob RIGHT)))
                                 (list (ly:grob-relative-coordinate
bound x-refp X))))
                       my-coords))
           (details (ly:grob-property grob 'details))
           (increment (assq-ref details 'increment))
           (contour-thickness (assq-ref details 'contour-thickness))
           (polygon-points-1 (map cons coords (map car exts)))
           (polygon-points-2 (map cons coords (map cdr exts)))
           (polygon-stencil
            (ly:round-polygon (append-reverse polygon-points-1
polygon-points-2)
                              contour-thickness
                              1
                              #f)))
      (let loop ((exts exts)
                 (coords coords)
                 (current (car coords))
                 (stil empty-stencil))
        (if (null? (cdr coords))
            (ly:stencil-translate
             (ly:stencil-add stil polygon-stencil)
             (cons (- (ly:grob-relative-coordinate grob x-refp X))
                   (- (ly:grob-relative-coordinate grob y-refp Y))))
            (let* ((t (/ (- current (car coords))
                         (- (cadr coords)
                            (car coords))))
                   (1-t (- 1 t))
                   (ext1 (car exts))
                   (ext2 (cadr exts))
                   (lo (+ (* 1-t (car ext1))
                          (* t (car ext2))))
                   (hi (+ (* 1-t (cdr ext1))
                          (* t (cdr ext2))))
                   (part (ly:line-interface::line grob current lo
current hi))
                   (new-stil (ly:stencil-add stil part))
                   (next (+ current increment))
                   (stay (<= next (cadr coords))))
              (loop (if stay exts (cdr exts))
                    (if stay coords (cdr coords))
                    next
                    new-stil))))))

\layout {
   \context {
     \Voice
     \override ClusterSpanner.stencil = #cluster::dashed-fill
     \override ClusterSpanner.style = #'dashed-line
     \override ClusterSpanner.thickness = 1.5
     \override ClusterSpanner.dash-period = 0.6
     \override ClusterSpanner.details.increment = 0.45
     \override ClusterSpanner.details.contour-thickness = 0.2
   }
}

%%%

\paper {
   ragged-right = ##t
}

\makeClusters {
   <c' c''>2 <d' a'> <g' f'''> <f g''>
   <c' c''>2 <d' a'> \break <g' f'''> <f g''>
}



Best,
Jean

--

Do not meddle in the affairs of trombonists, for they are subtle and quick to anger.

--

Do not meddle in the affairs of trombonists, for they are subtle and quick to anger.