X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fclef-transposition-placement.ly;h=2255e9be208242be14ad075d1a252d5a12ff63c2;hb=21a1e3b8267fd76ff261ed9f01e833d5d04703e7;hp=119e00a903a28ef7b5be816d84748e1a58df51e7;hpb=261427ec6dff8415dbabf4406293887aa943abcb;p=lilypond.git

diff --git a/input/regression/clef-transposition-placement.ly b/input/regression/clef-transposition-placement.ly
index 119e00a903..2255e9be20 100644
--- a/input/regression/clef-transposition-placement.ly
+++ b/input/regression/clef-transposition-placement.ly
@@ -3,16 +3,48 @@
 \header {
 
   texidoc="Transposition symbols should be correctly positioned
-close to the parent clef."
+close to the parent clef.  Horizontal alignment is fine-tuned
+for standard C, G and F clefs: for example, downwards transposition
+of a G clef should be centered exactly under the middle of clef hook.
+For clefs that don't have fine-tuned alignment the transposition
+number should be centered."
 
 }
+
+% use huge staff-size to see the tiny differencies better.
+#(set-global-staff-size 35)
+
+clefVariations =
+#(define-music-function (parser location type)(string?)
+   #{
+     \once \omit Staff.Clef s4
+     \override Staff.Clef.full-size-change = ##t
+     \clef #(string-append type "8") s4
+     \clef #(string-append type "15") s4
+     \clef #(string-append type "(8)") s4
+     \clef #(string-append type "(141)") s4
+     % change clefs are omitted - too similar to regular ones
+     \cueClef #(string-append type "8") s4
+     \cueClef #(string-append type "15") s4
+     \cueClef #(string-append type "(8)") s4
+     \cueClef #(string-append type "(141)") s4
+   #})
+
+\markup "Even the smallest positioning changes may indicate a problem!"
 \score {
   <<
-    \new Staff { \clef "G^8" g''1 }
-    \new Staff { \clef "F^8" c'1 }
-    \new Staff { \clef "C^8" c''1 }
-    \new Staff { \clef "G_8" g1 }
-    \new Staff { \clef "F_8" c,1 }
-    \new Staff { \clef "C_8" c1 }
+    \new Staff { \clefVariations "C_" }
+    \new Staff { \clefVariations "C^" }
+    \new Staff { \clefVariations "G_" }
+    \new Staff { \clefVariations "G^" }
+    \new Staff { \clefVariations "F_" }
+    \new Staff { \clefVariations "F^" }
   >>
 }
+
+\layout {
+  \context {
+    \Staff
+    \remove Time_signature_engraver
+  }
+}
\ No newline at end of file