Time signature with alternate in parentheses - Revision history

Lemzwerg: Aaand another improvement.

2026-04-15T04:35:44Z

Aaand another improvement.

← Older revision		Revision as of 04:35, 15 April 2026
Line 1:		Line 1:
	In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example, ‘3/4 (6/8)’ indicating a 6/8 beat in a 3/4 measure, or ‘6/4 (6/8)’ indicating a 6/8 beat in a 6/4 measure.		In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example, ‘3/4 (6/8)’ indicating a 6/8 beat in a 3/4 measure, or ‘6/4 (6/8)’ indicating a 6/8 beat in a 6/4 measure.

	This snippet provides a small Scheme wrapper around the <code>\compound-meter</code> markup function ~~that can be used to override~~ the <code>TimeSignature</code> stencil~~, displaying~~ both a regular and an alternate time signature.		This snippet provides a music function <code>\timeP</code> that is a small Scheme wrapper around the <code>\compound-meter</code> markup function. It overrides the <code>TimeSignature</code> stencil once to display both a regular and an alternate time signature.

	<lilypond version="2.24">		<lilypond version="2.24">
	#(define ((time-parenthesized-time t tp) grob)		timeP =
	(let ((m1 (grob-interpret-markup		#(define-music-function (t tp) (list? list?)
	grob (markup #:compound-meter t)))		(define ((time-parenthesized-time t tp) grob)
	(m2 (grob-interpret-markup		(let ((m1 (grob-interpret-markup
	grob (markup #:compound-meter tp))))		grob (markup #:compound-meter t)))
	(ly:stencil-combine-at-edge		(m2 (grob-interpret-markup
	m1 X RIGHT		grob (markup #:compound-meter tp))))
	(parenthesize-stencil m2 0.1 0.4 0.4 0.1)		(ly:stencil-combine-at-edge
	0.3)))		m1 X RIGHT
			(parenthesize-stencil m2 0.1 0.4 0.4 0.1)
			0.3)))
			#{
			\once \override Timing.TimeSignature.stencil =
			#(time-parenthesized-time t tp)
			#})

	\relative c' {		\relative c' {
	\~~once \override Staff.TimeSignature.stencil =~~		\timeP #'(3 4) #'(6 8) \time 3/4
	#~~(time-parenthesized-time~~ '(3 4) '(6 8))		b8 b8 gis8 gis4 gis8 \|
	\time 3/4 b8 b8 gis8 gis4 gis8 \|		\timeP #'(4 4) #'(3 2 3 8) \time 4/4
	\~~once \override Staff.TimeSignature.stencil =~~		b4. b4 b4.
	#~~(time-parenthesized-time~~ '(4 4) '(3 2 3 8))
	\time 4/4 b4. b4 b4.
	}		}
	</lilypond>		</lilypond>

Lemzwerg: Improve more.

2026-04-15T04:10:29Z

Improve more.

← Older revision		Revision as of 04:10, 15 April 2026
Line 1:		Line 1:
	In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example~~: 3~~/4 (6/8) indicating a 6/8 beat in a 3/4 measure, or 6/4 (6/8) indicating a 6/8 beat in a 6/4 measure.		In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example, ‘3/4 (6/8)’ indicating a 6/8 beat in a 3/4 measure, or ‘6/4 (6/8)’ indicating a 6/8 beat in a 6/4 measure.

	This snippet ~~uses~~ a small Scheme function that ~~overrides~~ the <code>TimeSignature</code> stencil ~~once to display~~ both ~~the~~ regular and ~~the~~ alternate time signature.		This snippet provides a small Scheme wrapper around the <code>\compound-meter</code> markup function that can be used to override the <code>TimeSignature</code> stencil, displaying both a regular and an alternate time signature.

	<lilypond version="2.24">		<lilypond version="2.24">
	#(define ((time-parenthesized-time ~~up down upp downp~~) grob)		#(define ((time-parenthesized-time t tp) grob)
	(let ((m1 (grob-interpret-markup		(let ((m1 (grob-interpret-markup
	grob		grob (markup #:compound-meter t)))
	(markup #:~~override '(baseline-skip . 0)~~
	~~#:number (#:center-column~~
	~~((number->string up)~~
	~~(number~~-~~>string down)))~~)))
	(m2 (grob-interpret-markup		(m2 (grob-interpret-markup
	grob		grob (markup #:compound-meter tp))))
	(markup #:~~override '(baseline-skip . 0)~~
	~~#:number (#:center-column~~
	~~((number->string upp)~~
	~~(number~~-~~>string downp)))~~))))
	(ly:stencil-combine-at-edge		(ly:stencil-combine-at-edge
	m1 X RIGHT		m1 X RIGHT
	(parenthesize-stencil m2 0.1 0.4 0.4 0.1)		(parenthesize-stencil m2 0.1 0.4 0.4 0.1)
	0.3)))		0.3)))


	\relative c' {		\relative c' {
	\once \override Staff.TimeSignature.stencil =		\once \override Staff.TimeSignature.stencil =
	#(time-parenthesized-time 3 4 6 8)		#(time-parenthesized-time '(3 4) '(6 8))
	\time 3/4 b8 b8 gis8 gis4 gis8 \|		\time 3/4 b8 b8 gis8 gis4 gis8 \|
	\time 4/4 b4 ~~b b b~~		\once \override Staff.TimeSignature.stencil =
			#(time-parenthesized-time '(4 4) '(3 2 3 8))
			\time 4/4 b4. b4 b4.
	}		}
	</lilypond>		</lilypond>

Lemzwerg: Improved

2026-04-14T20:42:54Z

Improved

← Older revision		Revision as of 20:42, 14 April 2026
Line 1:		Line 1:
	In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example: 3/4 (6/8) indicating a 6/8 beat in a 3/4 measure, or 6/4 (6/8) indicating a 6/8 beat in a 6/4 measure. This snippet ~~is derived from~~ the ~~parenthesize-~~time ~~snippet, adding an unparenthesized fraction in front of the parenthesized one~~.		In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example: 3/4 (6/8) indicating a 6/8 beat in a 3/4 measure, or 6/4 (6/8) indicating a 6/8 beat in a 6/4 measure.

			This snippet uses a small Scheme function that overrides the <code>TimeSignature</code> stencil once to display both the regular and the alternate time signature.

	<lilypond version="2.24">		<lilypond version="2.24">
	~~%% http://lsr.di.unimi.it/LSR/Item?id=782~~

	#(define ((time-parenthesized-time up down upp downp) grob)		#(define ((time-parenthesized-time up down upp downp) grob)
	(grob-interpret-markup grob		(let ((m1 (grob-interpret-markup
	(markup #:override '(baseline-skip . 0) #:number		grob
	~~(#:line (~~		(markup #:override '(baseline-skip . 0)
	(#:center-column (up down))		#:number (#:center-column
	#:~~vcenter "~~("		((number->string up)
	(#:center-column (upp downp))		(number->string down))))))
	#:~~vcenter ")" )~~))))		(m2 (grob-interpret-markup
			grob
			(markup #:override '(baseline-skip . 0)
			#:number (#:center-column
			((number->string upp)
			(number->string downp)))))))
			(ly:stencil-combine-at-edge
			m1 X RIGHT
			(parenthesize-stencil m2 0.1 0.4 0.4 0.1)
			0.3)))

	\relative c' {		\relative c' {
	\override Staff.TimeSignature.stencil = #(time-parenthesized-time "3~~" "~~4~~" "~~6~~" "~~8")		\once \override Staff.TimeSignature.stencil =
	\time 3/4		#(time-parenthesized-time 3 4 6 8)
	b8 b8 gis8 gis4 gis8		\time 3/4 b8 b8 gis8 gis4 gis8 \|
			\time 4/4 b4 b b b
	}		}
	</lilypond>		</lilypond>

Lemzwerg: New category

2025-11-21T23:38:24Z

New category

← Older revision		Revision as of 23:38, 21 November 2025
Line 21:		Line 21:

	[[Category:Rhythms]]		[[Category:Rhythms]]
	[[Category:Scheme]][[Category:Snippet]]		[[Category:Scheme]]
			[[Category:Snippet]]

Lemzwerg at 23:01, 21 November 2025

2025-11-21T23:01:39Z

← Older revision		Revision as of 23:01, 21 November 2025
Line 21:		Line 21:

	[[Category:Rhythms]]		[[Category:Rhythms]]
	[[Category:Scheme]]		[[Category:Scheme]][[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:52:36Z

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:52, 16 November 2025
Line 1:		Line 1:
	In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example: 3/4 (6/8) indicating a 6/8 beat in a 3/4 measure, or 6/4 (6/8) indicating a 6/8 beat in a 6/4 measure. This snippet is derived from the parenthesize-time snippet, adding an unparenthesized fraction in front of the parenthesized one.		In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example: 3/4 (6/8) indicating a 6/8 beat in a 3/4 measure, or 6/4 (6/8) indicating a 6/8 beat in a 6/4 measure. This snippet is derived from the parenthesize-time snippet, adding an unparenthesized fraction in front of the parenthesized one.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	%% http://lsr.di.unimi.it/LSR/Item?id=782		%% http://lsr.di.unimi.it/LSR/Item?id=782

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:47:10Z

Import snippet from LSR

New page

In polymetric music, a composer may indicate beat structure by following one time signature with another in parenthesis, for example: 3/4 (6/8) indicating a 6/8 beat in a 3/4 measure, or 6/4 (6/8) indicating a 6/8 beat in a 6/4 measure. This snippet is derived from the parenthesize-time snippet, adding an unparenthesized fraction in front of the parenthesized one.

<lilypond version="2.24.0">
%% http://lsr.di.unimi.it/LSR/Item?id=782

#(define ((time-parenthesized-time up down upp downp) grob)
(grob-interpret-markup grob
(markup #:override '(baseline-skip . 0) #:number
(#:line (
(#:center-column (up down))
#:vcenter "("
(#:center-column (upp downp))
#:vcenter ")" )))))

\relative c' {
\override Staff.TimeSignature.stencil = #(time-parenthesized-time "3" "4" "6" "8")
\time 3/4
b8 b8 gis8 gis4 gis8
}
</lilypond>

[[Category:Rhythms]]
[[Category:Scheme]]