X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fcoloring-notes-depending-on-their-pitch.ly;h=cab9e244899b1d53bf30bba7610f20172ea8bb61;hb=3eb1e37e2e0b3966142cd04b85e30ab882308612;hp=14a5aa987dec6c65a6a477909673b8cd8b4cebe7;hpb=76324bbc6789847e80b4bbdd4e8246d6e4eae8d1;p=lilypond.git

diff --git a/input/lsr/coloring-notes-depending-on-their-pitch.ly b/input/lsr/coloring-notes-depending-on-their-pitch.ly
index 14a5aa987d..cab9e24489 100644
--- a/input/lsr/coloring-notes-depending-on-their-pitch.ly
+++ b/input/lsr/coloring-notes-depending-on-their-pitch.ly
@@ -1,11 +1,15 @@
-%% 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.
-\version "2.11.62"
+\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
@@ -28,8 +32,7 @@ the function used in this example even makes it possible to distinguish enharmon
     (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)
@@ -44,7 +47,7 @@ the function used in this example even makes it possible to distinguish enharmon
 
 #(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' {