input/regression/markup-note-styles.ly

   1 \version "2.19.35"
   2
   3 \header {
   4   texidoc = "@code{\\note-by-number} and @code{\\note} support
   5 all note head styles and all flag styles (default, straight, flat, mensural)."
   6 }
   7
   8 #(define styles-list
   9   '(default altdefault
  10     baroque neomensural
  11     mensural petrucci
  12     semipetrucci blackpetrucci
  13     harmonic harmonic-black
  14     harmonic-mixed diamond
  15     cross xcircle
  16     triangle slash))
  17
  18 #(define-markup-command (show-note-styles layout props styles) (list?)
  19    (interpret-markup layout props
  20                      (make-column-markup
  21                       (map
  22                        (lambda (style)
  23                          (make-line-markup
  24                           (list
  25                            (make-pad-to-box-markup '(0 . 20) '(0 . 0)
  26                                                    (symbol->string style))
  27                            (make-override-markup
  28                             (cons 'line-width 60)
  29                             (make-override-markup
  30                              (cons 'style style)
  31                              (make-fill-line-markup
  32                               (map
  33                                (lambda (dur-log)
  34                                  (make-note-by-number-markup
  35                                   dur-log 0 UP))
  36                                '(-3 -2 -1 0 1 2 3 4 5 6))))))))
  37                        styles))))
  38
  39 %% Testing all combinations of note-head/flag-styles would be too much
  40 %% Thus, limited examples
  41 \markup {
  42   \column {
  43     \combine \null \vspace #1
  44     \underline "Note-head-styles:"
  45     \override #'(baseline-skip . 6)
  46     \show-note-styles #styles-list
  47   }
  48 }
  49
  50 \markup {
  51   \column {
  52     \combine \null \vspace #1
  53     \underline "Modern-straight-flag:"
  54     \override #'(flag-style . modern-straight-flag)
  55     \show-note-styles #'(default mensural)
  56   }
  57 }
  58
  59 \markup {
  60   \column {
  61     \combine \null \vspace #1
  62     \underline "Old-straight-flag:"
  63     \override #'(flag-style . old-straight-flag)
  64     \show-note-styles #'(default)
  65   }
  66 }
  67
  68 \markup {
  69   \column {
  70     \combine \null \vspace #1
  71     \underline "Flat-flag:"
  72     \override #'(flag-style . flat-flag)
  73     \show-note-styles #'(default)
  74   }
  75 }
  76
  77 \markup {
  78   \column {
  79     \combine \null \vspace #1
  80     \underline "default-flag:"
  81     \override #'(flag-style . default)
  82     \show-note-styles #'(default mensural)
  83   }
  84 }