Eyeglasses as markup - Revision history

Lemzwerg: New category

2025-11-21T23:22:36Z

New category

← Older revision		Revision as of 23:22, 21 November 2025
Line 50:		Line 50:
	[[Category:Editorial annotations]]		[[Category:Editorial annotations]]
	[[Category:Symbols and glyphs]]		[[Category:Symbols and glyphs]]
	[[Category:Really cool]][[Category:Snippet]]		[[Category:Really cool]]
			[[Category:Snippet]]

Lemzwerg at 22:52, 21 November 2025

2025-11-21T22:52:43Z

← Older revision		Revision as of 22:52, 21 November 2025
Line 50:		Line 50:
	[[Category:Editorial annotations]]		[[Category:Editorial annotations]]
	[[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:49:20Z

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:49, 16 November 2025
Line 3:		Line 3:
	Credit: Pierre Perol-Schneider on March 2015		Credit: Pierre Perol-Schneider on March 2015

	<lilypond version="2.24.0">		<lilypond version="2.24">
	altEyeglassesMarkup =		altEyeglassesMarkup =
	\markup		\markup

Jean Abou Samra: Postscript version now removed

2025-10-26T23:32:11Z

Postscript version now removed

← Older revision		Revision as of 23:32, 26 October 2025
Line 1:		Line 1:
	The <code>\eyeglasses</code> markup command displays eyeglasses, strongly indicating that one should look at a conductor. This snippet defines an <code>\altEyeglasses</code> command with a different style~~. Unlike [[Eyeglasses as markup (postscript)]], this command supports SVG output~~.		The <code>\eyeglasses</code> markup command displays eyeglasses, strongly indicating that one should look at a conductor. This snippet defines an <code>\altEyeglasses</code> command with a different style.

	Credit: Pierre Perol-Schneider on March 2015		Credit: Pierre Perol-Schneider on March 2015

Jean Abou Samra: Jean Abou Samra moved page Eyeglasses as markup (path) to Eyeglasses as markup: We don't want the postscript version of this, the SVG version is strictly superior

2025-10-26T23:30:21Z

Jean Abou Samra moved page Eyeglasses as markup (path) to Eyeglasses as markup: We don't want the postscript version of this, the SVG version is strictly superior

← Older revision	Revision as of 23:30, 26 October 2025
(No difference)

Jean Abou Samra: General improvements

2025-10-26T23:29:20Z

General improvements

← Older revision		Revision as of 23:29, 26 October 2025
Line 1:		Line 1:
	~~To insert alternative~~ eyeglasses ~~into a score (~~strongly indicating that one should look at ~~the~~ conductor~~), one has to insert self-defined path~~ code as a markup.		The <code>\eyeglasses</code> markup command displays eyeglasses, strongly indicating that one should look at a conductor. This snippet defines an <code>\altEyeglasses</code> command with a different style. Unlike [[Eyeglasses as markup (postscript)]], this command supports SVG output.

	~~myEyeglasses support svg ouput.~~		Credit: Pierre Perol-Schneider on March 2015

	<lilypond version="2.24.0" ~~full~~>		<lilypond version="2.24.0">
	~~%% http://lsr.di.unimi.it/LSR/Item?id~~=~~982~~		altEyeglassesMarkup =
	~~%% see also http://lsr.di.unimi.it/LSR/Item?id=435~~		\markup
			\override #'(line-cap-style . butt)
	~~% Credit: PPS on March 2015~~		\path #0.15
			#'((moveto -3.57 1.80)
	\~~paper { tagline =~~ #~~#f }~~

	#~~(define my-eyeglassespath~~
	'((moveto -3.57 1.80)
	(curveto -3.65 1.90 -3.55 2.22 -3.33 2.22)		(curveto -3.65 1.90 -3.55 2.22 -3.33 2.22)
	(curveto -3.17 2.22 -3.15 2.15 -3.10 2.10)		(curveto -3.17 2.22 -3.15 2.15 -3.10 2.10)
Line 32:		Line 28:
	(moveto 0.12 1.68)		(moveto 0.12 1.68)
	(lineto -1.10 2.69)		(lineto -1.10 2.69)
	(curveto -1.50 3.05 -1.80 2.75 -1.71 2.45~~)))~~		(curveto -1.50 3.05 -1.80 2.75 -1.71 2.45))

	~~#(define-markup-command (myEyeglasses layout props)~~
	()
	~~"Prints out alternative eyeglasses, indicating strongly to look at the conductor."~~
	~~(interpret-markup layout props~~
	#{
	~~\markup~~
	~~\override #'(line-cap-style . butt)~~
	~~\path #0.15~~
	~~\my-eyeglassespath~~
	#}))

	%%~~%% Example:~~		% Turn it into an actual markup command rather than
			% variable set to a markup object.
			#(define-markup-command (altEyeglasses layout props) ()
			(interpret-markup layout props altEyeglassesMarkup))

	\markup~~\italic~~ "Standard eyeglasses"		\markup "Standard eyeglasses"
	~~%% as defined in define-markup-commands.scm~~
	\relative c'' {		\relative c'' {
	c2^\markup\eyeglasses		c2^\markup\eyeglasses
Line 54:		Line 41:
	}		}

	\markup~~\italic~~ "Alternative eyeglasses"		\markup "Alternative eyeglasses"
	\relative c'' {		\relative c'' {
	c2^\markup\~~myEyeglasses~~		c2^\markup\altEyeglasses
	a2_\markup\~~myEyeglasses~~		a2_\markup\altEyeglasses
	}		}
	</lilypond>		</lilypond>

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:48:49Z

Import snippet from LSR

New page

To insert alternative eyeglasses into a score (strongly indicating that one should look at the conductor), one has to insert self-defined path code as a markup.

myEyeglasses support svg ouput.

<lilypond version="2.24.0" full>
%% http://lsr.di.unimi.it/LSR/Item?id=982
%% see also http://lsr.di.unimi.it/LSR/Item?id=435

% Credit: PPS on March 2015

\paper { tagline = ##f }

#(define my-eyeglassespath
'((moveto -3.57 1.80)
(curveto -3.65 1.90 -3.55 2.22 -3.33 2.22)
(curveto -3.17 2.22 -3.15 2.15 -3.10 2.10)
(lineto -2.02 0.94)
(moveto -2.06 0.65)
(curveto -2.06 1.00 -1.75 1.28 -1.45 1.28)
(curveto -1.10 1.28 -1.07 1.05 -1.07 0.90)
(curveto -1.07 0.62 -1.30 0.27 -1.70 0.27)
(curveto -1.85 0.25 -2.06 0.40 -2.06 0.65)
(closepath)
(moveto -1.14 1.20)
(curveto -1.00 1.44 -0.72 1.52 -0.57 1.35)
(moveto -0.61 1.05)
(curveto -0.61 1.42 -0.30 1.68 0.00 1.68)
(curveto 0.22 1.68 0.37 1.52 0.37 1.28)
(curveto 0.37 0.96 0.06 0.65 -0.25 0.64)
(curveto -0.30 0.64 -0.61 0.65 -0.61 1.05)
(closepath)
(moveto 0.12 1.68)
(lineto -1.10 2.69)
(curveto -1.50 3.05 -1.80 2.75 -1.71 2.45)))

#(define-markup-command (myEyeglasses layout props)
()
"Prints out alternative eyeglasses, indicating strongly to look at the conductor."
(interpret-markup layout props
#{
\markup
\override #'(line-cap-style . butt)
\path #0.15
\my-eyeglassespath
#}))

%%%% Example:

\markup\italic "Standard eyeglasses"
%% as defined in define-markup-commands.scm
\relative c'' {
c2^\markup\eyeglasses
a2_\markup\eyeglasses
}

\markup\italic "Alternative eyeglasses"
\relative c'' {
c2^\markup\myEyeglasses
a2_\markup\myEyeglasses
}
</lilypond>

[[Category:Editorial annotations]]
[[Category:Symbols and glyphs]]
[[Category:Really cool]]