Simon and Kieran: Thanks for your useful suggestions.
Joe Srednicki -----Original Message----- From: Kieren MacMillan [mailto:kieren_macmil...@sympatico.ca] Sent: Friday, February 19, 2016 1:40 PM To: Simon Albrecht <simon.albre...@mail.de> Cc: Joseph N. Srednicki <jnsredni...@verizon.net>; Lilypond-User Mailing List <lilypond-user@gnu.org> Subject: Re: Font size of pedal marks Hi Simon (et al.), > However this will also change numerous other objects like > articulations and fermatas +1 > so I’d globally redefine them like > rheel = -\tweak font-size -3 \rheel If you have more than one tweak, you can also pack them into a single/general setting, without redefining them individually: %%%% SNIPPET BEGINS \version "2.19.36" #(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-script-settings '( ("rheel" . ((font-size . -3))) ("lheel" . ((font-size . 4))) ("staccato" . ((padding . 12))) ("tenuto" . ((X-offset . -2))) )) \score { \new Staff { c''4\rheel 4\lheel 4\staccato 4\tenuto } \layout { \context { \Score \override Script.before-line-breaking = #(custom-script-tweaks my-script-settings) } } } %%%% SNIPPET ENDS Hope this helps! Kieren. ________________________________ Kieren MacMillan, composer ‣ website: www.kierenmacmillan.info ‣ email: i...@kierenmacmillan.info _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
