Leitereigene Mehrklänge/ily

Zur Navigation springen Zur Suche springen
chExceptionMusic = {
  <c>1-\markup { \super "rt" }
  <c es ges>1-\markup { \super "dim" }
  <c es g>1-\markup { \normal-size-super "m" }
  <c e g b>1-\markup { \normal-size-super "7" }
  <c es g b>1-\markup { \normal-size-super "m7" }
  <c es ges heses>1-\markup { \super "dim7" }
  <c g>1-\markup { \super "pw" }
  <c e a>1-\markup {
    \super {
      "6("
      \combine \draw-line #'(1 . 1 ) "5)"
    }
  }
  <c e h>1-\markup {
    \super {
      "7("
      \combine \draw-line #'(1 . 1 ) "5)"
    }
  }
  <c e h d'>1-\markup {
    \super {
      "9("
      \combine \draw-line #'(1 . 1 ) "5)"
    }
  }

  <c e h d' f'>1-\markup {
    \super {
      "11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c g h d' f'>1-\markup {
    \super {
      "11"
      \super {
        "("
        \combine \draw-line #'(1 . 1 ) "3)"
      }
    }
  }
  <c h d' f'>1-\markup {
    \super {
      "11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "3"
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c e g h d' a'>1-\markup { \super "13" }
  <c e g h d' f' a'>1-\markup { \super { "13" \super "add11" } }
  <c e h d' a'>1-\markup {
    \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c e g h a'>1-\markup {
    \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e h a'>1-\markup {
    \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e h d' f' a'>1-\markup {
    \super {
      "13" \super {
        "add11("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c e g h f' a'>1-\markup {
    \super {
      "13" \super {
        "add11("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e h f' a'>1-\markup {
    \super {
      "13" \super {
        "add11("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e f' a'>1-\markup {
    \super {
      "13" \super {
        "add11("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "7"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c es a>1-\markup {
    "m"
    \super {
      "6" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es h>1-\markup {
    "m"
    \super {
      "7" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es h d'>1-\markup {
    "m"
    \super {
      "9" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es h d' f'>1-\markup {
    "m"
    \super {
      "11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es g h f'>1-\markup {
    "m"
    \super {
      "11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c es h f'>1-\markup {
    "m"
    \super {
      "11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c es g h d' f' a'>1-\markup {
    m
    \super {
      "13"
    }
  }
<c es g h>1-\markup {
    m
    \super {
      "j"
    }
  }
  <c es g h d' a'>1-\markup {
    m
    \super
    "13" \super {
      "("
      \combine \draw-line #'(1 . 1 ) "11)"
    }
  }
  <c es h d' a'>1-\markup {
    m
    \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "11)"
      }
    }
  }
  <c es g h a'>1-\markup {
    m
    \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9"
        \combine \draw-line #'(1 . 1 ) "11)"
      }
    }
  }
  <c es h a'>1-\markup {
    m
    \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9"
        \combine \draw-line #'(1 . 1 ) "11)"
      }
    }
  }
  <c es a'>1-\markup {
    m \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "7"
        \combine \draw-line #'(1 . 1 ) "9"
        \combine \draw-line #'(1 . 1 ) "11)"
      }
    }
  }
  <c es h d' f' a'>1-\markup {
    m \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es g h f' a'>1-\markup {
    m \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 )
        "9)"
      }
    }
  }
  <c es h f' a'>1-\markup {
    m \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c es f' a'>1-\markup {
    m \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "7"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e h>1-\markup {
    \super {
      "j7" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c e g h d'>1-\markup {
    \super { "j9" }
  }
  <c f g b>1-\markup {
    %\normal-size-super "7"
    \super "7sus4"
  }

<c e g h >1-\markup {
    \normal-size-super { "j7" }
  }
  <c e gis >1-\markup {
    \normal-size-super { "aug" }
  }
  <c es ges h >1-\markup {
    \normal-size-super { "dim7+" }
  }
  <c e h d'>1-\markup {
    \super {
      "j9" \super {
        "("
        % \override #'(offset . -6 ) \underline 5
        \combine \draw-line #'(1 . 1 )
        "5)"
      }
    }
  }
  <c e g h d' f'>1-\markup {
    \normal-size-super { "j11" }
  }
  <c g h d' f'>1-\markup {
    \super {
      "j11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "3)"
      }
    }
  }
  <c e h d' f'>1-\markup {
    \super {
      "j11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c h d' f'>1-\markup {
    \super {
      "j11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "3"
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c e g h d' a'>1-\markup {
    \super {
      "j13"
    }
  }
  <c e h d' a'>1-\markup {
    \super {
      "j13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c e g h a'>1-\markup {
    \super {
      "j13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e h a'>1-\markup {
    \super {
      "j13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e h d' f' a'>1-\markup {
    \super {
      "j13" \super {
        "add11("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c e g h f' a'>1-\markup {
    \super {
      "13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e h f' a'>1-\markup {
    \super {
      "j13" \super {
        "add11("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c e g h d' f' a'>1-\markup {
    \super { "j13" \super "add11" }
  }
  <c f g h d' f' a'>1-\markup {
    \super {
      "13sus4" \super "add11"
    }
  }
  <c f g h d'  a'>1-\markup {
    \super {
      "13sus4"
    }
  }
  <c f g h a'>1-\markup {
    \super {
      "13sus4" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c f g h f' a'>1-\markup {
    \super {
      "13sus4" \super {
        "add11("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c es h>1-\markup {
    m \super {
      "j7" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }

  <c es g h d'>1-\markup {
    m
    \super {
      "j9"
    }
  }
  <c es g h d' f'>1-\markup {
    m
    \super {
      "j11"
    }
  }
  <c es h d'>1-\markup {
    m \super {
      "j9" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es g h f'>1-\markup {
    m
    \super {
      "j11"
      \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c es h d' f'>1-\markup {
    m \super {
      "j11" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es h f'>1-\markup {
    m
    \super {
      "j11"
      \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9)"
      }
    }
  }
  <c es g h d' f' a'>1-\markup {
    m \super { "j13" }
  }
  <c es h d' f' a'>1-\markup {
    m \super {
      "j13" \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5)"
      }
    }
  }
  <c es g h f' a'>1-\markup {
    m
    \super {
      "j13"
      \super {
        "("
        \combine \draw-line #'(1 . 1 )
        "9)"
      }
    }
  }
  <c es h f' a'>1-\markup {
    m
    \super {
      "j13"
      \super {
        "("
        \combine \draw-line #'(1 . 1 )
        "5"
        \combine \draw-line #'(1 . 1 )
        "9)"
      }
    }
  }
  <c es h a'>1-\markup {
    m
    \super {
      "j13"
      \super {
        "("
        \combine \draw-line #'(1 . 1 )
        "5"
        \combine \draw-line #'(1 . 1 )
        "9"
        \combine \draw-line #'(1 . 1 )
        "11)"
      }
    }
  }
  <c es g h d' a'>1-\markup {
    m
    \super {
      "j13"
      \super {
        "("
        \combine \draw-line #'(1 . 1 )
        "11)"
      }
    }
  }
  <c es h d' a'>1-\markup {
    m
    \super {
      "j13"
      \super {
        "("
        \combine \draw-line #'(1 . 1 )
        "5"
        \combine \draw-line #'(1 . 1 )
        "11)"
      }
    }
  }
  <c es h a'>1-\markup {
    m
    \super {
      "j13"
      \super {
        "("
        \combine \draw-line #'(1 . 1 ) "5"
        \combine \draw-line #'(1 . 1 ) "9"
        \combine \draw-line #'(1 . 1 )
        "11)"
      }
    }
  }
  <c es g h a'>1-\markup {
    m
    \super {
      "j13"
      \super {
        "("
        \combine \draw-line #'(1 . 1 ) "9"
        \combine \draw-line #'(1 . 1 )
        "11)"
      }
    }
  }
  <c e g a d' >1-\markup %\scale #'(0.5 . 0.5)
  \fontsize #-4  {
    \translate #'(0 . 1) "6"
    \hspace #-0.5 \draw-line #'(1 . 2 ) \hspace #-0.5 "9"
  }
  %% Roemer-Brandt:
  <c e g d'>1-\markup {
    \super {
      "(add9)"
    }
  }
}

chExceptions =
#(append
  (sequential-music-to-chord-exceptions chExceptionMusic #t)
  ignatzekExceptions)

myBlue = #(rgb-color (/ 22 255) (/ 22 255) (/ 92 255))

#(define ((chord-name->german-markup-text-alteration B-instead-of-Bb) pitch lowercase?)

   (define (pitch-alteration-semitones pitch)
     (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))

   (define (conditional-string-downcase str condition)
     (if condition
         (string-downcase str)
         str))

   (let* ((name (ly:pitch-notename pitch))
          (alt-semitones  (pitch-alteration-semitones pitch))
          (n-a (if (member (cons name alt-semitones) `((6 . -1) (6 . -1)))
                   (cons 7 (+ (if B-instead-of-Bb 1 1) alt-semitones))
                   (cons name alt-semitones))))
     (make-line-markup
      (list
       (make-simple-markup
        (conditional-string-downcase
         (vector-ref #("C" "D" "E" "F" "G" "A" "H" "B") (car n-a))
         lowercase?))
       (let ((alteration (/ (cdr n-a) 2)))
         (cond
          ((and (equal? lowercase? #f) (= alteration FLAT) (= (car n-a) 7)) (make-simple-markup ""))
          ((and (= alteration FLAT) (or (= (car n-a) 5) (= (car n-a) 2) )) (make-simple-markup "s"))
          ((= alteration FLAT) (make-simple-markup "es"))
          ((and (= alteration DOUBLE-FLAT) (or (= (car n-a) 5)(= (car n-a) 2) )) (make-simple-markup "ses"))
          ((= alteration DOUBLE-FLAT) (make-simple-markup "eses"))
          ((= alteration SHARP) (make-simple-markup "is"))
          ((= alteration DOUBLE-SHARP) (make-simple-markup "isis"))
          (else empty-markup)))))))
#(define germanChords (chord-name->german-markup-text-alteration #t))

#(define (Text_align_engraver ctx)
   (let ((scripts '())
         (note-column #f))
     (make-engraver
      (acknowledgers
       ((note-column-interface trans grob source)
        ;; cache NoteColumn in this Voice context
        (set! note-column grob))
       ((text-script-interface trans grob source)
        ;; whenever a TextScript is acknowledged,
        ;; add it to `scripts' list
        (set! scripts (cons grob scripts))))
      ((stop-translation-timestep trans)
       ;; if any TextScript grobs exist,
       ;; set NoteColumn as X-parent
       (for-each (lambda (script)
                   (set! (ly:grob-parent script X) note-column))
         scripts)
       ;; clear scripts ready for next timestep
       (set! scripts '())))))

twF = #(define-music-function ( myNotes )
         (ly:music?)
         #{
           \tweak font-size #-2 $myNotes
         #})

chExBass = {
  <c es g heses>1-\markup \whiteout { "m" }  %% halbverminderter Septakkord
  <c es g b d'>1-\markup \whiteout { "m" } %% c:m9
  <c es ges b d'>1-\markup \whiteout { "m)" \hspace #-3.4 "(" } %% c:m9.5- eingeklammerter Akkord für einbuchstabige AKkordnamen
  <c es g b>1-\markup { "7" }    %% c:m7
  < c es g b d' f' a' >1-\markup { \normal-size-super "o" }  %% c:m13
  <c es g b d' f'>1-\markup { \fontsize #-0.5 "(7)" }  %% c:m11, die 7 in Klammer
}

chUpperBass = { <c g>1-\markup { "" } }

chExBasses = #(append
               (sequential-music-to-chord-exceptions chExBass #t)
               (sequential-music-to-chord-exceptions chUpperBass #t)
               ignatzekExceptions)