Stylized movement numbers - Revision history

Lemzwerg: New category

2025-11-21T23:25:50Z

New category

← Older revision		Revision as of 23:25, 21 November 2025
Line 58:		Line 58:
	[[Category:Text]]		[[Category:Text]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Really cool]][[Category:Snippet]]		[[Category:Really cool]]
			[[Category:Snippet]]

Lemzwerg at 23:01, 21 November 2025

2025-11-21T23:01:03Z

← Older revision		Revision as of 23:01, 21 November 2025
Line 58:		Line 58:
	[[Category:Text]]		[[Category:Text]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Really cool]]		[[Category:Really cool]][[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:51:30Z

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:51, 16 November 2025
Line 1:		Line 1:
	Create stylized movement numbers for the instrumentName field (or wherever else a markup can be used).		Create stylized movement numbers for the instrumentName field (or wherever else a markup can be used).

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

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:43:01Z

Import snippet from LSR

New page

Create stylized movement numbers for the instrumentName field (or wherever else a markup can be used).

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

%LSR modified by P.P.Schneider on Feb.2014 for v2.18

% "\No" markup: create stylized movement number for the instrumentName field.
% syntax example: instrumentName = \markup \No #"14a"
#(define-markup-command (No layout props n) (string?)
(define (format-char c)
(let ((s (string c)))
(if (number? (string->number s))
(markup #:hspace 0.125 #:number s #:hspace 0.125)
(markup #:hspace 0 #:fontsize 2 s))))
(define (format-string s i)
(let ((n (string-length s)))
(if (= n 0)
(markup #:null)
(markup (format-char (string-ref s i))
(if (= (1+ i) n)
(markup #:null)
(format-string s (1+ i)))))))
(let ((i (string-length n)))
(interpret-markup layout props
(markup
#:concat
(#:concat
(#:fontsize 2
"N"
#:hspace 0
#:override '(baseline-skip . 0.825)
#:override '(direction . 1)
#:dir-column (#:fontsize 2 #:center-align "."
#:fontsize 1 #:center-align "o"))
#:hspace 0.5
#:concat ((format-string n 0)
#:hspace -.8
#:fontsize 2 "."))
#:hspace -2))))

%\markup \No #"7"

%\markup \No #"14a"

\relative c' {
\override Score.InstrumentName.padding = #3 % a simple workaround against LSR bug: not needed.
\set Staff.instrumentName = \markup { \No #"8" }
% or:
%\set Staff.instrumentName = \markup\magnify #1.3 \concat { № \hspace#.4 8. \hspace#-2 }
\time 6/8
c8 e g c g e
c2.
}
</lilypond>

[[Category:Text]]
[[Category:Text]]
[[Category:Scheme]]
[[Category:Really cool]]