From 295c36f25f91a16418ea6b229b18a3592e88872c Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Mon, 8 Jul 2013 12:06:10 +0200
Subject: [PATCH] Issue 3446: Use \translate-scaled in
 accordion-discant-symbols.ly

Otherwise prospective changes of font-size lead to ugly results.
---
 .../snippets/new/accordion-discant-symbols.ly | 174 ++++++++++++++++++
 1 file changed, 174 insertions(+)
 create mode 100644 Documentation/snippets/new/accordion-discant-symbols.ly

diff --git a/Documentation/snippets/new/accordion-discant-symbols.ly b/Documentation/snippets/new/accordion-discant-symbols.ly
new file mode 100644
index 0000000000..cc0efc192d
--- /dev/null
+++ b/Documentation/snippets/new/accordion-discant-symbols.ly
@@ -0,0 +1,174 @@
+\version "2.16.0"
+
+\header {
+  lsrtags = "keyboards, specific-notation, symbols-and-glyphs, workaround"
+
+  texidoc = "
+Accordion discant-specific symbols are added using @code{\\markup}. The
+placement of the symbols can be tweaked by changing the
+@code{\\translate-scaled} arguments.  @code{\\translate-scaled} is
+used here rather than @code{\\translate} in order to let the
+positioning of the symbol parts adapt to changes of @code{font-size}.
+"
+  doctitle = "Accordion-discant symbols"
+}
+
+discant = \markup {
+  \musicglyph #"accordion.discant"
+}
+dot = \markup {
+  \musicglyph #"accordion.dot"
+}
+
+\layout { ragged-right = ##t }
+
+% 16 voets register
+accBasson = ^\markup {
+  \combine
+  \discant
+  \translate-scaled #'(0 . 0.5) \dot
+}
+
+% een korig 8 en 16 voets register
+accBandon = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 0.5) \dot
+      \translate-scaled #'(0 . 1.5) \dot
+}
+
+accVCello = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 0.5) \dot
+      \combine
+        \translate-scaled #'(0 . 1.5) \dot
+        \translate-scaled #'(1 . 1.5) \dot
+}
+
+% 4-8-16 voets register
+accHarmon = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 0.5) \dot
+      \combine
+        \translate-scaled #'(0 . 1.5) \dot
+        \translate-scaled #'(0 . 2.5) \dot
+}
+
+accTrombon = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 0.5) \dot
+      \combine
+        \translate-scaled #'(0 . 1.5) \dot
+        \combine
+          \translate-scaled #'(1 . 1.5) \dot
+          \translate-scaled #'(-1 . 1.5) \dot
+}
+
+% eenkorig 4 en 16 voets register
+accOrgan = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 0.5) \dot
+      \translate-scaled #'(0 . 2.5) \dot
+}
+
+accMaster = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 0.5) \dot
+      \combine
+        \translate-scaled #'(0 . 1.5) \dot
+        \combine
+          \translate-scaled #'(1 . 1.5) \dot
+          \combine
+            \translate-scaled #'(-1 . 1.5) \dot
+            \translate-scaled #'(0 . 2.5) \dot
+}
+
+accAccord = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 1.5) \dot
+      \combine
+        \translate-scaled #'(1 . 1.5) \dot
+        \combine
+          \translate-scaled #'(-1 . 1.5) \dot
+          \translate-scaled #'(0 . 2.5) \dot
+}
+
+accMusette = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 1.5) \dot
+      \combine
+        \translate-scaled #'(1 . 1.5) \dot
+        \translate-scaled #'(-1 . 1.5) \dot
+}
+
+accCeleste = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 1.5) \dot
+      \translate-scaled #'(-1 . 1.5) \dot
+}
+
+accOboe = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 1.5) \dot
+      \translate-scaled #'(0 . 2.5) \dot
+}
+
+accClarin = ^\markup {
+  \combine
+    \discant
+    \translate-scaled #'(0 . 1.5) \dot
+}
+
+accPiccolo = ^\markup {
+    \combine
+       \discant
+       \translate-scaled #'(0 . 2.5) \dot
+}
+
+accViolin = ^\markup {
+  \combine
+    \discant
+    \combine
+      \translate-scaled #'(0 . 1.5) \dot
+      \combine
+        \translate-scaled #'(1 . 1.5) \dot
+        \translate-scaled #'(0 . 2.5) \dot
+}
+
+\relative c'' {
+  c4 d\accBasson e f
+  c4 d\accBandon e f
+  c4 d\accVCello e f
+  c4 d\accHarmon e f
+  c4 d\accTrombon e f
+  \break
+  c4 d\accOrgan e f
+  c4 d\accMaster e f
+  c4 d\accAccord e f
+  c4 d\accMusette e f
+  c4 d\accCeleste e f
+  \break
+  c4 d\accOboe e f
+  c4 d\accClarin e f
+  c4 d\accPiccolo e f
+  c4 d\accViolin e f
+}
-- 
2.39.2