%some settings% vim: ai sw=2 lbr nu et

% Abkürzungen

% 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 = "STR_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 = \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.
  }

  textOberstimmeII = \lyricmode {
    \set stanza = "STR_2."
    Wir wün -- schen, dass je -- der Mensch auf der Welt Freun -- de hat.
    Wir wün -- schen, dass je -- der Mensch auf der Welt Freun -- de hat.
  }

  textOberstimmeIII = \lyricmode {
    \set stanza = "STR_3."
    Wir wün -- schen, dass je -- des Volk auf der Welt Frie -- den hat.
    Wir wün -- schen, dass je -- des Volk auf der Welt Frie -- den hat.
  }

  textI = \lyricmode {
    \set stanza = "STR_1."
    Wir wün -- schen, dass je -- des Kind la -- chen kann.
    \set stanza = "1.-3."
    Wir sin -- gen die -- sen Wunsch, bis er sich er -- füllt
    für euch und auch für uns sin -- gen die -- sen Wunsch.
  }

  textII = \lyricmode {
    \set stanza = "STR_2."
    Wir wün -- schen, dass je -- der Mensch Freun -- de hat.
  }

  textIII = \lyricmode {
    \set stanza = "STR_3."
    Wir wün -- schen, dass je -- des Volk Frie -- den hat.
  }