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

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.14.2"
   8
   9 \header {
  10   lsrtags = "expressive-marks, ancient-notation"
  11
  12 %% Translation of GIT committish: d5307870fe0ad47904daba73792c7e17b813737f
  13   texidocfr = "
  14 On trouve régulièrement, en musique baroque, cette courte ligne
  15 verticale. Sa signification peut varier, mais elle indique le plus
  16 souvent une note plus « appuyée ».  Voici comment générer ce signe
  17 particulier.
  18
  19 "
  20   doctitlefr = "Articulation baroque en forme de coche"
  21
  22   texidoc = "
  23 This short vertical line placed above the note is commonly used in
  24 baroque music.  Its meaning can vary, but generally indicates notes
  25 that should be played with more @qq{weight}.  The following example
  26 demonstrates how to achieve such a notation.
  27
  28 "
  29   doctitle = "Vertical line as a baroque articulation mark"
  30 } % begin verbatim
  31
  32
  33 upline =
  34 #(let ((m (make-articulation "stopped")))
  35    (set! (ly:music-property m 'tweaks)
  36          (acons 'font-size 3
  37                 (acons 'stencil (lambda (grob)
  38                                   (grob-interpret-markup
  39                                    grob
  40                                    (make-draw-line-markup '(0 . 1))))
  41                        (ly:music-property m 'tweaks))))
  42    m)
  43
  44
  45 \relative c' {
  46   a'4^\upline a( c d')_\upline
  47 }