Documentation/snippets/vertical-line-as-a-baroque-articulation-mark.ly

   1 %% Do not edit this file; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% This file is in the public domain.
   4 \version "2.13.10"
   5
   6 \header {
   7   lsrtags = "expressive-marks, ancient-notation"
   8
   9   texidoc = "
  10 This short vertical line placed above the note is commonly used in
  11 baroque music.  Its meaning can vary, but generally indicates notes
  12 that should be played with more @qq{weight}.  The following example
  13 demonstrates how to achieve such a notation.
  14
  15 "
  16   doctitle = "Vertical line as a baroque articulation mark"
  17 } % begin verbatim
  18
  19 upline =
  20 #(let ((m (make-articulation "stopped")))
  21    (set! (ly:music-property m 'tweaks)
  22          (acons 'font-size 3
  23                 (acons 'stencil (lambda (grob)
  24                                   (grob-interpret-markup
  25                                    grob
  26                                    (make-draw-line-markup '(0 . 1))))
  27                        (ly:music-property m 'tweaks))))
  28    m)
  29
  30
  31 \relative c' {
  32   a'4^\upline a( c d')_\upline
  33 }