Circled pattern markup - Revision history

Lemzwerg: New category

2025-11-21T23:28:41Z

New category

← Older revision		Revision as of 23:28, 21 November 2025
Line 91:		Line 91:
	[[Category:Text]]		[[Category:Text]]
	[[Category:Symbols and glyphs]]		[[Category:Symbols and glyphs]]
	[[Category:Really cool]][[Category:Snippet]]		[[Category:Really cool]]
			[[Category:Snippet]]

Lemzwerg at 22:49, 21 November 2025

2025-11-21T22:49:38Z

← Older revision		Revision as of 22:49, 21 November 2025
Line 91:		Line 91:
	[[Category:Text]]		[[Category:Text]]
	[[Category:Symbols and glyphs]]		[[Category:Symbols and glyphs]]
	[[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:46:35Z

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:46, 16 November 2025
Line 1:		Line 1:
	Syntax is <code>\markup\circled-pattern #'radius #'angle #'repeat 'sign (or letter, or glyph) </code>		Syntax is <code>\markup\circled-pattern #'radius #'angle #'repeat 'sign (or letter, or glyph) </code>

	<lilypond version="2.24.0">		<lilypond version="2.24">
	%% http://lsr.di.unimi.it/LSR/Item?id=1068		%% http://lsr.di.unimi.it/LSR/Item?id=1068
	%% Add by P.P.Schneider on July 2018.		%% Add by P.P.Schneider on July 2018.

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:40:51Z

Import snippet from LSR

New page

Syntax is <code>\markup\circled-pattern #'radius #'angle #'repeat 'sign (or letter, or glyph) </code>

<lilypond version="2.24.0">
%% http://lsr.di.unimi.it/LSR/Item?id=1068
%% Add by P.P.Schneider on July 2018.
%% see disussion => http://lilypond.1069038.n5.nabble.com/dotted-semicircle-indicating-harmonics-td214580.html

%here starts the snippet:

%circled-pattern
#(define-markup-command
(circled-pattern layout props radius angle num arg)
(number? number? number? markup?)
(interpret-markup layout props
(let* ((rep (abs num))(rad (abs radius)))
(cond
((= num 0) (markup ""))
((= num 1) (markup arg))
(#t (markup
(#:combine
(#:null)
(fold
(lambda (i prev)
(markup
(#:combine
(#:rotate
(* i (/ angle rep))
(#:concat (#:null #:hspace rad arg)))
prev)))
(markup (#:null))
(iota (1+ rep))))))))))

#(define-markup-command
(circled-pattern-iterative layout props radius angle num arg)
(number? number? number? markup?)
(interpret-markup layout props
(let ((rep (abs num)))
(cond
((= num 0) (markup ""))
((= num 1) arg)
(#t (do ((i 0 (1+ i))
(res (markup (#:null))
(markup
(#:combine
(#:rotate
(* i (/ angle rep))
(#:concat (#:null #:hspace radius arg)))
res))))
((= i (1+ rep)) res)))))))

%% Tests:
testOne = \markup "."
testTwo = \markup \rotate #99 \musicglyph "clefs.G"
testThree = \markup \rotate #110 \fontsize #2 \sans "C"
testFour = \markup \rotate #105 "^"
testFive = \markup \scale #'(3 . 1) ">"
testSix = \markup {
\circled-pattern #30 #360 #35
\circled-pattern #15 #180 #20 \sans\bold\rotate #-90 "C"
}

\markup\fill-line {
%% Test #1
\circled-pattern-iterative #10 #180 #30 \testOne

\null
%% Test #1 bis
\circled-pattern-iterative #10 #-270 #45 \testOne

\null
%% test #2 (funny)
\circled-pattern-iterative #6 #360 #8 \testTwo

%% test #3 (red flower)
\with-color #red \circled-pattern #5 #-360 #10 \testThree

%% Test #4 (snow)
\rotate #-15 \circled-pattern-iterative #1.5 #360 #6 \testFour

%% Test #5 (star)
\circled-pattern-iterative #3 #360 #5 \testFive

\null
%% Test #6 (combination)
\scale #'(.35 . .35)
\testSix
}
</lilypond>

[[Category:Text]]
[[Category:Symbols and glyphs]]
[[Category:Really cool]]