Lemzwerg: New category

2025-11-21T23:23:50Z

New category

← Older revision		Revision as of 23:23, 21 November 2025
Line 148:		Line 148:
	[[Category:Automatic notation]]		[[Category:Automatic notation]]
	[[Category:Contemporary notation]]		[[Category:Contemporary notation]]
	[[Category:Specific notation]][[Category:Snippet]]		[[Category:Specific notation]]
			[[Category:Snippet]]

Lemzwerg at 22:47, 21 November 2025

2025-11-21T22:47:48Z

← Older revision		Revision as of 22:47, 21 November 2025
Line 148:		Line 148:
	[[Category:Automatic notation]]		[[Category:Automatic notation]]
	[[Category:Contemporary notation]]		[[Category:Contemporary notation]]
	[[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:48:31Z

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:48, 16 November 2025
Line 1:		Line 1:
	By default, LilyPond adds a slash to slashedGrace and acciaccatura only in the case of a single grace note, but not when dealing with a group of beamed grace notes. This function automatically adds slashes in those other cases.		By default, LilyPond adds a slash to slashedGrace and acciaccatura only in the case of a single grace note, but not when dealing with a group of beamed grace notes. This function automatically adds slashes in those other cases.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	% For the discussion thread of this function, see: http://lilypond.1069038.n5.nabble.com/Better-slashed-graces-td184292.html		% For the discussion thread of this function, see: http://lilypond.1069038.n5.nabble.com/Better-slashed-graces-td184292.html

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:46:22Z

Import snippet from LSR

New page

By default, LilyPond adds a slash to slashedGrace and acciaccatura only in the case of a single grace note, but not when dealing with a group of beamed grace notes. This function automatically adds slashes in those other cases.

<lilypond version="2.24.0">
% For the discussion thread of this function, see: http://lilypond.1069038.n5.nabble.com/Better-slashed-graces-td184292.html

%%%%%%%%%%%%%%%%%%%%%%%%% slash function %%%%%%%%%%%%%%%%%%%%%%%%

%% Approver's remark:
%% The trigonometric stuff may be simplified by the use of the
%% new functions like ly:length, ly:directed and ly:angle
%% available since 2.19.48

#(define (degrees->radians deg)
(* PI (/ deg 180.0)))

slash =
#(define-music-function (ang stem-fraction protrusion)
(number? number? number?)
(remove-grace-property 'Voice 'Stem 'direction)
#{
\once \override Stem.stencil =
#(lambda (grob)
(let* ((x-parent (ly:grob-parent grob X))
(is-rest? (ly:grob? (ly:grob-object x-parent 'rest)))
(beam (ly:grob-object grob 'beam))
(stil (ly:stem::print grob)))
(cond
(is-rest? empty-stencil)
((ly:grob? beam)
(let* ((refp (ly:grob-system grob))
(stem-y-ext (ly:grob-extent grob grob Y))
(stem-length (- (cdr stem-y-ext) (car stem-y-ext)))
(beam-X-pos (ly:grob-property beam 'X-positions))
(beam-Y-pos (ly:grob-property beam 'positions))
(beam-slope (/ (- (cdr beam-Y-pos) (car beam-Y-pos))
(- (cdr beam-X-pos) (car beam-X-pos))))
(beam-angle (atan beam-slope))
(dir (ly:grob-property grob 'direction))
(line-dy (* stem-length stem-fraction))
(line-dy-with-protrusions (if (= dir 1)
(+ (* 4 protrusion) beam-angle)
(- (* 4 protrusion) beam-angle)))
(ang (if (> beam-slope 0)
(if (= dir 1)
(+ (degrees->radians ang) (* beam-angle 0.7))
(degrees->radians ang))
(if (= dir 1)
(degrees->radians ang)
(- (degrees->radians ang) (* beam-angle 0.7)))))
(line-dx (/ line-dy-with-protrusions (tan ang)))
(protrusion-dx (/ protrusion (tan ang)))
(corr (if (= dir 1) (car stem-y-ext) (cdr stem-y-ext))))
(ly:stencil-add
stil
(grob-interpret-markup grob
(markup
#:translate
(cons (- protrusion-dx)
(+ corr
(* dir
(- stem-length (+ stem-fraction protrusion)))))
#:override '(thickness . 1.7)
#:draw-line
(cons line-dx
(* dir line-dy-with-protrusions)))))))
(else stil))))
#})

%%%%%%%%%%%%%%%%%%%%%%%%% making it automatic %%%%%%%%%%%%%%%%%%%%%%%%

startSlashedGraceMusic = {
\slash 40 1 0.5
\override Flag.stroke-style = #"grace"
}
stopSlashedGraceMusic = {
\revert Flag.stroke-style
}

startAcciaccaturaMusic = {
\slash 40 1 0.5
s1*0(
\override Flag.stroke-style = #"grace"
}
stopAcciaccaturaMusic = {
\revert Flag.stroke-style
s1*0)
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

{
\slashedGrace{d'8} c'1
\slashedGrace{d'8 e' d'} c'1
\slashedGrace{d8 e' d'} c'1
\slashedGrace{d8 e'' d'} c'1
\slashedGrace{d'8 e' d' f' g''} c'1
\slashedGrace{d8 e' d' f' g''} c'1
\slashedGrace{d''8 e'' d' f' g} c'1

\slashedGrace{\stemDown d'8} c'1
\slashedGrace{\stemDown d'8 e' d'} c'1
\slashedGrace{\stemDown d8 e' d'} c'1
\slashedGrace{\stemDown d8 e'' d'} c'1
\slashedGrace{\stemDown d'8 e' d' f' g''} c'1
\slashedGrace{\stemDown d8 e' d' f' g''} c'1
\slashedGrace{\stemDown d''8 e'' d' f' g} c'1
}

{
\slashedGrace{d'16} c'1
\slashedGrace{d'16 e' d'} c'1
\slashedGrace{d16 e' d'} c'1
\slashedGrace{d16 e'' d'} c'1
\slashedGrace{d'16 e' d' f' g''} c'1
\slashedGrace{d16 e' d' f' g''} c'1
\slashedGrace{d''16 e'' d' f' g} c'1

\slashedGrace{\stemDown d'16} c'1
\slashedGrace{\stemDown d'16 e' d'} c'1
\slashedGrace{\stemDown d16 e' d'} c'1
\slashedGrace{\stemDown d16 e'' d'} c'1
\slashedGrace{\stemDown d'16 e' d' f' g''} c'1
\slashedGrace{\stemDown d16 e' d' f' g''} c'1
\slashedGrace{\stemDown d''16 e'' d' f' g} c'1
}

{
\slashedGrace{d'32} c'1
\slashedGrace{d'32 e' d'} c'1
\slashedGrace{d32 e' d'} c'1
\slashedGrace{d32 e'' d'} c'1
\slashedGrace{d'32 e' d' f' g''} c'1
\slashedGrace{d32 e' d' f' g''} c'1
\slashedGrace{d''32 e'' d' f' g} c'1

\slashedGrace{\stemDown d'32} c'1
\slashedGrace{\stemDown d'32 e' d'} c'1
\slashedGrace{\stemDown d32 e' d'} c'1
\slashedGrace{\stemDown d32 e'' d'} c'1
\slashedGrace{\stemDown d'32 e' d' f' g''} c'1
\slashedGrace{\stemDown d32 e' d' f' g''} c'1
\slashedGrace{\stemDown d''32 e'' d' f' g} c'1
}
</lilypond>

[[Category:Rhythms]]
[[Category:Symbols and glyphs]]
[[Category:Automatic notation]]
[[Category:Contemporary notation]]
[[Category:Specific notation]]

Automatic slash for slashedGrace and acciaccatura - Revision history

Lemzwerg: New category

Lemzwerg at 22:47, 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