Wir_wuenschen_dass_jedes_Kind_auf_der_Welt_lachen_kann: Pfeil zum Stimmwechsel neu

1 files changed, 17 insertions, 1 deletions

diff --git a/Wir_wuenschen_dass_jedes_Kind_auf_der_Welt_lachen_kann/texte.ly b/Wir_wuenschen_dass_jedes_Kind_auf_der_Welt_lachen_kann/texte.ly
index 39599f7..3179ef3 100644
--- a/Wir_wuenschen_dass_jedes_Kind_auf_der_Welt_lachen_kann/texte.ly
+++ b/Wir_wuenschen_dass_jedes_Kind_auf_der_Welt_lachen_kann/texte.ly
@@ -4,11 +4,27 @@
 
 % Die Textaufteilungen
 
+#(define-markup-command (arrow-at-angle layout props angle-deg length fill)
+   (number? number? boolean?)
+   (let* (
+           (PI-OVER-180 (/ (atan 1 1) 34))
+           (degrees->radians (lambda (degrees) (* degrees PI-OVER-180)))
+           (angle-rad (degrees->radians angle-deg))
+           (target-x (* length (cos angle-rad)))
+           (target-y (* length (sin angle-rad))))
+     (interpret-markup layout props
+       (markup
+        #:translate (cons (/ target-x 2) (/ target-y 2))
+        #:rotate angle-deg
+        #:translate (cons (/ length -2) 0)
+        #:concat (#:draw-line (cons length 0)
+                   #:arrow-head X RIGHT fill)))))
+
   textOberstimmeI = \lyricmode {
     \set stanza = "1."
     Wir wün -- schen, dass je -- des Kind auf der Welt la -- chen kann.
     Wir wün -- schen, dass je -- des Kind auf der Welt la -- chen kann.
-    \set stanza = "1.-3."
+    \set stanza = \markup { \arrow-at-angle #-60 #6 ##t }
     Wir sin -- gen die -- sen Wunsch, bis er sich er -- fült
     für euch und auch für uns, sin -- gen die Wunsch.
   }