LSR: Update.

[lilypond.git] / input / lsr / changing-properties-for-individual-grobs.ly

diff --git a/input/lsr/changing-properties-for-individual-grobs.ly b/input/lsr/changing-properties-for-individual-grobs.ly
index 129c8fc9b4970ddfa111395dcb37a6d3d38eb455..b58c52be20e49c2b2a805d1e6394cabe3200e9ce 100644 (file)
--- a/input/lsr/changing-properties-for-individual-grobs.ly
+++ b/input/lsr/changing-properties-for-individual-grobs.ly
@@ -1,26 +1,22 @@
-%% 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.12.0"
+\version "2.12.3"
 
 \header {
   lsrtags = "tweaks-and-overrides"
 
   texidoc = "
 The @code{\\applyOutput} command allows the tuning of any layout
-object, in any context.  It requires a Scheme function with three
-arguments."
+object, in any context. It requires a Scheme function with three
+arguments.
 
+"
   doctitle = "Changing properties for individual grobs"
 } % begin verbatim
 
-
 #(define (mc-squared grob grob-origin context)
-  (let*
-    (
-      (ifs (ly:grob-interfaces grob))
-      (sp (ly:grob-property grob 'staff-position))
-    )
-    (if (memq 'note-head-interface ifs)
+  (let ((sp (ly:grob-property grob 'staff-position)))
+    (if (grob::has-interface grob 'note-head-interface)
       (begin
         (ly:grob-set-property! grob 'stencil
           (grob-interpret-markup grob
@@ -29,9 +25,7 @@ arguments."
                 ((-5) "m")
                 ((-3) "c ")
                 ((-2) (make-smaller-markup (make-bold-markup "2")))
-                (else "bla")
-                ))))
-        ))))
+                (else "bla")))))))))
 
 \relative c' {
   <d f g b>2