Fancy glissando - Revision history

Lemzwerg: Lemzwerg moved page Fancy Glissando to Fancy glissando without leaving a redirect: Only the first letter of a title should be uppercase

2025-11-24T05:31:17Z

Lemzwerg moved page Fancy Glissando to Fancy glissando without leaving a redirect: Only the first letter of a title should be uppercase

← Older revision	Revision as of 05:31, 24 November 2025
(No difference)

Lemzwerg: New category

2025-11-21T23:35:44Z

New category

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

	[[Category:Expressive marks]]		[[Category:Expressive marks]]
	[[Category:Scheme]][[Category:Snippet]]		[[Category:Scheme]]
			[[Category:Snippet]]

Lemzwerg at 22:52, 21 November 2025

2025-11-21T22:52:46Z

← Older revision		Revision as of 22:52, 21 November 2025
Line 153:		Line 153:

	[[Category:Expressive marks]]		[[Category:Expressive marks]]
	[[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:55: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:55, 16 November 2025
Line 2:		Line 2:
	For convenience a function to modify the length of the overall glissando is provided as well.		For convenience a function to modify the length of the overall glissando is provided as well.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	lengthen-gliss =		lengthen-gliss =
	#(define-music-function (nmbr)(number?)		#(define-music-function (nmbr)(number?)

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:40:50Z

Import snippet from LSR

New page

To print a glissando with turning points and/or curves you may want to use the here defined functionality.<br />
For convenience a function to modify the length of the overall glissando is provided as well.

<lilypond version="2.24.0">
lengthen-gliss =
#(define-music-function (nmbr)(number?)
#{
\once \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
\once \override Glissando.minimum-length = #nmbr
#})

fancy-gliss =
#(define-music-function (pts-list)(list?)
#{
\once \override Glissando.after-line-breaking =
#(lambda (grob)
(let ((stil (ly:line-spanner::print grob)))
(if (ly:stencil? stil)
(let*
((left-bound-info (ly:grob-property grob 'left-bound-info))
(left-bound (ly:spanner-bound grob LEFT))
(y-off (assoc-get 'Y left-bound-info))
(padding (assoc-get 'padding left-bound-info))
(note-column (ly:grob-parent left-bound X))
(note-heads (ly:grob-object note-column 'note-heads))
(ext-X
(if (null? note-heads)
'(0 . 0)
(ly:relative-group-extent note-heads grob X)))
(dot-column (ly:note-column-dot-column note-column))
(dots
(if (null? dot-column)
'()
(ly:grob-object dot-column 'dots)))
(dots-ext-X
(if (null? dots)
'(0 . 0)
(ly:relative-group-extent dots grob X)))
(factor
(/ (interval-length (ly:stencil-extent stil X))
(car (take-right (last pts-list) 2))))
(new-stil
(make-connected-path-stencil
(map
(lambda (e)
(cond ((= (length e) 2)
(cons (* (car e) factor) (cdr e)))
((= (length e) 6)
(list
(* (car e) factor)
(cadr e)
(* (third e) factor)
(fourth e)
(* (fifth e) factor)
(sixth e)))
(else
(ly:error
"Some element(s) of the given list do not fit"))))
pts-list)
(layout-line-thickness grob) ;line-width
1 ;scaling
1 ;scaling
#f
#f)))
(ly:grob-set-property! grob 'stencil
(ly:stencil-translate
new-stil
(cons (+ (interval-length ext-X)
(interval-length dots-ext-X)
padding)
y-off))))
(begin
(ly:warning
"Cannot find stencil. Please set 'minimum-length accordingly")
#f))))
#})

%% comment me
%#(display "\n\tLimitations:
%\t-Does not work with line-break
%\t-dotted notes with glissando may return a warning for unknown reasons,
%\t strange things may happen, if contexts die prematurely")

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% EXAMPLE
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\paper { indent = 28 }

music = <<
\new Staff \with { instrumentName = "fancy-gliss " }
\relative c' {
\set Score.measureBarType = #""
%% If spacing is very tight Glissando sometimes is omitted.
%% Use 'lengthen-gliss' with an apropiate value in this case.
%\lengthen-gliss #10
\override Glissando.cross-staff = ##t
\fancy-gliss
#'(
(1 3)
(2 -10)
(3 3)
(4 1)
(5 3.5)
(6 0)
(7 0 8 5 12 0)
)
f1\glissando
f1
}

\new Staff \with { instrumentName = "skipping a column" }
\relative c' {
%\lengthen-gliss #10
\fancy-gliss
#'(
(1 3)
(2 0)
(3 3)
(4 1)
(5 3.5)
(6 0)
(7 0 8 5 12 0))
f1.
\glissando
s1
f1
}

\new Staff \with { instrumentName = "control-staff " }
\relative c' { a'1 a1 a1 a1 }
>>

%{
\score {
\transpose c b \music
%% uncomment to let happen very tight spacing happen, use 'lengthen-gliss' then.
% \layout {
% line-width = 10
% }
}
%}

\score {
\music
\layout {
ragged-right = ##f
}
}

{ R1 }
</lilypond>

[[Category:Expressive marks]]
[[Category:Scheme]]