Skew markup with a given angle - Revision history

Lemzwerg: Lemzwerg moved page Skew Markup with a given angle to Skew markup with a given angle without leaving a redirect: Only the first letter of a title should be uppercase

2025-11-24T05:46:31Z

Lemzwerg moved page Skew Markup with a given angle to Skew markup with a given angle without leaving a redirect: Only the first letter of a title should be uppercase

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

Lemzwerg: New category

2025-11-21T23:33:54Z

New category

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

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

Lemzwerg at 23:00, 21 November 2025

2025-11-21T23:00:26Z

← Older revision		Revision as of 23:00, 21 November 2025
Line 113:		Line 113:
	</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:52:02Z

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:52, 16 November 2025
Line 3:		Line 3:
	A boolean parameter decides if the orginal height should be preserved		A boolean parameter decides if the orginal height should be preserved

	<lilypond version="2.24.0" full>		<lilypond version="2.24" full>
	%% this is a more sophisticated version of LSR 1166		%% this is a more sophisticated version of LSR 1166
	%% thanks to Arnold from the German forum		%% thanks to Arnold from the German forum

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:47:04Z

Import snippet from LSR

New page

This is a more sophisticated and versatile version of LSR 1166<br />
Now the skewing angle is an input parameter for the procedure.<br />
A boolean parameter decides if the orginal height should be preserved

<lilypond version="2.24.0" full>
%% this is a more sophisticated version of LSR 1166
%% thanks to Arnold from the German forum
%% https://lilypondforum.de/index.php/topic,1216.0.html

\paper { tagline = #f }

%{
% LSR workaround:
#(set! paper-alist (cons '("snippet" . (cons (* 170 mm) (* 75 mm))) paper-alist))
\paper {
#(set-paper-size "snippet")
tagline = ##f
#(include-special-characters)
indent = #0
}
%}

#(define-markup-command (skew layout props arg ang type)
;; skewes the input markup at a certain angle, stencil vanishes at 90 degrees
;; takes three arguments
;; arg: markup to skew
;; ang: skewing angle degrees
;; type: true/false
;; if true the original height is preserved, otherwise it decreases with cos ang
(markup? number? boolean?)
(let* ((deg-rad-factor (/ PI 180))
(par type)
(half-ang (* 0.5 ang))
(sin-part (sin (* deg-rad-factor half-ang)))
(cos-part (cos (* deg-rad-factor half-ang)))
(px (- cos-part sin-part))
(py (+ cos-part sin-part))
; Overall Matrix: xx = 1.0 xy
; yx = 0.0 yy
(xy (if par (tan (* deg-rad-factor ang))
(sin (* deg-rad-factor ang))))
(yy (if par 1.0 (cos (* deg-rad-factor ang))))
; input markup's stencil and extent
(stil (interpret-markup layout props arg))
(ext-x (ly:stencil-extent stil X))
(ext-y (ly:stencil-extent stil Y))
(xo1 (car ext-x))
(xo2 (cdr ext-x))
(yo1 (car ext-y))
(yo2 (cdr ext-y))
; four edge points transformed by that matrix
(xp1 (+ xo1 (* xy yo1)))
(yp13 (* yy yo1))
(xp2 (+ xo1 (* xy yo2)))
(yp24 (* yy yo2))
(xp3 (+ xo2 (* xy yo1)))
(xp4 (+ xo2 (* xy yo2)))
; new extent
(xmin (min xp1 xp2 xp3 xp4))
(xmax (max xp1 xp2 xp3 xp4))
(ymin (min yp13 yp24))
(ymax (max yp13 yp24))
(stil-2
(if par (ly:stencil-scale stil 1.0 (/ 1.0 (cos (* deg-rad-factor ang)))) stil))
(stil-3 (ly:stencil-rotate-absolute stil-2 45.0 0.0 0.0))
(stil-4 (ly:stencil-scale stil-3 px py))
(stil-5 (ly:stencil-rotate-absolute stil-4 (- -45.0 half-ang) 0.0 0.0)))
; (write-me "degrad " deg-rad-factor)
; (write-me "180/PI " (/ PI 180))
(ly:stencil-outline stil-5
(make-filled-box-stencil (cons xmin xmax) (cons ymin ymax)))))

hello = \markup \override #'(box-padding . 0.0) \with-color #darkgreen \box
\with-color #black \fontsize #6 "Hello world!"

\markup \line {
\left-column {
"Text"
\vspace #.2
\hello
}
\left-column {
"Text skewed 45 deg ##t"
\vspace #.2
\skew \hello #45 ##t
}
\left-column {
"Text skewed 45 deg ##f"
\vspace #.2
\skew \hello #45 ##f
}
}

\markup \vspace #1

\markup \line {
\left-column {
"Text"
\vspace #.2
\hello
}
\left-column {
"Text skewed -70 deg ##t"
\vspace #.2
\skew \hello #-70 ##t
}
\left-column {
"Text skewed -30 deg ##f"
\vspace #.2
\skew \hello #-30 ##f
}
}
</lilypond>

[[Category:Text]]