Making noteheads look handwritten - Revision history

Lemzwerg: New category

2025-11-21T23:36:49Z

New category

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

	[[Category:Really cool]]		[[Category:Really cool]]
	[[Category:Symbols and glyphs]][[Category:Snippet]]		[[Category:Symbols and glyphs]]
			[[Category:Snippet]]

Lemzwerg at 22:55, 21 November 2025

2025-11-21T22:55:47Z

← Older revision		Revision as of 22:55, 21 November 2025
Line 35:		Line 35:

	[[Category:Really cool]]		[[Category:Really cool]]
	[[Category:Symbols and glyphs]]		[[Category:Symbols and glyphs]][[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:54:46Z

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:54, 16 November 2025
Line 1:		Line 1:
	Just for fun, here's a way of making hand-written noteheads in LilyPond. Points on a markup path are randomly jittered to form the notehead shapes.		Just for fun, here's a way of making hand-written noteheads in LilyPond. Points on a markup path are randomly jittered to form the notehead shapes.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	%%http://lsr.di.unimi.it/LSR/Item?id=859		%%http://lsr.di.unimi.it/LSR/Item?id=859

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:49:37Z

Import snippet from LSR

New page

Just for fun, here's a way of making hand-written noteheads in LilyPond. Points on a markup path are randomly jittered to form the notehead shapes.

<lilypond version="2.24.0">
%%http://lsr.di.unimi.it/LSR/Item?id=859

#(define rng (seed->random-state 1337))

#(define (make-circle-path r dev)
(let ((k (* r 0.5522847498))
(o (lambda () (* r dev (random:normal rng)))))
(list
(list 'moveto 0 r)
(list 'curveto k r r k r (o))
(list 'curveto r (- k) k (- r) (o) (- r))
(list 'curveto (- k) (- r) (- r) (- k) (- r) (o))
(list 'curveto (- r) k (- k) r 0 r))))

\new Staff \relative c' {
\override NoteHead.stencil =
#(lambda (grob)
(let ((fill (> (ly:grob-property grob 'duration-log) 1)))
(grob-interpret-markup grob
(markup #:rotate 45
#:scale '(1.3 . 0.7)
#:override `(filled . ,fill)
#:path 0.25 (make-circle-path 0.5 0.2)))))
\override NoteHead.stem-attachment = #'(0.8 . 0.1)
| c8 d8 e8 f8 g2
\revert NoteHead.stencil
\revert NoteHead.stem-attachment
| c,8 d8 e8 f8 g2
}
</lilypond>

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