- comment = "LilyPond (1.3.93) can't really do this yet, I guess"
-}
-
-
-% cpp: don't start on first column
- #(set! point-and-click line-column-location)
-
-%% cpp: don't start on first column
- #(define (grace-beam-space-function multiplicity)
- (* (if (<= multiplicity 3) 0.816 0.844) 0.8))
-
-%% cpp: don't start on first column
- #(define (make-text-checker 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
-}
-
-unSmallFont = {
- \property Voice.NoteHead \revert #'font-relative-size
- \property Voice.Stem \revert #'font-relative-size
- \property Voice.Stem \revert #'length
- \property Voice.Stem \revert #'beamed-lengths
- \property Voice.Stem \revert #'beamed-minimum-lengths
- \property Voice.Beam \revert #'font-relative-size
- \property Voice.TextScript \revert #'font-relative-size
- \property Voice.Fingering \revert #'font-relative-size
- \property Voice.Slur \revert #'font-relative-size
- \property Staff.Accidentals \revert #'font-relative-size
- \property Voice.Beam \revert #'space-function
- \property Score.PaperColumn \revert #'space-factor
- \property Score.PaperColumn \revert #'to-musical-spacing-factor