input/regression/markup-note-styles.ly

   1 \version "2.14.0"
   2
   3 \header {
   4   texidoc = "@code{\\note-by-number} and @code{\\note} support
   5 all note head styles."
   6 }
   7
   8 #(define-markup-command (show-note-styles layout props) ()
   9    (interpret-markup layout props
  10                      (make-column-markup
  11                       (map
  12                        (lambda (style)
  13                          (make-line-markup
  14                           (list
  15                            (make-pad-to-box-markup '(0 . 20) '(0 . 0)
  16                                                    (symbol->string style))
  17                            (make-override-markup
  18                             (cons 'line-width 60)
  19                             (make-override-markup
  20                              (cons 'style style)
  21                              (make-fill-line-markup
  22                               (map
  23                                (lambda (dur-log)
  24                                  (make-note-by-number-markup
  25                                   dur-log 0 UP))
  26                                '(-3 -2 -1 0 1 2))))))))
  27                        '(default altdefault
  28                           baroque neomensural
  29                           mensural petrucci
  30                           harmonic harmonic-black
  31                           harmonic-mixed diamond
  32                           cross xcircle
  33                           triangle slash)))))
  34
  35 \markup {
  36   \override #'(baseline-skip . 6)
  37   \show-note-styles
  38 }