input/test/beam-hss.ly

   1 \header {
   2
   3 texidoc = "Beams in hang, straddle sit positions, forced there using
   4 quanting."
   5
   6 }
   7
   8 \version "1.5.23"
   9
  10 #(define ps-testing #t)
  11 \score {
  12     \notes\relative c'{
  13         \property Voice.Beam \override #'vertical-position-quant-function
  14         = #(lambda (beam dy x staff-line)
  15             (let* ((thick (ly-get-grob-property beam 'thickness))
  16                    (hang (- 1 (/ (- thick staff-line) 2))))
  17              (append (list hang) (list (+ hang 1)))))
  18         [d8 d]
  19
  20         \property Voice.Beam \override #'vertical-position-quant-function
  21         = #(lambda (beam dy x staff-line) '(0 1))
  22         [d8 d]
  23
  24         \property Voice.Beam \override #'vertical-position-quant-function
  25         = #(lambda (beam dy x staff-line)
  26             (let* ((thick (ly-get-grob-property beam 'thickness))
  27                    (sit (/ (- thick staff-line) 2)))
  28              (append (list sit) (list (+ sit 1)))))
  29          [d8 d]
  30     }
  31     \paper{
  32         linewidth = 0.0
  33     }
  34 }