- \property Voice.NoteHead \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 #'space-function = #grace-beam-space-function
- \property Voice.fontSize = #-2
- \property Voice.Stem \override #'no-stem-extend = ##t