lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: placement sostenuto


From: Thomas Morley
Subject: Re: placement sostenuto
Date: Sat, 24 Sep 2011 02:28:46 +0200

2011/9/24 David Nalesnik <address@hidden>
Hi Harm,

On Fri, Sep 23, 2011 at 5:52 PM, Thomas Morley <address@hidden> wrote:


2011/9/24 Thomas Morley <address@hidden>

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
 

reply via email to

[Prev in Thread] Current Thread [Next in Thread]