X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fpalm-mute.ly;fp=input%2Fregression%2Fpalm-mute.ly;h=945ab0372f0bdf9f92bab3513f5b8de4f0da259b;hb=941dff9d2a67080e0dd8474f1e70f0c72ace6424;hp=0000000000000000000000000000000000000000;hpb=5a22d6233a39d3164e1ca043244794c268be4ad0;p=lilypond.git

diff --git a/input/regression/palm-mute.ly b/input/regression/palm-mute.ly
new file mode 100644
index 0000000000..945ab0372f
--- /dev/null
+++ b/input/regression/palm-mute.ly
@@ -0,0 +1,36 @@
+\version "2.14.0"
+
+\header{
+  texidoc =
+"The palm mute technique for stringed instruments
+is supported by triangle-shaped note heads."
+}
+
+palmmute = \relative c, {
+    \time 4/4
+    \palmMuteOn
+    e8^\markup { \musicglyph #"noteheads.u2do"  = palm mute }
+    e e
+    \palmMuteOff  e e  \palmMute e e e |
+    e8 \palmMute { e e e } e e e e |
+    \palmMuteOn < e b' e >8 e e e < e b' e >2 \palmMuteOff |
+    < \palmMute e b' e >8 \palmMute { e e e } < \palmMute e b' e >2
+    \bar "|."
+}
+
+\context StaffGroup <<
+  \context Staff {
+    \context Voice {  % Warning: explicit Voice instantiation is
+                      %    required to have palmMuteOff work properly
+                      %    when palmMuteOn comes at the beginning of
+                      %    the piece.
+      \clef "G_8"
+      \palmmute
+    }
+  }
+  \context TabStaff <<
+    \palmmute
+  >>
+>>
+
+