From: Carl Sorensen <carl.d.sorensen@gmail.com>
Date: Mon, 23 May 2016 14:56:23 +0000 (-0600)
Subject: Add halfopenvertical to script.scm
X-Git-Tag: release/2.19.44-1~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dcf8c371da140f17f6c5c004502a28c185e6895c;p=lilypond.git

Add halfopenvertical to script.scm
---

diff --git a/Documentation/included/script-chart.ly b/Documentation/included/script-chart.ly
index 853b07179f..e03bb4abc9 100644
--- a/Documentation/included/script-chart.ly
+++ b/Documentation/included/script-chart.ly
@@ -53,6 +53,7 @@ This chart shows all articulations, or scripts, that the feta font contains.
       "snappizzicato"
       "open"
       "halfopen"
+      "halfopenvertical"
       "stopped"
       "lheel"
       "rheel"
diff --git a/input/regression/halfopenvertical.ly b/input/regression/halfopenvertical.ly
new file mode 100644
index 0000000000..c0e0f03e31
--- /dev/null
+++ b/input/regression/halfopenvertical.ly
@@ -0,0 +1,19 @@
+\version "2.19.43"
+
+\header {
+
+  texidoc = "The halfopenvertical articulation is available."
+
+}
+#(define mydrums '(
+         (hihat         cross #f                 5)
+         (openhihat     cross "open"             5)
+         (closedhihat   cross "stopped"          5)
+         (halfopenhihat cross "halfopenvertical" 5)))
+
+\new DrumStaff <<
+  \set DrumStaff.drumStyleTable = #(alist->hash-table mydrums)
+
+  \drummode { hh4 hhc hho hhho }
+>>
+
diff --git a/scm/script.scm b/scm/script.scm
index 5d975fe0ec..c8eb8b39b9 100644
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -110,6 +110,13 @@
         (script-stencil . (feta . ("halfopen" . "halfopen")))
         (direction . ,UP)))
 
+    ("halfopenvertical"
+     . (
+        (avoid-slur . outside)
+        (padding . 0.20)
+        (script-stencil . (feta . ("halfopenvertical" . "halfopenvertical")))
+        (direction . ,UP)))
+
 
     ("ictus"
      . (