Lemzwerg: New category

2025-11-21T23:16:31Z

New category

← Older revision		Revision as of 23:16, 21 November 2025
Line 97:		Line 97:
	</lilypond>		</lilypond>

	[[Category:Text]][[Category:Snippet]]		[[Category:Text]]
			[[Category:Snippet]]

Lemzwerg at 22:52, 21 November 2025

2025-11-21T22:52:23Z

← Older revision		Revision as of 22:52, 21 November 2025
Line 97:		Line 97:
	</lilypond>		</lilypond>

	[[Category:Text]]		[[Category:Text]][[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:47:16Z

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:47, 16 November 2025
Line 5:		Line 5:
	Use thickness, x-padding, y-padding and font-size properties to determine line thickness and padding around the markup.		Use thickness, x-padding, y-padding and font-size properties to determine line thickness and padding around the markup.

	<lilypond version="2.24.0" full>		<lilypond version="2.24" full>
	\paper { tagline = ##f }		\paper { tagline = ##f }

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:51:07Z

Import snippet from LSR

New page

<code>\capsule</code> ''arg'' (markup).

Draw a capsule around ''arg''.

Use thickness, x-padding, y-padding and font-size properties to determine line thickness and padding around the markup.

<lilypond version="2.24.0" full>
\paper { tagline = ##f }

%% http://lsr.di.unimi.it/LSR/Item?id=1092
%% Add by P.P.Schneider on Apr. 2019.

%%%% Defs:
#(define-public (make-capsule-stencil lgth radius thickness fill)
"Make an capsule from four Bézier curves and two lines, of radius @var{radius},
length @var{lgth}, and thickness @var{thickness} with fill
defined by @code{fill}."
(let*
((k 0.551915)
(r-max radius)
(r-min (- r-max))
(l-max (- lgth r-max))
(l-min (- l-max))
(commands `(,(list 'moveto lgth 0)
,(list 'curveto lgth (* r-max k) (+ (* r-max k) l-max) r-max l-max r-max)
,(list 'lineto l-min r-max)
,(list 'curveto (+ (* r-min k) l-min) r-max (+ l-min r-min) (* r-max k) (+ l-min r-min) 0)
,(list 'curveto (- lgth) (* r-min k) (+ (* r-min k) l-min) r-min l-min r-min)
,(list 'lineto l-max r-min)
,(list 'curveto (+ (* r-max k) l-max) r-min lgth (* r-min k) lgth 0)
,(list 'closepath)))
(command-list (fold-right append '() commands)))
;; after Harm:
(make-path-stencil
command-list
thickness 1 1 fill)))

#(define-public (capsule-stencil stencil thickness x-padding y-padding)
"Add a capsule around @code{stencil}, padded by the padding pair,
producing a var stencil."
(let* ((x-ext (ly:stencil-extent stencil X))
(y-ext (ly:stencil-extent stencil Y))
(x-length (+ (interval-length x-ext) x-padding thickness))
(y-length (+ (interval-length y-ext) y-padding thickness))
(x-radius (* 0.5 x-length) )
(y-radius (* 0.52 y-length) )
(capsule (make-capsule-stencil x-radius y-radius thickness #f)))
(ly:stencil-add
stencil
(ly:stencil-translate capsule
(cons
(interval-center x-ext)
(interval-center y-ext))))))

#(define-markup-command (capsule layout props arg)
(markup?)
#:category graphic
#:properties ((thickness 1)
(font-size 0)
(x-padding 1)
(y-padding .4))
"
@cindex drawing capsule around text

Draw a capsule around @var{arg}. Use @code{thickness},
@code{x-padding}, @code{x-padding} and @code{font-size} properties to determine
line thickness and padding around the markup.

@lilypond[verbatim,quote]
\\markup {
\\capsule {
Hi
}
}
@end lilypond"

(let ((th (* (ly:output-def-lookup layout 'line-thickness)
thickness))
(pad-x (* (magstep font-size) x-padding))
(pad-y (* (magstep font-size) y-padding))
(m (interpret-markup layout props arg)))
(capsule-stencil m th pad-x pad-y)))

%%%% Defs end %%%%%%%%%%

%%%% Tests:
\markup { \italic "Default:" \capsule "Hi" }
\markuplist {
\vspace #1 \italic "With some overrides:" \vspace #.5
\override #'(font-size . 3)
\override #'(y-padding . 2)
\override #'(x-padding . 2)
\override #'(thickness . 5)
\with-color #(rgb-color 1 0.3 0.2)
\capsule "This is an encapsulated text"
}
</lilypond>

[[Category:Text]]

Encapsulated text - Revision history

Lemzwerg: New category

Lemzwerg at 22:52, 21 November 2025

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

Jean Abou Samra: Import snippet from LSR