-%% Do not edit this file; it is auto-generated from input/new
+%% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
%% This file is in the public domain.
-%% Note: this file works from version 2.12.0
\version "2.13.1"
+
\header {
- lsrtags = "pitches,editorial-annotations,really-cool"
+ lsrtags = "pitches, editorial-annotations"
+
texidoc = "
-It is possible to color note heads depending on their pitch and/or their names:
-the function used in this example even makes it possible to distinguish enharmonics.
+It is possible to color note heads depending on their pitch and/or
+their names: the function used in this example even makes it possible
+to distinguish enharmonics.
+
"
doctitle = "Coloring notes depending on their pitch"
} % begin verbatim
(cons (ly:make-pitch 0 3 1/2) (x11-color 'blue))
(cons (ly:make-pitch 0 4 -1/2) (x11-color 'blue))
(cons (ly:make-pitch 0 5 1/2) (x11-color 'blue))
- (cons (ly:make-pitch 0 6 -1/2) (x11-color 'blue))
- ))
+ (cons (ly:make-pitch 0 6 -1/2) (x11-color 'blue))))
%Compare pitch and alteration (not octave).
#(define (pitch-equals? p1 p2)
#(define (color-notehead grob)
(pitch-to-color
- (ly:event-property (ly:grob-property grob 'cause) 'pitch)))
+ (ly:event-property (event-cause grob) 'pitch)))
\score {
\new Staff \relative c' {