Initial clef change: Difference between revisions

Line 1:

This snippet handles initial clef changes with a custom engraver. This engraver checks whether there is a difference between the initial clef (as given by <code>\with { \clef ... }</code> and the clef at the first timestep. If any difference is encountered a new clef (spaced like a cue clef) is created, while the original clef and any key signatures are modified to look like the initial clef values.

This snippet handles initial clef changes with a custom engraver. This engraver checks whether there is a difference between the initial clef (as given by <code>\with { \clef ... }</code> and the clef at the first timestep. If any difference is encountered a new clef (spaced like a cue clef) is created, while the original clef and any key signatures are modified to look like the initial clef values. See also [[Clef change at the beginning of a piece]] and [[Clef change at the beginning of a piece (alternative)]].

<~~lilypond~~ version="2.24">

%%% This engraver records the initial clef properties (e.g. what is set by \with { \clef ... })

\version "2.24"

%%% If in the first timestep these changed, engrave the original clef, and change formatting and break

%%% alignment of the actual clef to mimic a clef change clef. Duplicates some procedure from clef engraver

%%% This engraver records the initial clef properties (e.g. what is set by \with { \clef ... })

%%% and could easily be integrated.

%%% If in the first timestep these changed, engrave the original clef, and change formatting and break

#(define (initial-clef-change-engraver context)

%%% alignment of the actual clef to mimic a clef change clef. Duplicates some procedure from clef engraver

(let ((initial-clef-properties #f) (cclef #f) (keysigs '()))

%%% and could easily be integrated.

; macro for checking if any clef property has changed

<nowiki>#</nowiki>(define (initial-clef-change-engraver context)

(define (clef-changed)

<nowiki> </nowiki> (let ((initial-clef-properties #f) (cclef #f) (keysigs '()))

(>

<nowiki> </nowiki> ; macro for checking if any clef property has changed

(length initial-clef-properties)

<nowiki> </nowiki> (define (clef-changed)

(length

(filter

<nowiki> </nowiki> (length initial-clef-properties)

(lambda (x) (equal? (cdr x) (ly:context-property context (car x))))

<nowiki> </nowiki> (length

initial-clef-properties))))

<nowiki> </nowiki> (filter

(make-engraver

<nowiki> </nowiki> (lambda (x) (equal? (cdr x) (ly:context-property context (car x))))

; Record initials propertis

<nowiki> </nowiki> initial-clef-properties))))

((initialize engraver)

<nowiki> </nowiki> (make-engraver

(set!

<nowiki> </nowiki> ; Record initials propertis

~~initial~~-clef-properties

<nowiki> </nowiki> ((initialize engraver)

`((clefGlyph . ,(ly:context-property context 'clefGlyph))

<nowiki> </nowiki> (set!

(clefPosition . ,(ly:context-property context 'clefPosition))

<nowiki> </nowiki> initial-clef-properties

(middleCClefPosition . ,(ly:context-property context 'middleCClefPosition))

<nowiki> </nowiki> `((clefGlyph . ,(ly:context-property context 'clefGlyph))

~~(clefTransposition~~ . ,(ly:context-property context 'clefTransposition)))))

<nowiki> </nowiki> (clefPosition . ,(ly:context-property context 'clefPosition))

; Record the actual clef to adjust. Use details.muted to not acknowledge clef created by this engraver.

<nowiki> </nowiki> (middleCClefPosition . ,(ly:context-property context 'middleCClefPosition))

(acknowledgers

<nowiki> </nowiki> (clefTransposition . ,(ly:context-property context 'clefTransposition)))))

((clef-interface engraver grob source-engraver)

<nowiki> </nowiki> ; Record the actual clef to adjust. Use details.muted to not acknowledge clef created by this engraver.

(if (not (assoc-get 'muted (ly:grob-property grob 'details) #f))

<nowiki> </nowiki> (acknowledgers

(set! cclef grob)))

<nowiki> </nowiki> ((clef-interface engraver grob source-engraver)

((key-signature-interface engraver grob source-engraver)

<nowiki> </nowiki> (if (not (assoc-get 'muted (ly:grob-property grob 'details) #f))

(set! keysigs (cons grob keysigs))))

<nowiki> </nowiki> (set! cclef grob)))

; Create a clef if necessary

<nowiki> </nowiki> ((key-signature-interface engraver grob source-engraver)

((process-music engraver)

<nowiki> </nowiki> (set! keysigs (cons grob keysigs))))

(if (and initial-clef-properties (clef-changed))

<nowiki> </nowiki> ; Create a clef if necessary

(let ((clef (ly:engraver-make-grob engraver 'Clef '())))

<nowiki> </nowiki> ((process-music engraver)

(ly:grob-set-property! clef 'staff-position (assoc-get 'clefPosition initial-clef-properties))

<nowiki> </nowiki> (if (and initial-clef-properties (clef-changed))

(ly:grob-set-property! clef 'glyph (assoc-get 'clefGlyph initial-clef-properties))

<nowiki> </nowiki> (let ((clef (ly:engraver-make-grob engraver 'Clef '())))

(ly:grob-set-nested-property! clef '(details muted) #t)

<nowiki> </nowiki> (ly:grob-set-property! clef 'staff-position (assoc-get 'clefPosition initial-clef-properties))

(if ((lambda (x) (and (number? x) (not (= 0 x))))

<nowiki> </nowiki> (ly:grob-set-property! clef 'glyph (assoc-get 'clefGlyph initial-clef-properties))

~~(assoc~~-get 'clefTransposition initial-clef-properties 0))

<nowiki> </nowiki> (ly:grob-set-nested-property! clef '(details muted) #t)

(let ((mod (ly:engraver-make-grob engraver 'ClefModifier '()))

<nowiki> </nowiki> (if ((lambda (x) (and (number? x) (not (= 0 x))))

(formatter (ly:context-property context 'clefTranspositionFormatter))

<nowiki> </nowiki> (assoc-get 'clefTransposition initial-clef-properties 0))

(style (ly:context-property context 'clefTranspositionStyle))

<nowiki> </nowiki> (let ((mod (ly:engraver-make-grob engraver 'ClefModifier '()))

~~(dir (~~sign (assoc-get 'clefTransposition initial-clef-properties 0)))

<nowiki> </nowiki> (formatter (ly:context-property context 'clefTranspositionFormatter))

(abs_trans (1+ (abs (assoc-get 'clefTransposition initial-clef-properties 0)))))

<nowiki> </nowiki> (style (ly:context-property context 'clefTranspositionStyle))

(if (procedure? formatter)

<nowiki> </nowiki> (dir (sign (assoc-get 'clefTransposition initial-clef-properties 0)))

(ly:grob-set-property! mod 'text (formatter (number->string abs_trans) style)))

<nowiki> </nowiki> (abs_trans (1+ (abs (assoc-get 'clefTransposition initial-clef-properties 0)))))

(ly:grob-set-object! mod 'side-support-elements (ly:grob-list->grob-array (list clef)))

<nowiki> </nowiki> (if (procedure? formatter)

(ly:grob-set-parent! mod X clef)

<nowiki> </nowiki> (ly:grob-set-property! mod 'text (formatter (number->string abs_trans) style)))

(ly:grob-set-parent! mod Y clef)

<nowiki> </nowiki> (ly:grob-set-object! mod 'side-support-elements (ly:grob-list->grob-array (list clef)))

(ly:grob-set-property! mod 'direction dir))))))

<nowiki> </nowiki> (ly:grob-set-parent! mod X clef)

; Adjust the actual clef and key signatures

<nowiki> </nowiki> (ly:grob-set-parent! mod Y clef)

((process-acknowledged engraver)

<nowiki> </nowiki> (ly:grob-set-property! mod 'direction dir))))))

(if (and cclef initial-clef-properties (clef-changed))

<nowiki> </nowiki> ; Adjust the actual clef and key signatures

(begin

<nowiki> </nowiki> ((process-acknowledged engraver)

<nowiki> </nowiki> (if (and cclef initial-clef-properties (clef-changed))

; Key signatures need to be handled if they appear before the cue-clef

<nowiki> </nowiki> (begin

; This requires the break alignment information, so this only sets a

; hook which will be processed during `before-line-breaking` of the

<nowiki> </nowiki> ; Key signatures need to be handled if they appear before the cue-clef

; BreakAlignGroups

<nowiki> </nowiki> ; This requires the break alignment information, so this only sets a

(for-each

<nowiki> </nowiki> ; hook which will be processed during `before-line-breaking` of the

(lambda (keysig)

<nowiki> </nowiki> ; BreakAlignGroups

(let ((det (ly:grob-property keysig 'details))

<nowiki> </nowiki> (for-each

(initial-clef-properties initial-clef-properties))

<nowiki> </nowiki> (lambda (keysig)

(ly:grob-set-property!

<nowiki> </nowiki> (let ((det (ly:grob-property keysig 'details))

keysig

<nowiki> </nowiki> (initial-clef-properties initial-clef-properties))

'details

<nowiki> </nowiki> (ly:grob-set-property!

(acons

<nowiki> </nowiki> keysig

~~'break~~-alignment-handler

<nowiki> </nowiki> 'details

(lambda (grob break-alignment)

<nowiki> </nowiki> (acons

(let ((start-of-line

<nowiki> </nowiki> 'break-alignment-handler

(vector-ref

<nowiki> </nowiki> (lambda (grob break-alignment)

(ly:grob-property break-alignment 'break-align-orders)

<nowiki> </nowiki> (let ((start-of-line

2)))

<nowiki> </nowiki> (vector-ref

(if (member 'cue-clef (or (member 'key-signature start-of-line) '()))

<nowiki> </nowiki> (ly:grob-property break-alignment 'break-align-orders)

(ly:grob-set-property!

<nowiki> </nowiki> 2)))

grob 'c0-position

<nowiki> </nowiki> (if (member 'cue-clef (or (member 'key-signature start-of-line) '()))

(assoc-get 'middleCClefPosition initial-clef-properties)))))

<nowiki> </nowiki> (ly:grob-set-property!

det))))

<nowiki> </nowiki> grob 'c0-position

keysigs)

<nowiki> </nowiki> (assoc-get 'middleCClefPosition initial-clef-properties)))))

<nowiki> </nowiki> det))))

(ly:grob-set-property! cclef 'non-default #t)

<nowiki> </nowiki> keysigs)

(ly:grob-set-property! cclef 'break-align-symbol 'cue-clef)

(if (not (eq? #t (ly:grob-property cclef 'full-size-change)))

<nowiki> </nowiki> (ly:grob-set-property! cclef 'non-default #t)

(ly:grob-set-property! cclef 'glyph-name

<nowiki> </nowiki> (ly:grob-set-property! cclef 'break-align-symbol 'cue-clef)

(format #f "~a_change" (ly:grob-property cclef 'glyph)))))))

<nowiki> </nowiki> (if (not (eq? #t (ly:grob-property cclef 'full-size-change)))

; Unset parameters

<nowiki> </nowiki> (ly:grob-set-property! cclef 'glyph-name

((stop-translation-timestep engraver)

<nowiki> </nowiki> (format #f "~a_change" (ly:grob-property cclef 'glyph)))))))

(set! initial-clef-properties #f)

<nowiki> </nowiki> ; Unset parameters

(set! clef #f)

<nowiki> </nowiki> ((stop-translation-timestep engraver)

(set! keysigs '())))))

<nowiki> </nowiki> (set! initial-clef-properties #f)

<nowiki> </nowiki> (set! clef #f)

\layout {

<nowiki> </nowiki> (set! keysigs '())))))

\context {

\Staff

\layout {

\consists #initial-clef-change-engraver

<nowiki> </nowiki> \context {

}

<nowiki> </nowiki> \Staff

~~\context~~ {

<nowiki> </nowiki> \consists #initial-clef-change-engraver

\Score

<nowiki> </nowiki> }

\override BreakAlignGroup.before-line-breaking =

<nowiki> </nowiki> \context {

#(lambda (grob)

<nowiki> </nowiki> \Score

(let ((grobs (ly:grob-object grob 'elements))

<nowiki> </nowiki> \override BreakAlignGroup.before-line-breaking =

(break-alignment (ly:grob-parent grob X)))

<nowiki> </nowiki> #(lambda (grob)

(if (not (null? grobs))

<nowiki> </nowiki> (let ((grobs (ly:grob-object grob 'elements))

(set! grobs (ly:grob-array->list grobs)))

<nowiki> </nowiki> (break-alignment (ly:grob-parent grob X)))

(for-each

<nowiki> </nowiki> (if (not (null? grobs))

(lambda (grob)

<nowiki> </nowiki> (set! grobs (ly:grob-array->list grobs)))

(let* ((det (ly:grob-property grob 'details))

<nowiki> </nowiki> (for-each

(handler (assoc-get 'break-alignment-handler det)))

<nowiki> </nowiki> (lambda (grob)

(if (procedure? handler)

<nowiki> </nowiki> (let* ((det (ly:grob-property grob 'details))

(handler grob break-alignment))))

<nowiki> </nowiki> (handler (assoc-get 'break-alignment-handler det)))

grobs)))

<nowiki> </nowiki> (if (procedure? handler)

}

<nowiki> </nowiki> (handler grob break-alignment))))

}

<nowiki> </nowiki> grobs)))

<nowiki> </nowiki> }

\new Staff \with { \clef "bass^15" } {

}

\key bes\major

\clef "treble_8"

\new Staff \with { \clef "bass^15" } {

c'1 c'1

<nowiki> </nowiki> \key bes\major

\clef bass

<nowiki> </nowiki> \clef "treble_8"

c'1

<nowiki> </nowiki> c'1 c'1

}

<nowiki> </nowiki> \clef bass

<nowiki> </nowiki> c'1

\score {

}

\layout {

\context {

\score {

\Score

<nowiki> </nowiki> \layout {

\override BreakAlignment.break-align-orders =

<nowiki> </nowiki> \context {

##((staff-ellipsis

<nowiki> </nowiki> \Score

left-edge

<nowiki> </nowiki> \override BreakAlignment.break-align-orders =

cue-end-clef

<nowiki> </nowiki> ##((staff-ellipsis

ambitus

<nowiki> </nowiki> left-edge

breathing-sign

<nowiki> </nowiki> cue-end-clef

optional-material-end-bracket

<nowiki> </nowiki> ambitus

signum-repetitionis

<nowiki> </nowiki> breathing-sign

clef

<nowiki> </nowiki> optional-material-end-bracket

~~cue~~-clef

<nowiki> </nowiki> signum-repetitionis

staff-bar

<nowiki> </nowiki> clef

key-cancellation

<nowiki> </nowiki> cue-clef

key-signature

<nowiki> </nowiki> staff-bar

~~time~~-signature

<nowiki> </nowiki> key-cancellation

optional-material-start-bracket

<nowiki> </nowiki> key-signature

custos)

<nowiki> </nowiki> time-signature

(staff-ellipsis

<nowiki> </nowiki> optional-material-start-bracket

~~left~~-edge

<nowiki> </nowiki> custos)

optional-material-end-bracket

<nowiki> </nowiki> (staff-ellipsis

cue-end-clef

<nowiki> </nowiki> left-edge

ambitus

<nowiki> </nowiki> optional-material-end-bracket

~~breathing~~-sign

<nowiki> </nowiki> cue-end-clef

signum-repetitionis

<nowiki> </nowiki> ambitus

clef

<nowiki> </nowiki> breathing-sign

cue-clef

<nowiki> </nowiki> signum-repetitionis

~~staff~~-bar

<nowiki> </nowiki> clef

key-cancellation

<nowiki> </nowiki> cue-clef

key-signature

<nowiki> </nowiki> staff-bar

time-signature

<nowiki> </nowiki> key-cancellation

~~optional~~-material-start-bracket

<nowiki> </nowiki> key-signature

custos)

<nowiki> </nowiki> time-signature

(staff-ellipsis

<nowiki> </nowiki> optional-material-start-bracket

left-edge

<nowiki> </nowiki> custos)

~~optional~~-material-end-bracket

<nowiki> </nowiki> (staff-ellipsis

ambitus

<nowiki> </nowiki> left-edge

breathing-sign

<nowiki> </nowiki> optional-material-end-bracket

signum-repetitionis

<nowiki> </nowiki> ambitus

~~clef~~

<nowiki> </nowiki> breathing-sign

cue-clef

<nowiki> </nowiki> signum-repetitionis

key-cancellation

<nowiki> </nowiki> clef

key-signature

<nowiki> </nowiki> cue-clef

~~time~~-signature

<nowiki> </nowiki> key-cancellation

staff-bar

<nowiki> </nowiki> key-signature

optional-material-start-bracket

<nowiki> </nowiki> time-signature

custos))

<nowiki> </nowiki> staff-bar

}

<nowiki> </nowiki> optional-material-start-bracket

}

<nowiki> </nowiki> custos))

\new Staff \with { \clef "bass^15" } {

<nowiki> </nowiki> }

\key bes\major

<nowiki> </nowiki> }

~~\clef~~ "treble_8"

<nowiki> </nowiki> \new Staff \with { \clef "bass^15" } {

c'1 c'1

<nowiki> </nowiki> \key bes\major

\clef bass

<nowiki> </nowiki> \clef "treble_8"

c'1

<nowiki> </nowiki> c'1 c'1

}

<nowiki> </nowiki> \clef bass

}

<nowiki> </nowiki> c'1

<nowiki> </nowiki> }

% Basic usage:

}

\score {

<<

% Basic usage:

% Just the treble clef

\score {

\new Staff {

<nowiki> </nowiki> <<

\key bes \major

<nowiki> </nowiki> % Just the treble clef

c''1

<nowiki> </nowiki> \new Staff {

}

<nowiki> </nowiki> \key bes \major

<nowiki> </nowiki> c<nowiki>''</nowiki>1

% Just the bass clef

<nowiki> </nowiki> }

\new Staff \with { \clef bass } {

\key bes \major

<nowiki> </nowiki> % Just the bass clef

c1

<nowiki> </nowiki> \new Staff \with { \clef bass } {

}

<nowiki> </nowiki> \key bes \major

<nowiki> </nowiki> c1

% Initial treble clef, then bass clef

<nowiki> </nowiki> }

\new Staff {

\key bes \major

<nowiki> </nowiki> % Initial treble clef, then bass clef

\clef bass

<nowiki> </nowiki> \new Staff {

c1

<nowiki> </nowiki> \key bes \major

}

<nowiki> </nowiki> \clef bass

<nowiki> </nowiki> c1

% Initial bass clef, then treble clef

<nowiki> </nowiki> }

\new Staff \with { \clef bass } {

\key bes \major

<nowiki> </nowiki> % Initial bass clef, then treble clef

\clef treble

<nowiki> </nowiki> \new Staff \with { \clef bass } {

c''1

<nowiki> </nowiki> \key bes \major

}

<nowiki> </nowiki> \clef treble

>>

<nowiki> </nowiki> c<nowiki>''</nowiki>1

<nowiki> </nowiki> }

\layout {

\context {

\Staff

<nowiki> </nowiki> \layout {

\consists #initial-clef-change-engraver

<nowiki> </nowiki> \context {

}

<nowiki> </nowiki> \Staff

}

<nowiki> </nowiki> \consists #initial-clef-change-engraver

}

<nowiki> </nowiki> }

</~~lilypond~~>

<nowiki> </nowiki> }

}

[[Category:Contexts and engravers]]

@@ Line 1: / Line 1: @@
-This snippet handles initial clef changes with a custom engraver. This engraver checks whether there is a difference between the initial clef (as given by <code>\with { \clef ... }</code> and the clef at the first timestep. If any difference is encountered a new clef (spaced like a cue clef) is created, while the original clef and any key signatures are modified to look like the initial clef values.
+This snippet handles initial clef changes with a custom engraver. This engraver checks whether there is a difference between the initial clef (as given by <code>\with { \clef ... }</code> and the clef at the first timestep. If any difference is encountered a new clef (spaced like a cue clef) is created, while the original clef and any key signatures are modified to look like the initial clef values. See also [[Clef change at the beginning of a piece]] and [[Clef change at the beginning of a piece (alternative)]].
-<lilypond version="2.24">
+<span></span>
-%%% This engraver records the initial clef properties (e.g. what is set by \with { \clef ... })
+ \version "2.24"
-%%% If in the first timestep these changed, engrave the original clef, and change formatting and break
-%%% alignment of the actual clef to mimic a clef change clef. Duplicates some procedure from clef engraver
+ %%% This engraver records the initial clef properties (e.g. what is set by \with { \clef ... })
-%%% and could easily be integrated.
+ %%% If in the first timestep these changed, engrave the original clef, and change formatting and break
-#(define (initial-clef-change-engraver context)
+ %%% alignment of the actual clef to mimic a clef change clef. Duplicates some procedure from clef engraver
-   (let ((initial-clef-properties #f) (cclef #f) (keysigs '()))
+ %%% and could easily be integrated.
-     ; macro for checking if any clef property has changed
+ <nowiki>#</nowiki>(define (initial-clef-change-engraver context)
-     (define (clef-changed)
+ <nowiki> </nowiki>  (let ((initial-clef-properties #f) (cclef #f) (keysigs '()))
-       (>
+ <nowiki> </nowiki>    ; macro for checking if any clef property has changed
-        (length initial-clef-properties)
+ <nowiki> </nowiki>    (define (clef-changed)
-        (length
+ <nowiki> </nowiki>      (>
-         (filter
+ <nowiki> </nowiki>       (length initial-clef-properties)
-          (lambda (x) (equal? (cdr x) (ly:context-property context (car x))))
+ <nowiki> </nowiki>       (length
-          initial-clef-properties))))
+ <nowiki> </nowiki>        (filter
-     (make-engraver
+ <nowiki> </nowiki>         (lambda (x) (equal? (cdr x) (ly:context-property context (car x))))
-      ; Record initials propertis
+ <nowiki> </nowiki>         initial-clef-properties))))
-      ((initialize engraver)
+ <nowiki> </nowiki>    (make-engraver
-       (set!
+ <nowiki> </nowiki>     ; Record initials propertis
-        initial-clef-properties
+ <nowiki> </nowiki>     ((initialize engraver)
-        `((clefGlyph . ,(ly:context-property context 'clefGlyph))
+ <nowiki> </nowiki>      (set!
-          (clefPosition  . ,(ly:context-property context 'clefPosition))
+ <nowiki> </nowiki>       initial-clef-properties
-          (middleCClefPosition . ,(ly:context-property context 'middleCClefPosition))
+ <nowiki> </nowiki>       `((clefGlyph . ,(ly:context-property context 'clefGlyph))
-          (clefTransposition  . ,(ly:context-property context 'clefTransposition)))))
+ <nowiki> </nowiki>         (clefPosition  . ,(ly:context-property context 'clefPosition))
-      ; Record the actual clef to adjust. Use details.muted to not acknowledge clef created by this engraver.
+ <nowiki> </nowiki>         (middleCClefPosition . ,(ly:context-property context 'middleCClefPosition))
-      (acknowledgers
+  <nowiki> </nowiki>         (clefTransposition  . ,(ly:context-property context 'clefTransposition)))))
-       ((clef-interface engraver grob source-engraver)
+ <nowiki> </nowiki>     ; Record the actual clef to adjust. Use details.muted to not acknowledge clef created by this engraver.
-        (if (not (assoc-get 'muted (ly:grob-property grob 'details) #f))
+ <nowiki> </nowiki>     (acknowledgers
-            (set! cclef grob)))
+ <nowiki> </nowiki>      ((clef-interface engraver grob source-engraver)
-       ((key-signature-interface engraver grob source-engraver)
+ <nowiki> </nowiki>       (if (not (assoc-get 'muted (ly:grob-property grob 'details) #f))
-        (set! keysigs (cons grob keysigs))))
+ <nowiki> </nowiki>           (set! cclef grob)))
-      ; Create a clef if necessary
+ <nowiki> </nowiki>      ((key-signature-interface engraver grob source-engraver)
-      ((process-music engraver)
+ <nowiki> </nowiki>       (set! keysigs (cons grob keysigs))))
-       (if (and initial-clef-properties (clef-changed))
+ <nowiki> </nowiki>     ; Create a clef if necessary
-           (let ((clef (ly:engraver-make-grob engraver 'Clef '())))
+ <nowiki> </nowiki>     ((process-music engraver)
-             (ly:grob-set-property! clef 'staff-position (assoc-get 'clefPosition initial-clef-properties))
+ <nowiki> </nowiki>      (if (and initial-clef-properties (clef-changed))
-             (ly:grob-set-property! clef 'glyph (assoc-get 'clefGlyph initial-clef-properties))
+ <nowiki> </nowiki>          (let ((clef (ly:engraver-make-grob engraver 'Clef '())))
-             (ly:grob-set-nested-property! clef '(details muted) #t)
+ <nowiki> </nowiki>            (ly:grob-set-property! clef 'staff-position (assoc-get 'clefPosition initial-clef-properties))
-             (if ((lambda (x) (and (number? x) (not (= 0 x))))
+ <nowiki> </nowiki>            (ly:grob-set-property! clef 'glyph (assoc-get 'clefGlyph initial-clef-properties))
-                  (assoc-get 'clefTransposition initial-clef-properties 0))
+ <nowiki> </nowiki>            (ly:grob-set-nested-property! clef '(details muted) #t)
-                 (let ((mod (ly:engraver-make-grob engraver 'ClefModifier '()))
+ <nowiki> </nowiki>            (if ((lambda (x) (and (number? x) (not (= 0 x))))
-                       (formatter (ly:context-property context 'clefTranspositionFormatter))
+ <nowiki> </nowiki>                 (assoc-get 'clefTransposition initial-clef-properties 0))
-                       (style (ly:context-property context 'clefTranspositionStyle))
+ <nowiki> </nowiki>                (let ((mod (ly:engraver-make-grob engraver 'ClefModifier '()))
-                       (dir (sign (assoc-get 'clefTransposition initial-clef-properties 0)))
+ <nowiki> </nowiki>                      (formatter (ly:context-property context 'clefTranspositionFormatter))
-                       (abs_trans (1+ (abs (assoc-get 'clefTransposition initial-clef-properties 0)))))
+ <nowiki> </nowiki>                      (style (ly:context-property context 'clefTranspositionStyle))
-                   (if (procedure? formatter)
+ <nowiki> </nowiki>                      (dir (sign (assoc-get 'clefTransposition initial-clef-properties 0)))
-                       (ly:grob-set-property! mod 'text (formatter (number->string abs_trans) style)))
+ <nowiki> </nowiki>                      (abs_trans (1+ (abs (assoc-get 'clefTransposition initial-clef-properties 0)))))
-                   (ly:grob-set-object! mod 'side-support-elements (ly:grob-list->grob-array (list clef)))
+ <nowiki> </nowiki>                  (if (procedure? formatter)
-                   (ly:grob-set-parent! mod X clef)
+ <nowiki> </nowiki>                      (ly:grob-set-property! mod 'text (formatter (number->string abs_trans) style)))
-                   (ly:grob-set-parent! mod Y clef)
+ <nowiki> </nowiki>                  (ly:grob-set-object! mod 'side-support-elements (ly:grob-list->grob-array (list clef)))
-                   (ly:grob-set-property! mod 'direction dir))))))
+ <nowiki> </nowiki>                  (ly:grob-set-parent! mod X clef)
-      ; Adjust the actual clef and key signatures
+ <nowiki> </nowiki>                  (ly:grob-set-parent! mod Y clef)
-      ((process-acknowledged engraver)
+ <nowiki> </nowiki>                  (ly:grob-set-property! mod 'direction dir))))))
-       (if (and cclef initial-clef-properties (clef-changed))
+ <nowiki> </nowiki>     ; Adjust the actual clef and key signatures
-           (begin
+ <nowiki> </nowiki>     ((process-acknowledged engraver)
+ <nowiki> </nowiki>      (if (and cclef initial-clef-properties (clef-changed))
-            ; Key signatures need to be handled if they appear before the cue-clef
+ <nowiki> </nowiki>          (begin
-            ; This requires the break alignment information, so this only sets a
-            ; hook which will be processed during `before-line-breaking` of the
+ <nowiki> </nowiki>           ; Key signatures need to be handled if they appear before the cue-clef
-            ; BreakAlignGroups
+ <nowiki> </nowiki>           ; This requires the break alignment information, so this only sets a
-            (for-each
+ <nowiki> </nowiki>           ; hook which will be processed during `before-line-breaking` of the
-             (lambda (keysig)
+ <nowiki> </nowiki>           ; BreakAlignGroups
-               (let ((det (ly:grob-property keysig 'details))
+ <nowiki> </nowiki>           (for-each
-                     (initial-clef-properties initial-clef-properties))
+ <nowiki> </nowiki>            (lambda (keysig)
-                 (ly:grob-set-property!
+ <nowiki> </nowiki>              (let ((det (ly:grob-property keysig 'details))
-                  keysig
+ <nowiki> </nowiki>                    (initial-clef-properties initial-clef-properties))
-                  'details
+ <nowiki> </nowiki>                (ly:grob-set-property!
-                  (acons
+ <nowiki> </nowiki>                 keysig
-                   'break-alignment-handler
+ <nowiki> </nowiki>                 'details
-                   (lambda (grob break-alignment)
+ <nowiki> </nowiki>                 (acons
-                     (let ((start-of-line
+ <nowiki> </nowiki>                  'break-alignment-handler
-                            (vector-ref
+ <nowiki> </nowiki>                  (lambda (grob break-alignment)
-                             (ly:grob-property break-alignment 'break-align-orders)
+ <nowiki> </nowiki>                    (let ((start-of-line
-)))
+ <nowiki> </nowiki>                           (vector-ref
-                       (if (member 'cue-clef (or (member 'key-signature start-of-line) '()))
+ <nowiki> </nowiki>                            (ly:grob-property break-alignment 'break-align-orders)
-                           (ly:grob-set-property!
+ <nowiki> </nowiki>                            2)))
-                            grob 'c0-position
+ <nowiki> </nowiki>                      (if (member 'cue-clef (or (member 'key-signature start-of-line) '()))
-                            (assoc-get 'middleCClefPosition initial-clef-properties)))))
+ <nowiki> </nowiki>                          (ly:grob-set-property!
-                   det))))
+ <nowiki> </nowiki>                           grob 'c0-position
-             keysigs)
+ <nowiki> </nowiki>                           (assoc-get 'middleCClefPosition initial-clef-properties)))))
+ <nowiki> </nowiki>                  det))))
-            (ly:grob-set-property! cclef 'non-default #t)
+ <nowiki> </nowiki>            keysigs)
-            (ly:grob-set-property! cclef 'break-align-symbol 'cue-clef)
-            (if (not (eq? #t (ly:grob-property cclef 'full-size-change)))
+ <nowiki> </nowiki>           (ly:grob-set-property! cclef 'non-default #t)
-                (ly:grob-set-property! cclef 'glyph-name
+ <nowiki> </nowiki>           (ly:grob-set-property! cclef 'break-align-symbol 'cue-clef)
-                                      (format #f "~a_change" (ly:grob-property cclef 'glyph)))))))
+ <nowiki> </nowiki>           (if (not (eq? #t (ly:grob-property cclef 'full-size-change)))
-      ; Unset parameters
+ <nowiki> </nowiki>               (ly:grob-set-property! cclef 'glyph-name
-      ((stop-translation-timestep engraver)
+ <nowiki> </nowiki>                                     (format #f "~a_change" (ly:grob-property cclef 'glyph)))))))
-       (set! initial-clef-properties #f)
+ <nowiki> </nowiki>     ; Unset parameters
-       (set! clef #f)
+ <nowiki> </nowiki>     ((stop-translation-timestep engraver)
-       (set! keysigs '())))))
+ <nowiki> </nowiki>      (set! initial-clef-properties #f)
+ <nowiki> </nowiki>      (set! clef #f)
-\layout {
+ <nowiki> </nowiki>      (set! keysigs '())))))
-  \context {
-    \Staff
+ \layout {
-    \consists #initial-clef-change-engraver
+ <nowiki> </nowiki> \context {
-  }
+ <nowiki> </nowiki>   \Staff
-  \context {
+ <nowiki> </nowiki>   \consists #initial-clef-change-engraver
-    \Score
+ <nowiki> </nowiki> }
-    \override BreakAlignGroup.before-line-breaking =
+ <nowiki> </nowiki> \context {
-    #(lambda (grob)
+ <nowiki> </nowiki>   \Score
-       (let ((grobs (ly:grob-object grob 'elements))
+ <nowiki> </nowiki>   \override BreakAlignGroup.before-line-breaking =
-             (break-alignment (ly:grob-parent grob X)))
+ <nowiki> </nowiki>   #(lambda (grob)
-         (if (not (null? grobs))
+ <nowiki> </nowiki>      (let ((grobs (ly:grob-object grob 'elements))
-             (set! grobs (ly:grob-array->list grobs)))
+ <nowiki> </nowiki>            (break-alignment (ly:grob-parent grob X)))
-         (for-each
+ <nowiki> </nowiki>        (if (not (null? grobs))
-          (lambda (grob)
+ <nowiki> </nowiki>            (set! grobs (ly:grob-array->list grobs)))
-            (let* ((det (ly:grob-property grob 'details))
+ <nowiki> </nowiki>        (for-each
-                   (handler (assoc-get 'break-alignment-handler det)))
+ <nowiki> </nowiki>         (lambda (grob)
-              (if (procedure? handler)
+ <nowiki> </nowiki>           (let* ((det (ly:grob-property grob 'details))
-                  (handler grob break-alignment))))
+ <nowiki> </nowiki>                  (handler (assoc-get 'break-alignment-handler det)))
-          grobs)))
+ <nowiki> </nowiki>             (if (procedure? handler)
-  }
+ <nowiki> </nowiki>                 (handler grob break-alignment))))
-}
+ <nowiki> </nowiki>         grobs)))
+ <nowiki> </nowiki> }
-\new Staff \with { \clef "bass^15" } {
+ }
-  \key bes\major
-  \clef "treble_8"
+ \new Staff \with { \clef "bass^15" } {
-  c'1 c'1
+ <nowiki> </nowiki> \key bes\major
-  \clef bass
+ <nowiki> </nowiki> \clef "treble_8"
-  c'1
+ <nowiki> </nowiki> c'1 c'1
-}
+ <nowiki> </nowiki> \clef bass
+ <nowiki> </nowiki> c'1
-\score {
+ }
-  \layout {
-    \context {
+ \score {
-      \Score
+ <nowiki> </nowiki> \layout {
-      \override BreakAlignment.break-align-orders =
+ <nowiki> </nowiki>   \context {
-      ##((staff-ellipsis
+ <nowiki> </nowiki>     \Score
-          left-edge
+ <nowiki> </nowiki>     \override BreakAlignment.break-align-orders =
-          cue-end-clef
+ <nowiki> </nowiki>     ##((staff-ellipsis
-          ambitus
+ <nowiki> </nowiki>         left-edge
-          breathing-sign
+ <nowiki> </nowiki>         cue-end-clef
-          optional-material-end-bracket
+ <nowiki> </nowiki>         ambitus
-          signum-repetitionis
+ <nowiki> </nowiki>         breathing-sign
-          clef
+ <nowiki> </nowiki>         optional-material-end-bracket
-          cue-clef
+ <nowiki> </nowiki>         signum-repetitionis
-          staff-bar
+ <nowiki> </nowiki>         clef
-          key-cancellation
+ <nowiki> </nowiki>         cue-clef
-          key-signature
+ <nowiki> </nowiki>         staff-bar
-          time-signature
+ <nowiki> </nowiki>         key-cancellation
-          optional-material-start-bracket
+ <nowiki> </nowiki>         key-signature
-          custos)
+ <nowiki> </nowiki>         time-signature
-         (staff-ellipsis
+ <nowiki> </nowiki>         optional-material-start-bracket
-          left-edge
+ <nowiki> </nowiki>         custos)
-          optional-material-end-bracket
+ <nowiki> </nowiki>        (staff-ellipsis
-          cue-end-clef
+ <nowiki> </nowiki>         left-edge
-          ambitus
+ <nowiki> </nowiki>         optional-material-end-bracket
-          breathing-sign
+ <nowiki> </nowiki>         cue-end-clef
-          signum-repetitionis
+ <nowiki> </nowiki>         ambitus
-          clef
+ <nowiki> </nowiki>         breathing-sign
-          cue-clef
+ <nowiki> </nowiki>         signum-repetitionis
-          staff-bar
+ <nowiki> </nowiki>         clef
-          key-cancellation
+ <nowiki> </nowiki>         cue-clef
-          key-signature
+ <nowiki> </nowiki>         staff-bar
-          time-signature
+ <nowiki> </nowiki>         key-cancellation
-          optional-material-start-bracket
+ <nowiki> </nowiki>         key-signature
-          custos)
+ <nowiki> </nowiki>         time-signature
-         (staff-ellipsis
+ <nowiki> </nowiki>         optional-material-start-bracket
-          left-edge
+ <nowiki> </nowiki>         custos)
-          optional-material-end-bracket
+ <nowiki> </nowiki>        (staff-ellipsis
-          ambitus
+ <nowiki> </nowiki>         left-edge
-          breathing-sign
+ <nowiki> </nowiki>         optional-material-end-bracket
-          signum-repetitionis
+ <nowiki> </nowiki>         ambitus
-          clef
+ <nowiki> </nowiki>         breathing-sign
-          cue-clef
+ <nowiki> </nowiki>         signum-repetitionis
-          key-cancellation
+ <nowiki> </nowiki>         clef
-          key-signature
+ <nowiki> </nowiki>         cue-clef
-          time-signature
+ <nowiki> </nowiki>         key-cancellation
-          staff-bar
+ <nowiki> </nowiki>         key-signature
-          optional-material-start-bracket
+ <nowiki> </nowiki>         time-signature
-          custos))
+ <nowiki> </nowiki>         staff-bar
-    }
+ <nowiki> </nowiki>         optional-material-start-bracket
-  }
+ <nowiki> </nowiki>         custos))
-  \new Staff \with { \clef "bass^15" } {
+ <nowiki> </nowiki>   }
-    \key bes\major
+ <nowiki> </nowiki> }
-    \clef "treble_8"
+ <nowiki> </nowiki> \new Staff \with { \clef "bass^15" } {
-    c'1 c'1
+ <nowiki> </nowiki>   \key bes\major
-    \clef bass
+ <nowiki> </nowiki>   \clef "treble_8"
-    c'1
+ <nowiki> </nowiki>   c'1 c'1
-  }
+ <nowiki> </nowiki>   \clef bass
-}
+ <nowiki> </nowiki>   c'1
+ <nowiki> </nowiki> }
-% Basic usage:
+ }
-\score {
-  <<
+ % Basic usage:
-    % Just the treble clef
+ \score {
-    \new Staff {
+ <nowiki> </nowiki> <<
-      \key bes \major
+ <nowiki> </nowiki>   % Just the treble clef
-      c''1
+ <nowiki> </nowiki>   \new Staff {
-    }
+ <nowiki> </nowiki>     \key bes \major
+ <nowiki> </nowiki>     c<nowiki>''</nowiki>1
-    % Just the bass clef
+ <nowiki> </nowiki>   }
-    \new Staff \with { \clef bass  } {
+ <nowiki> </nowiki>
-      \key bes \major
+ <nowiki> </nowiki>   % Just the bass clef
-      c1
+ <nowiki> </nowiki>   \new Staff \with { \clef bass  } {
-    }
+ <nowiki> </nowiki>     \key bes \major
+ <nowiki> </nowiki>     c1
-    % Initial treble clef, then bass clef
+ <nowiki> </nowiki>   }
-    \new Staff {
+ <nowiki> </nowiki>
-      \key bes \major
+ <nowiki> </nowiki>   % Initial treble clef, then bass clef
-      \clef bass
+ <nowiki> </nowiki>   \new Staff {
-      c1
+ <nowiki> </nowiki>     \key bes \major
-    }
+ <nowiki> </nowiki>     \clef bass
+ <nowiki> </nowiki>     c1
-    % Initial bass clef, then treble clef
+ <nowiki> </nowiki>   }
-    \new Staff \with { \clef bass  } {
+ <nowiki> </nowiki>
-      \key bes \major
+ <nowiki> </nowiki>   % Initial bass clef, then treble clef
-      \clef treble
+ <nowiki> </nowiki>   \new Staff \with { \clef bass  } {
-      c''1
+ <nowiki> </nowiki>     \key bes \major
-    }
+ <nowiki> </nowiki>     \clef treble
-  >>
+ <nowiki> </nowiki>     c<nowiki>''</nowiki>1
+ <nowiki> </nowiki>   }
-  \layout {
+ <nowiki> </nowiki> >>
-    \context {
-      \Staff
+ <nowiki> </nowiki> \layout {
-      \consists #initial-clef-change-engraver
+ <nowiki> </nowiki>   \context {
-    }
+ <nowiki> </nowiki>     \Staff
-  }
+ <nowiki> </nowiki>     \consists #initial-clef-change-engraver
-}
+ <nowiki> </nowiki>   }
-</lilypond>
+ <nowiki> </nowiki> }
+ }
+<span></span>
 [[Category:Contexts and engravers]]