2011/9/24 David Nalesnik <[email protected]>
> Hi Harm,
>
> On Fri, Sep 23, 2011 at 5:52 PM, Thomas Morley <
> [email protected]> wrote:
>
>>
>>
>> 2011/9/24 Thomas Morley <[email protected]>
>>
>>>
>>> There might be another point of interest: How to reset?
>>>
>>> I'm aware it could be done with a new #(assoc-set! ... ) using default
>>> values.
>>>
>>
>> I was wrong: This doesn't work! Sorry!
>>
>
> Yes, if you set the 'padding value like this, it will apply to all tenuto
> marks in your file. If you reset it to another value, it will change the
> 'padding values of every tenuto to the new value. So, unfortunately, it's
> not like using \override and \revert.
>
> You could do something like this to "revert" to Lily's default:
>
> \version "2.14.2"
>
> #(assoc-set! (assoc-ref default-script-alist "tenuto") 'padding 0.75)
>
> {
> c''1_-
> \once \override Script #'padding = #0.2
> c''1_-
> c''1_-
> }
>
> I was hoping to be able to set 'padding to a procedure. But 'padding
> doesn't respond if set that way, as I noted on an earlier email of this
> thread. I wonder if I'm doing something wrong here -- can 'padding be set
> to a procedure somehow?
>
> David
>
Hi David,
(a) I did some very simple exercises on 'padding and procedures:
#(define (add a b)
(+ a b))
#(define sum
(lambda (x y)
(+ x y)))
\relative c' {
\once \override Script #'padding = #3
c'1--
\once \override Script #'padding = #(+ 1 2)
c1--
\once \override Script #'padding = #(add 1 2)
c1--
\once \override Script #'padding = #(sum 1 2)
c1--
\once \override Script #'padding = #((lambda (x y) (+ x y)) 1 2)
c1--
}
Seems to work.
(b)
Using my first idea creating a new script-alist, \set and \unset is
possible:
\version "2.14.2"
#(define my-script-alist
`(
("accent"
. (
(avoid-slur . around)
(padding . 0.20)
(script-stencil . (feta . ("sforzato" . "sforzato")))
(side-relative-direction . ,DOWN)))
("accentus"
. (
(script-stencil . (feta . ("uaccentus" . "uaccentus")))
(side-relative-direction . ,DOWN)
(avoid-slur . ignore)
(padding . 0.20)
(quantize-position . #t)
(script-priority . -100)
(direction . ,UP)))
("circulus"
. (
(script-stencil . (feta . ("circulus" . "circulus")))
(side-relative-direction . ,DOWN)
(avoid-slur . ignore)
(padding . 0.20)
(quantize-position . #t)
(script-priority . -100)
(direction . ,UP)))
("coda"
. (
(script-stencil . (feta . ("coda" . "coda")))
(padding . 0.20)
(avoid-slur . outside)
(direction . ,UP)))
("comma"
. (
(script-stencil . (feta . ("lcomma" . "rcomma")))
(quantize-position . #t)
(padding . 0.20)
(avoid-slur . ignore)
(direction . ,UP)))
("downbow"
. (
(script-stencil . (feta . ("downbow" . "downbow")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)
(script-priority . 150)))
("downmordent"
. (
(script-stencil . (feta . ("downmordent" . "downmordent")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("downprall"
. (
(script-stencil . (feta . ("downprall" . "downprall")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("espressivo"
. (
(avoid-slur . around)
(padding . 0.20)
(script-stencil . (feta . ("espr" . "espr")))
(side-relative-direction . ,DOWN)))
("fermata"
. (
(script-stencil . (feta . ("dfermata" . "ufermata")))
(padding . 0.20)
(avoid-slur . around)
(script-priority . 4000)
(direction . ,UP)))
("flageolet"
. (
(script-stencil . (feta . ("flageolet" . "flageolet")))
(padding . 0.20)
(avoid-slur . around) ;guessing?
(direction . ,UP)))
("halfopen"
. (
(avoid-slur . outside)
(padding . 0.20)
(script-stencil . (feta . ("halfopen" . "halfopen")))
(direction . ,UP)))
("ictus"
. (
(script-stencil . (feta . ("ictus" . "ictus")))
(side-relative-direction . ,DOWN)
(quantize-position . #t)
(avoid-slur . ignore)
(padding . 0.20)
(script-priority . -100)
(direction . ,DOWN)))
("lheel"
. (
(script-stencil . (feta . ("upedalheel" . "upedalheel")))
(padding . 0.20)
(avoid-slur . around) ;guessing?
(direction . ,DOWN)))
("lineprall"
. (
(script-stencil . (feta . ("lineprall" . "lineprall")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("longfermata"
. (
(script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("ltoe"
. (
(script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
(padding . 0.20)
(avoid-slur . around) ;guessing?
(direction . ,DOWN)))
("marcato"
. (
(script-stencil . (feta . ("dmarcato" . "umarcato")))
(padding . 0.20)
(avoid-slur . inside)
;;(staff-padding . ())
(quantize-position . #t)
(side-relative-direction . ,DOWN)))
("mordent"
. (
(script-stencil . (feta . ("mordent" . "mordent")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("open"
. (
(avoid-slur . outside)
(padding . 0.20)
(script-stencil . (feta . ("open" . "open")))
(direction . ,UP)))
("portato"
. (
(script-stencil . (feta . ("uportato" . "dportato")))
(avoid-slur . around)
(slur-padding . 0.3)
(padding . 0.45)
(side-relative-direction . ,DOWN)))
("prall"
. (
(script-stencil . (feta . ("prall" . "prall")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("pralldown"
. (
(script-stencil . (feta . ("pralldown" . "pralldown")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("prallmordent"
. (
(script-stencil . (feta . ("prallmordent" . "prallmordent")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("prallprall"
. (
(script-stencil . (feta . ("prallprall" . "prallprall")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("prallup"
. (
(script-stencil . (feta . ("prallup" . "prallup")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("reverseturn"
. (
(script-stencil . (feta . ("reverseturn" . "reverseturn")))
(padding . 0.20)
(avoid-slur . inside)
(direction . ,UP)))
("rheel"
. (
(script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
(padding . 0.20)
(avoid-slur . around) ;guessing?
(direction . ,UP)))
("rtoe"
. (
(script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
(padding . 0.20)
(avoid-slur . around) ;guessing?
(direction . ,UP)))
("segno"
. (
(script-stencil . (feta . ("segno" . "segno")))
(padding . 0.20)
(avoid-slur . outside)
(direction . ,UP)))
("semicirculus"
. (
(script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
(side-relative-direction . ,DOWN)
(quantize-position . #t)
(avoid-slur . ignore)
(padding . 0.20)
(script-priority . -100)
(direction . ,UP)))
("shortfermata"
. (
(script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("signumcongruentiae"
. (
(script-stencil . (feta . ("dsignumcongruentiae" .
"usignumcongruentiae")))
(padding . 0.20)
(avoid-slur . outside)
(direction . ,UP)))
("snappizzicato"
. (
(script-stencil . (feta . ("snappizzicato" . "snappizzicato")))
(padding . 0.20)
(avoid-slur . outside)
(direction . ,UP)))
("staccatissimo"
. (
(avoid-slur . inside)
(quantize-position . #t)
(script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
(padding . 0.20)
(side-relative-direction . ,DOWN)))
("staccato"
. (
(script-stencil . (feta . ("staccato" . "staccato")))
(side-relative-direction . ,DOWN)
(quantize-position . #t)
(avoid-slur . inside)
(toward-stem-shift . 0.5)
(padding . 0.20)
(script-priority . -100)))
("stopped"
. (
(script-stencil . (feta . ("stopped" . "stopped")))
(avoid-slur . inside)
(padding . 0.20)
(direction . ,UP)))
("tenuto"
. (
(script-stencil . (feta . ("tenuto" . "tenuto")))
(quantize-position . #t)
(avoid-slur . inside)
(color . (1 0 0))
(font-size . 4)
(padding . 1)
(side-relative-direction . ,DOWN)))
("thumb"
. (
(script-stencil . (feta . ("thumb" . "thumb")))
(avoid-slur . around)
(padding . 0.50)
(direction . ,UP)
(slur-padding . 0.2)
(staff-padding . 0.5)))
("trill"
. (
(script-stencil . (feta . ("trill" . "trill")))
(direction . ,UP)
(padding . 0.20)
(avoid-slur . outside)
(script-priority . 2000)))
("turn"
. (
(script-stencil . (feta . ("turn" . "turn")))
(avoid-slur . inside)
(padding . 0.20)
(direction . ,UP)))
("upbow"
. (
(script-stencil . (feta . ("upbow" . "upbow")))
(avoid-slur . around)
(padding . 0.20)
(direction . ,UP)
(script-priority . 150)))
("upmordent"
. (
(script-stencil . (feta . ("upmordent" . "upmordent")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("upprall"
. (
(script-stencil . (feta . ("upprall" . "upprall")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
("varcoda"
. (
(script-stencil . (feta . ("varcoda" . "varcoda")))
(padding . 0.20)
(avoid-slur . outside)
(direction . ,UP)))
("varcomma"
. (
(script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
(quantize-position . #t)
(padding . 0.20)
(avoid-slur . ignore)
(direction . ,UP)))
("verylongfermata"
. (
(script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
(padding . 0.20)
(avoid-slur . around)
(direction . ,UP)))
))
%------------------------- Test
------------------------------------------------
\relative c' {
\set scriptDefinitions = #my-script-alist
c'2-. c-| c2-- c-^
\unset scriptDefinitions
c--
}
hth,
Harm
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
