Ksnortum: Fix cropping problem

2026-03-16T21:46:51Z

Fix cropping problem

← Older revision		Revision as of 21:46, 16 March 2026
Line 1:		Line 1:
	This snippet demonstrates how to add boxes around/behind notes. Boxes are automatically sized.		This snippet demonstrates how to add boxes around/behind notes. Boxes are automatically sized.

	<lilypond version="2.24">		<lilypond version="2.24" full>
	#(define-event-class 'music-boxer-event 'span-event)		#(define-event-class 'music-boxer-event 'span-event)

Line 294:		Line 294:
	\score {		\score {
	\new Staff \melody		\new Staff \melody
			}

			%% The following is only for display purposes only and can be removed
			\paper {
			paper-height = 3.5\cm
			tagline = ##f
			indent = #0
	}		}

Jean Abou Samra at 21:36, 2 February 2026

2026-02-02T21:36:05Z

← Older revision		Revision as of 21:36, 2 February 2026
Line 2:		Line 2:

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

	#(define-event-class 'music-boxer-event 'span-event)		#(define-event-class 'music-boxer-event 'span-event)

Gabriel Ellsworth: I deleted the full keyword because, as far as I can tell, this snippet does not need to demonstrate page layout features.

2026-02-02T17:23:37Z

I deleted the full keyword because, as far as I can tell, this snippet does not need to demonstrate page layout features.

← Older revision		Revision as of 17:23, 2 February 2026
Line 1:		Line 1:
	This snippet demonstrates how to add boxes around/behind notes. Boxes are automatically sized.		This snippet demonstrates how to add boxes around/behind notes. Boxes are automatically sized.

	<lilypond version="2.24" ~~full~~>		<lilypond version="2.24">
	\version "2.19.15"		\version "2.19.15"

	~~\header {~~
	~~tagline = ##f~~
	}

	#(define-event-class 'music-boxer-event 'span-event)		#(define-event-class 'music-boxer-event 'span-event)

Lemzwerg: New category

2025-11-21T23:12:13Z

New category

← Older revision		Revision as of 23:12, 21 November 2025
Line 319:		Line 319:
	[[Category:Paper and layout]]		[[Category:Paper and layout]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Specific notation]][[Category:Snippet]]		[[Category:Specific notation]]
			[[Category:Snippet]]

Lemzwerg at 22:48, 21 November 2025

2025-11-21T22:48:23Z

← Older revision		Revision as of 22:48, 21 November 2025
Line 319:		Line 319:
	[[Category:Paper and layout]]		[[Category:Paper and layout]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Specific notation]]		[[Category:Specific notation]][[Category:Snippet]]

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

2025-11-16T18:44:45Z

Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

← Older revision		Revision as of 18:44, 16 November 2025
Line 1:		Line 1:
	This snippet demonstrates how to add boxes around/behind notes. Boxes are automatically sized.		This snippet demonstrates how to add boxes around/behind notes. Boxes are automatically sized.

	<lilypond version="2.24.0" full>		<lilypond version="2.24" full>
	\version "2.19.15"		\version "2.19.15"

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:44:58Z

Import snippet from LSR

New page

This snippet demonstrates how to add boxes around/behind notes. Boxes are automatically sized.

<lilypond version="2.24.0" full>
\version "2.19.15"

\header {
tagline = ##f
}

#(define-event-class 'music-boxer-event 'span-event)

#(define-event-class 'box-event 'music-event)

#(define (add-grob-definition grob-name grob-entry)
(set! all-grob-descriptions
(cons ((@@ (lily) completize-grob-entry)
(cons grob-name grob-entry))
all-grob-descriptions)))

#(add-grob-definition
'LyricWord
`(;(stencil . ,ly:lyric-word::print)
(meta . ((class . Spanner)
(interfaces . (lyric-hyphen-interface
lyric-word-interface
text-interface))))))

#(define (make-box thick padding xext yext)
(let ((xext (interval-widen xext padding))
(yext (interval-widen yext padding)))
(ly:stencil-add
(make-filled-box-stencil xext (cons (- (car yext) thick) (car yext)))
(make-filled-box-stencil xext (cons (cdr yext) (+ (cdr yext) thick)))
(make-filled-box-stencil (cons (cdr xext) (+ (cdr xext) thick)) yext)
(make-filled-box-stencil (cons (- (car xext) thick) (car xext)) yext))))

#(define (music-boxer-stencil grob)
(let* ((elts (ly:grob-object grob 'elements))
(refp-X (ly:grob-common-refpoint-of-array grob elts X))
(X-ext (ly:relative-group-extent elts refp-X X))
(refp-Y (ly:grob-common-refpoint-of-array grob elts Y))
(Y-ext (ly:relative-group-extent elts refp-Y Y))
(padding (ly:grob-property grob 'padding 0.3))
(stil (make-box 0.1 padding X-ext Y-ext))
(offset (ly:grob-relative-coordinate grob refp-X X)))
(ly:stencil-translate-axis stil (- offset) X)))

#(define box-stil music-boxer-stencil)

#(add-grob-definition
'Box
`(
(stencil . ,box-stil)
(meta . ((class . Item)
(interfaces . ())))))

#(add-grob-definition
'MusicBoxer
`(
(stencil . ,music-boxer-stencil)
(meta . ((class . Spanner)
(interfaces . ())))))

#(define box-types
'(
(BoxEvent
. ((description . "A box encompassing music at a single timestep.")
(types . (general-music box-event music-event event))
))
))

#(define music-boxer-types
'(
(MusicBoxerEvent
. ((description . "Used to signal where boxes encompassing music start and stop.")
(types . (general-music music-boxer-event span-event event))
))
))

#(set!
music-boxer-types
(map (lambda (x)
(set-object-property! (car x)
'music-description
(cdr (assq 'description (cdr x))))
(let ((lst (cdr x)))
(set! lst (assoc-set! lst 'name (car x)))
(set! lst (assq-remove! lst 'description))
(hashq-set! music-name-to-property-table (car x) lst)
(cons (car x) lst)))
music-boxer-types))

#(set!
box-types
(map (lambda (x)
(set-object-property! (car x)
'music-description
(cdr (assq 'description (cdr x))))
(let ((lst (cdr x)))
(set! lst (assoc-set! lst 'name (car x)))
(set! lst (assq-remove! lst 'description))
(hashq-set! music-name-to-property-table (car x) lst)
(cons (car x) lst)))
box-types))

#(set! music-descriptions
(append music-boxer-types music-descriptions))

#(set! music-descriptions
(append box-types music-descriptions))

#(set! music-descriptions
(sort music-descriptions alist<?))

#(define (add-bound-item spanner item)
(if (null? (ly:spanner-bound spanner LEFT))
(ly:spanner-set-bound! spanner LEFT item)
(ly:spanner-set-bound! spanner RIGHT item)))

musicBoxerEngraver =
#(lambda (context)
(let ((span '())
(finished '())
(current-event '())
(event-start '())
(event-stop '()))

`((listeners
(music-boxer-event .
,(lambda (engraver event)
(if (= START (ly:event-property event 'span-direction))
(set! event-start event)
(set! event-stop event)))))

(acknowledgers
(note-column-interface .
,(lambda (engraver grob source-engraver)
(if (ly:spanner? span)
(begin
(ly:pointer-group-interface::add-grob span 'elements grob)
(add-bound-item span grob)))
(if (ly:spanner? finished)
(begin
(ly:pointer-group-interface::add-grob finished 'elements grob)
(add-bound-item finished grob)))))

(inline-accidental-interface .
,(lambda (engraver grob source-engraver)
(if (ly:spanner? span)
(begin
(ly:pointer-group-interface::add-grob span 'elements grob)))
(if (ly:spanner? finished)
(ly:pointer-group-interface::add-grob finished 'elements grob))))

(script-interface .
,(lambda (engraver grob source-engraver)
(if (ly:spanner? span)
(begin
(ly:pointer-group-interface::add-grob span 'elements grob)))
(if (ly:spanner? finished)
(ly:pointer-group-interface::add-grob finished 'elements grob))))

(finger-interface .
,(lambda (engraver grob source-engraver)
(if (ly:spanner? span)
(begin
(ly:pointer-group-interface::add-grob span 'elements grob)))
(if (ly:spanner? finished)
(ly:pointer-group-interface::add-grob finished 'elements grob))))

;; add additional interfaces to acknowledge here

)

(process-music .
,(lambda (trans)
(if (ly:stream-event? event-stop)
(if (null? span)
(ly:warning "No start to this box.")
(begin
(set! finished span)
(ly:engraver-announce-end-grob trans finished event-start)
(set! span '())
(set! event-stop '()))))
(if (ly:stream-event? event-start)
(begin
(set! span (ly:engraver-make-grob trans 'MusicBoxer event-start))
(set! event-start '())))))

(stop-translation-timestep .
,(lambda (trans)
(if (and (ly:spanner? span)
(null? (ly:spanner-bound span LEFT)))
(ly:spanner-set-bound! span LEFT
(ly:context-property context 'currentMusicalColumn)))
(if (ly:spanner? finished)
(begin
(if (null? (ly:spanner-bound finished RIGHT))
(ly:spanner-set-bound! finished RIGHT
(ly:context-property context 'currentMusicalColumn)))
(set! finished '())
(set! event-start '())
(set! event-stop '())))))

(finalize
(lambda (trans)
(if (ly:spanner? finished)
(begin
(if (null? (ly:spanner-bound finished RIGHT))
(set! (ly:spanner-bound finished RIGHT)
(ly:context-property context 'currentMusicalColumn)))
(set! finished '())))
(if (ly:spanner? span)
(begin
(ly:warning "unterminated box :-(")
(ly:grob-suicide! span)
(set! span '()))))))))

boxEngraver =
#(lambda (context)
(let ((box '())
(ev '()))

`((listeners
(box-event .
,(lambda (engraver event)
(set! ev event))))

(acknowledgers
(note-column-interface .
,(lambda (engraver grob source-engraver)
(if (ly:grob? box)
(begin
; (set! (ly:grob-parent box X) grob) ;; ??
(set! (ly:grob-parent box Y) grob)
(ly:pointer-group-interface::add-grob box 'elements grob)))))

(inline-accidental-interface .
,(lambda (engraver grob source-engraver)
(if (ly:item? box)
(ly:pointer-group-interface::add-grob box 'elements grob))))

(script-interface .
,(lambda (engraver grob source-engraver)
(if (ly:item? box)
(ly:pointer-group-interface::add-grob box 'elements grob))))

(finger-interface .
,(lambda (engraver grob source-engraver)
(if (ly:item? box)
(ly:pointer-group-interface::add-grob box 'elements grob))))

;; add additional interfaces to acknowledge here

)

(process-music .
,(lambda (trans)
(if (ly:stream-event? ev)
(begin
(set! box (ly:engraver-make-grob trans 'Box ev))
(set! ev '())))))
(stop-translation-timestep .
,(lambda (trans)
(set! box '()))))))

musicBoxerStart =
#(make-span-event 'MusicBoxerEvent START)

musicBoxerEnd =
#(make-span-event 'MusicBoxerEvent STOP)

box = #(make-music 'BoxEvent)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EXAMPLE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

melody = \relative c'' {
\set fingeringOrientations = #'(left)
%1
\repeat volta 2 {
\once\override Score.Box.padding = 0.5
\box <g-3 c-2 f-1>1
\musicBoxerStart d8-4 g,-0 d' g, d'-4 g,-0 d' \musicBoxerEnd g,
}

%2
\repeat volta 2 {
\box <d'-4 c'-2 f-1>1\f\fermata
\musicBoxerStart g8-3 d-0 g d g8-4 d-0 g \musicBoxerEnd d\accent
}
}

\score {
\new Staff \melody
}

\layout {
\context {
\Global
\grobdescriptions #all-grob-descriptions
}
\context {
\Score
\consists \musicBoxerEngraver % for spans
\consists \boxEngraver
}
}
</lilypond>

[[Category:Education]]
[[Category:Editorial annotations]]
[[Category:Paper and layout]]
[[Category:Scheme]]
[[Category:Specific notation]]