From 7b3d43f2b604e8ccdc24315fa0c094e04dcfcbaf Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 16 Jul 2015 17:11:43 +0200 Subject: Run scripts/auxiliar/makelsr.py --- .../changing-properties-for-individual-grobs.ly | 36 +++++++++++----------- 1 file changed, 18 insertions(+), 18 deletions(-) (limited to 'Documentation/snippets') diff --git a/Documentation/snippets/changing-properties-for-individual-grobs.ly b/Documentation/snippets/changing-properties-for-individual-grobs.ly index b9aefd1fc9..bce3cd9c92 100644 --- a/Documentation/snippets/changing-properties-for-individual-grobs.ly +++ b/Documentation/snippets/changing-properties-for-individual-grobs.ly @@ -1,9 +1,10 @@ -%% DO NOT EDIT this file manually; it is automatically -%% generated from LSR http://lsr.di.unimi.it -%% Make any changes in LSR itself, or in Documentation/snippets/new/ , -%% and then run scripts/auxiliar/makelsr.py -%% -%% This file is in the public domain. +% DO NOT EDIT this file manually; it is automatically +% generated from Documentation/snippets/new +% Make any changes in Documentation/snippets/new/ +% and then run scripts/auxiliar/makelsr.py +% +% This file is in the public domain. +%% Note: this file works from version 2.19.24 \version "2.19.24" \header { @@ -19,20 +20,19 @@ arguments. } % begin verbatim #(define (mc-squared grob grob-origin context) - (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 - (make-lower-markup 0.5 - (case sp - ((-5) "m") - ((-3) "c ") - ((-2) (make-smaller-markup (make-bold-markup "2"))) - (else "bla"))))))))) + (let ((sp (ly:grob-property grob 'staff-position))) + (ly:grob-set-property! + grob 'stencil + (grob-interpret-markup grob + #{ \markup \lower #0.5 + #(case sp + ((-5) "m") + ((-3) "c ") + ((-2) #{ \markup \teeny \bold 2 #}) + (else "bla")) #})))) \relative c' { 2 - \applyOutput Voice #mc-squared + \applyOutput Voice.NoteHead #mc-squared 2 } -- cgit v1.2.3