From dcf8c371da140f17f6c5c004502a28c185e6895c Mon Sep 17 00:00:00 2001 From: Carl Sorensen Date: Mon, 23 May 2016 08:56:23 -0600 Subject: [PATCH] Add halfopenvertical to script.scm --- Documentation/included/script-chart.ly | 1 + input/regression/halfopenvertical.ly | 19 +++++++++++++++++++ scm/script.scm | 7 +++++++ 3 files changed, 27 insertions(+) create mode 100644 input/regression/halfopenvertical.ly 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" . ( -- 2.39.2