X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fvertical-line-as-a-baroque-articulation-mark.ly;fp=Documentation%2Fsnippets%2Fvertical-line-as-a-baroque-articulation-mark.ly;h=aac584a965829736b26157a0c3e4eca8ab04c1dc;hb=e90f0536f9be39ada0bef0aeb0d275dec3b2fb5b;hp=0000000000000000000000000000000000000000;hpb=a8c9e8a7ca320ab0df5fd32e717fd62cd7635ce6;p=lilypond.git

diff --git a/Documentation/snippets/vertical-line-as-a-baroque-articulation-mark.ly b/Documentation/snippets/vertical-line-as-a-baroque-articulation-mark.ly
new file mode 100644
index 0000000000..aac584a965
--- /dev/null
+++ b/Documentation/snippets/vertical-line-as-a-baroque-articulation-mark.ly
@@ -0,0 +1,36 @@
+%% DO NOT EDIT this file manually; it is automatically
+%% generated from LSR http://lsr.dsi.unimi.it
+%% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
+%% and then run scripts/auxiliar/makelsr.py
+%%
+%% This file is in the public domain.
+\version "2.14.0"
+
+\header {
+  lsrtags = "expressive-marks, ancient-notation"
+
+  texidoc = "
+This short vertical line placed above the note is commonly used in
+baroque music.  Its meaning can vary, but generally indicates notes
+that should be played with more @qq{weight}.  The following example
+demonstrates how to achieve such a notation.
+
+"
+  doctitle = "Vertical line as a baroque articulation mark"
+} % begin verbatim
+
+upline =
+#(let ((m (make-articulation "stopped")))
+   (set! (ly:music-property m 'tweaks)
+         (acons 'font-size 3
+                (acons 'stencil (lambda (grob)
+                                  (grob-interpret-markup
+                                   grob
+                                   (make-draw-line-markup '(0 . 1))))
+                       (ly:music-property m 'tweaks))))
+   m)
+
+
+\relative c' {
+  a'4^\upline a( c d')_\upline
+}