Re: Custom ambitus ?

Thank you Tina ! It works perfectly. I will also use it for some bell
setups. Quite nice.

Here are my modifications to your original code might anyone be interested.

\version "2.27.3"

#(define (instrument-setup-engraver context)
   (let ((setup-grob #f) (setup-head #f) (pitches (make-hash-table))
(is-typeset? #f) (start-c0 #f))
     (make-engraver
      ((process-music engraver)
       (if (not setup-grob)
           (begin
            ;; Reusing the Ambitus/AmbitusNoteHead grob types purely for their
            ;; existing side-position/break-alignment defaults (placement
            ;; before the clef, spacing, collision-avoidance). Their stencils
            ;; are fully overridden below -- this is not an ambitus display.
            (set! setup-grob (ly:engraver-make-grob engraver 'Ambitus '()))
            (set! setup-head (ly:engraver-make-grob engraver
'AmbitusNoteHead '()))
            (ly:grob-set-object! setup-grob 'elements
(ly:grob-list->grob-array (list setup-head)))
            (ly:grob-set-property! setup-head 'stencil ly:text-interface::print)
            (ly:grob-set-parent! setup-head X setup-grob)
            (set! is-typeset? #f))))
      ((stop-translation-timestep engraver)
       (if (and setup-grob (not is-typeset?))
           (let*
            ((c_pos (ly:context-property context 'middleCPosition))
             (cue_pos (ly:context-property context 'middleCCuePosition)))
            (set!
             start-c0
             (cond ((ly:context-property context 'ottavaStartNow #f)
                    (ly:context-property context 'middleCClefPosition 0))
                   ((and (integer? c_pos) (not (integer? cue_pos)))
                    c_pos)
                   (else
                    (+ (ly:context-property context 'middleCClefPosition 0)
                       (ly:context-property context 'middleCOffset 0)))))
            (set! is-typeset? #t))))
      (acknowledgers
       ((note-head-interface engraver grob source)
        (let* ((cause (ly:grob-property grob 'cause))
               (pitch (and (ly:stream-event? cause) (ly:event-property
cause 'pitch))))
          (if (and pitch (not (hash-ref pitches pitch #f)))
              (hash-set! pitches pitch cause)))))
      ((finalize engraver)
       (let* ((note-name-alterations (make-hash-table))
              (sorted-pitches
               (sort (hash-map->list (lambda (k v) k) pitches)
                     (lambda (a b) (ly:pitch<? a b))))
              (abs-step
               (lambda (p) (+ (* (ly:pitch-octave p) 7) (ly:pitch-notename p))))
              ;; split the sorted pitches into runs of consecutive
              ;; staff-position seconds ("clusters"); isolated notes end
              ;; up as their own cluster of size 1
              (clusters
               (let loop ((lst sorted-pitches) (cur '()) (acc '()))
                 (cond
                  ((null? lst)
                   (reverse (if (null? cur) acc (cons (reverse cur) acc))))
                  ((null? cur)
                   (loop (cdr lst) (list (car lst)) acc))
                  (else
                   (if (= (- (abs-step (car lst)) (abs-step (car cur))) 1)
                       (loop (cdr lst) (cons (car lst) cur) acc)
                       (loop (cdr lst) (list (car lst)) (cons (reverse
cur) acc)))))))
              (offset-table (make-hash-table)))
         ;; within each cluster, nudge every other note rightward so
         ;; touching noteheads visually separate from their neighbor
         (for-each
          (lambda (cluster)
            (let loop ((notes cluster) (idx 0))
              (if (pair? notes)
                  (begin
                   (hash-set! offset-table (car notes) (if (even? idx) 0 0.6))
                   (loop (cdr notes) (+ idx 1))))))
          clusters)
         ;; collect every distinct alteration used per note-name, to know
         ;; which pitches need a forced accidental to disambiguate
         (for-each
          (lambda (pitch)
            (let* ((notename (ly:pitch-notename pitch))
                   (alteration (ly:pitch-alteration pitch))
                   (existing (hash-ref note-name-alterations notename '())))
              (if (not (member alteration existing))
                  (hash-set! note-name-alterations notename (cons
alteration existing)))))
          sorted-pitches)
         (ly:grob-set-property!
          setup-head
          'text
          (make-score-markup
           #{
             \score {
               \layout {
                 indent = 0
               }
               \new Staff \with {
                 \remove #instrument-setup-engraver
                 middleCPosition = #start-c0
                 \remove Clef_engraver
                 \remove Time_signature_engraver
                 \omit Stem
                 \omit StaffSymbol
               } {
                 #(make-music
                   'EventChord
                   'elements
                   (map
                    (lambda (pitch)
                      (let* ((notename (ly:pitch-notename pitch))
                             (alterations (hash-ref
note-name-alterations notename '()))
                             (conflict? (> (length alterations) 1))
                             (x-offset (hash-ref offset-table pitch 0)))
                        (make-music
                         'NoteEvent
                         'duration
                         (ly:make-duration 2)
                         'pitch
                         pitch
                         'force-accidental
                         conflict?
                         'tweaks
                         (list (cons 'extra-offset (cons x-offset 0))))))
                    sorted-pitches))
               }
             }
           #})))))))

\layout {
  \context {
    \Staff
    \consists #instrument-setup-engraver
  }
}

{ \clef bass g, c d e gis a fis }


Le sam. 8 août 2026, à 10 h 04, Tina Petzel <[email protected]> a écrit :
>
> Hi Pierre,
>
> Am Freitag, 7. August 2026, 22:51:14 Mitteleuropäische Sommerzeit schrieb
> Pierre-Luc Gauthier:
> > Hi everyone,
> >
> > Is there a way to inject specific notes in the "Ambitus_engraver" ? I
> > guess then it would be trivial to gather all the different notes in a
> > music expression.
>
> It would be quite simple to write an engraver that listens for all unique
> pitches. The problem is then what to do with it. The ambitus system inplace
> does is not really designed to handle multi-note setting, such as collisions and
> stuff. Instead I suppose it would be much easier to inject a score-markup with
> a chord of all occurring pitches.
>
> The appended file does exactly that. What it does not do yet is to match all
> possibly relevant settings between the markup-score and the original staff (staff
> line positions and such).
>
> Cheers,
> Tina



-- 
Pierre-Luc Gauthier

\version "2.27.3"

#(define (instrument-setup-engraver context)
   (let ((setup-grob #f) (setup-head #f) (pitches (make-hash-table)) (is-typeset? #f) (start-c0 #f))
     (make-engraver
      ((process-music engraver)
       (if (not setup-grob)
           (begin
            ;; Reusing the Ambitus/AmbitusNoteHead grob types purely for their
            ;; existing side-position/break-alignment defaults (placement
            ;; before the clef, spacing, collision-avoidance). Their stencils
            ;; are fully overridden below -- this is not an ambitus display.
            (set! setup-grob (ly:engraver-make-grob engraver 'Ambitus '()))
            (set! setup-head (ly:engraver-make-grob engraver 'AmbitusNoteHead '()))
            (ly:grob-set-object! setup-grob 'elements (ly:grob-list->grob-array (list setup-head)))
            (ly:grob-set-property! setup-head 'stencil ly:text-interface::print)
            (ly:grob-set-parent! setup-head X setup-grob)
            (set! is-typeset? #f))))
      ((stop-translation-timestep engraver)
       (if (and setup-grob (not is-typeset?))
           (let*
            ((c_pos (ly:context-property context 'middleCPosition))
             (cue_pos (ly:context-property context 'middleCCuePosition)))
            (set!
             start-c0
             (cond ((ly:context-property context 'ottavaStartNow #f)
                    (ly:context-property context 'middleCClefPosition 0))
                   ((and (integer? c_pos) (not (integer? cue_pos)))
                    c_pos)
                   (else
                    (+ (ly:context-property context 'middleCClefPosition 0)
                       (ly:context-property context 'middleCOffset 0)))))
            (set! is-typeset? #t))))
      (acknowledgers
       ((note-head-interface engraver grob source)
        (let* ((cause (ly:grob-property grob 'cause))
               (pitch (and (ly:stream-event? cause) (ly:event-property cause 'pitch))))
          (if (and pitch (not (hash-ref pitches pitch #f)))
              (hash-set! pitches pitch cause)))))
      ((finalize engraver)
       (let* ((note-name-alterations (make-hash-table))
              (sorted-pitches
               (sort (hash-map->list (lambda (k v) k) pitches)
                     (lambda (a b) (ly:pitch<? a b))))
              (abs-step
               (lambda (p) (+ (* (ly:pitch-octave p) 7) (ly:pitch-notename p))))
              ;; split the sorted pitches into runs of consecutive
              ;; staff-position seconds ("clusters"); isolated notes end
              ;; up as their own cluster of size 1
              (clusters
               (let loop ((lst sorted-pitches) (cur '()) (acc '()))
                 (cond
                  ((null? lst)
                   (reverse (if (null? cur) acc (cons (reverse cur) acc))))
                  ((null? cur)
                   (loop (cdr lst) (list (car lst)) acc))
                  (else
                   (if (= (- (abs-step (car lst)) (abs-step (car cur))) 1)
                       (loop (cdr lst) (cons (car lst) cur) acc)
                       (loop (cdr lst) (list (car lst)) (cons (reverse cur) acc)))))))
              (offset-table (make-hash-table)))
         ;; within each cluster, nudge every other note rightward so
         ;; touching noteheads visually separate from their neighbor
         (for-each
          (lambda (cluster)
            (let loop ((notes cluster) (idx 0))
              (if (pair? notes)
                  (begin
                   (hash-set! offset-table (car notes) (if (even? idx) 0 0.6))
                   (loop (cdr notes) (+ idx 1))))))
          clusters)
         ;; collect every distinct alteration used per note-name, to know
         ;; which pitches need a forced accidental to disambiguate
         (for-each
          (lambda (pitch)
            (let* ((notename (ly:pitch-notename pitch))
                   (alteration (ly:pitch-alteration pitch))
                   (existing (hash-ref note-name-alterations notename '())))
              (if (not (member alteration existing))
                  (hash-set! note-name-alterations notename (cons alteration existing)))))
          sorted-pitches)
         (ly:grob-set-property!
          setup-head
          'text
          (make-score-markup
           #{
             \score {
               \layout {
                 indent = 0
               }
               \new Staff \with {
                 \remove #instrument-setup-engraver
                 middleCPosition = #start-c0
                 \remove Clef_engraver
                 \remove Time_signature_engraver
                 \omit Stem
                 \omit StaffSymbol
               } {
                 #(make-music
                   'EventChord
                   'elements
                   (map
                    (lambda (pitch)
                      (let* ((notename (ly:pitch-notename pitch))
                             (alterations (hash-ref note-name-alterations notename '()))
                             (conflict? (> (length alterations) 1))
                             (x-offset (hash-ref offset-table pitch 0)))
                        (make-music
                         'NoteEvent
                         'duration
                         (ly:make-duration 2)
                         'pitch
                         pitch
                         'force-accidental
                         conflict?
                         'tweaks
                         (list (cons 'extra-offset (cons x-offset 0))))))
                    sorted-pitches))
               }
             }
           #})))))))

\layout {
  \context {
    \Staff
    \consists #instrument-setup-engraver
  }
}

{ \clef bass g, c d e gis a fis }