- (lambda (elt)
- ;; huh, string-match undefined?
- ;; (string-match text (ly-get-grob-property elt 'text))
- (equal? text (ly-get-grob-property elt 'text))
- ))
+ (lambda (elt) (equal? text (ly-get-grob-property elt 'text))))
+
+% complete and move to propert.ly?
+smallFont = {
+ \property Score.PaperColumn \override #'space-factor = #0.6
+ \property Score.PaperColumn \override #'to-musical-spacing-factor = #0.04
+ \property Voice.NoteHead \override #'font-relative-size = #-1
+ \property Voice.Stem \override #'font-relative-size = #-1
+ \property Voice.Stem \override #'length = #6
+ \property Voice.Stem \override #'beamed-lengths =
+ #(map (lambda (x) (* 1.25 x)) '(0.0 2.5 2.0 1.5))
+ \property Voice.Stem \override #'beamed-minimum-lengths =
+ #(map (lambda (x) (* 1.25 x)) '(0.0 1.5 1.25 1.0))
+
+ \property Voice.Beam \override #'font-relative-size = #-1
+ \property Voice.TextScript \override #'font-relative-size = #0
+ \property Voice.Fingering \override #'font-relative-size = #-4
+ \property Voice.Slur \override #'font-relative-size = #-1
+ \property Staff.Accidentals \override #'font-relative-size = #-1
+ \property Voice.Beam \override #'space-function = #grace-beam-space-function
+}