Add halfopenvertical to script.scm

diff --git a/Documentation/included/script-chart.ly b/Documentation/included/script-chart.ly
index 853b07179f3a6b958d851b41fcc9040bfb5e85e9..e03bb4abc919e376d738a0e7bbf293070077a97c 100644 (file)
--- 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 (file)
index 0000000..c0e0f03
--- /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 5d975fe0ec43a54b0217b003efc101f75315677b..c8eb8b39b9a9f415bdd93c55ab9ca8cdd76016d8 100644 (file)
--- 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"
      . (