[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user
Subject:    scheme problems
From:       Werner LEMBERG <wl () gnu ! org>
Date:       2004-07-30 23:39:56
Message-ID: 20040731.013956.193683690.wl () gnu ! org
[Download RAW message or body]


[lilypond 2.2.5]

I want to have a \Fermata macro which puts a fermata over a rest,
moving it down by a certain amount (basically, this is to work around
a bug in lilypond: The position of a fermata over a rest is far too
high).  While I can come up with scheme code to create a RestEvent, I
wasn't able to find a way to set the extra-offset property at the same
time:

  #(define (rest-fermata)
    (make-music 'TextScriptEvent
                'text (make-musicglyph-markup "scripts-ufermata")))

  Fermata = #(rest-fermata)


  ...

  R1\Fermata

I tried

  #(define (rest-fermata)
    (make-music 'OverrideProperty
                'symbol 'TextScript
                'grob-property 'padding
                'grob-value -2
                'once #t)
    (make-music 'TextScriptEvent
                'text (make-musicglyph-markup "scripts-ufermata")))

but this has no effect.

Please advise.


    Werner



[prev in list] [next in list] [prev in thread] [next in thread]