ly/grace-init.ly

   1
   2
   3  #(define (grace-beam-space-function multiplicity)
   4          (* (if (<= multiplicity 3) 0.816 0.844) 0.8))
   5
   6
   7  #(define (make-text-checker text)
   8   (lambda (elt) (equal? text (ly-get-grob-property elt 'text))))
   9
  10
  11 startGraceMusic = {
  12
  13 %{
  14 from GraceContext
  15         Stem \override  #'flag-style = #"grace"
  16         Stem \override  #'stem-length = #6.0
  17         Stem \override  #'direction = #1
  18
  19         NoteHead \override #'font-relative-size = #-1
  20         Stem \override #'font-relative-size = #-1
  21         Stem \override #'stem-shorten = #'(0)
  22         Beam \override #'font-relative-size = #-1
  23         TextScript \override #'font-relative-size = #-1
  24         Slur \override #'font-relative-size = #-1
  25         Accidentals \override #'font-relative-size = #-1
  26         Beam \override #'thickness = #0.3
  27         Beam \override #'space-function = #(lambda (x) 0.5)
  28
  29         Stem \override #'lengths = #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
  30         Stem \override #'beamed-lengths =
  31                 #'(0.0 2.5 2.0 1.5)
  32         Stem \override #'beamed-minimum-lengths
  33                  = #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
  34 %}
  35
  36
  37     \property Voice.NoteHead \override #'font-relative-size = #-1
  38     \property Voice.Stem \override #'length = #6
  39     \property Voice.Stem \override #'beamed-lengths =
  40         #(map (lambda (x) (* 1.25 x)) '(0.0 2.5 2.0 1.5))
  41     \property Voice.Stem \override #'beamed-minimum-lengths =
  42         #(map (lambda (x) (* 1.25 x)) '(0.0 1.5 1.25 1.0))
  43     \property Voice.Beam \override #'space-function = #grace-beam-space-function
  44     \property Voice.fontSize = #-2
  45     \property Voice.Stem \override #'no-stem-extend = ##t
  46
  47 %    \property Voice.Stem \override #'flag-style  = #"grace"
  48 }
  49
  50 stopGraceMusic = {
  51 % \property Voice.Stem \revert #'flag-style
  52     \property Voice.Stem \override #'no-stem-extend = ##f
  53     \property Voice.Stem \revert #'length
  54     \property Voice.Stem \revert #'beamed-lengths
  55     \property Voice.Stem \revert #'beamed-minimum-lengths
  56     \property Voice.Beam \revert #'space-function
  57     \property Voice.fontSize \unset
  58 }