Re: Dot sizes

[Paul Hodges]

That's actually more like what I was expecting!

I will be having more (indirect) discussions.  For instance, I'm 
required to make bar numbers italic; and I've been asked to place all 
tuplet brackets above regardless of stem directions - but  doing this 
leads to loads of clashes with slurs.  Also, I've been asked to make all 
tuplet brackets horizontal (beams already are).  So I may well be 
revisiting this more general form of expression (just need a little 
while to get my head around it - I've never been into Lisp-type 
syntax!).

But meanwhile, I'm puzzling over the error in your snippet: "Unbound 
variable: ly:grob-properties"...

Thanks,
Paul

On 27/09/2021 14:08:53, "Kieren MacMillan" <kieren@kierenmacmillan.info> 
wrote:

>Hi Paul,
>
>Lukas’s solution
>>  Probably the easiest way would be to re-define the "-." command:
>
>is nice and simple — if that’s the only tweak you have, then you should 
>probably use it.
>
>If, on the other hand, you have lots of tweaks for different types of scripts, 
>then here’s a more “centralized” solution:
>
>%%%  SNIPPET BEGINS
>#(define ((custom-script-tweaks ls) grob)
>   (let* ((type (ly:prob-property (assoc-ref (ly:grob-properties grob)
>'cause) 'articulation-type))
>          (tweaks (assoc-ref ls type)))
>     (if tweaks
>         (for-each (lambda (x) (ly:grob-set-property! grob (car x)
>(cdr x))) tweaks)
>         '())))
>
>#(define my-scripts '(
>    ("staccato" . ((font-size . -5)))
>    ("fermata" . ((padding . 5)))
>    ))
>
>\layout {
>   \context {
>     \Score
>     \override Script.before-line-breaking = #(custom-script-tweaks my-scripts)
>   }
>}
>
>\score
>{
>       {
>               c'4-. c2\fermata c4\accent
>       }
>}
>%%%  SNIPPET ENDS
>
>Hope that helps!
>Kieren.