From 34c9c5a9324a1fcc8e6b1d5f69091f98f23f9626 Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Wed, 30 Apr 2025 17:31:01 +0200
Subject: [PATCH] capoTranspose eingebaut

---
 basic_format_and_style_settings.ly |  4 ++--
 chord_settings.ly                  | 12 ++++++++++++
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/basic_format_and_style_settings.ly b/basic_format_and_style_settings.ly
index bc7e882..d0b04e2 100644
--- a/basic_format_and_style_settings.ly
+++ b/basic_format_and_style_settings.ly
@@ -225,9 +225,9 @@ cue =
   #{
       \tag #'cues {
         \tweak self-alignment-X #LEFT
-        \mark 
+        \mark
           #(make-on-the-fly-markup
             (lambda (layout props m) (interpret-markup layout (prepend-alist-chain 'cues zahlen props) (ly:output-def-lookup layout 'cueMarkup)))
             (make-null-markup))
       }
-  #})
\ No newline at end of file
+  #})
diff --git a/chord_settings.ly b/chord_settings.ly
index 84b03c1..3150771 100644
--- a/chord_settings.ly
+++ b/chord_settings.ly
@@ -68,6 +68,18 @@ altChord =
       #mainchord
     #}))
 
+% Akkorde werden so transponiert, dass sie passen, wenn man mit Kapo im angegebenen Bund spielt
+capoTranspose =
+#(define-music-function (fret chords) (number? ly:music?)
+  (define semi->pitch
+    (make-semitone->pitch
+      (music-pitches
+        #{ h b a gis g fis f e es d cis c #})))
+  (transpose
+    (ly:pitch-transpose (semi->pitch fret) (ly:make-pitch 0 0))
+    (ly:make-pitch 0 0)
+    chords))
+
 % kleine Mollakkorde und Alteration ausgeschrieben
 #(define (note-name->german-markup-nosym pitch lowercase?)
    (define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))