Vorlage:LayoutOrgel 2.22.0

Zur Navigation springen Zur Suche springen
Bearbeiten · Versionen · Cache leeren · Messages · Seiteninformation
Die Vorlage LayoutOrgel 2.22.0 ist nur auf eingebundenen Seiten voll sichtbar und auf dieser Seite versteckt.

Vorlagendokumentation Bearbeiten · Raw · Versionen · Cache leeren · Seiteninformation
Diese Vorlagendokumentation wird von der Seite Vorlage:LayoutOrgel 2.22.0/doc eingebunden.

Die Vorlage {{LayoutOrgel 2.22.0}} fügt den Code für die immer gleichen Codeteile von Orgelnoten von Messlieder ein

für Lilypond Version 2.22.0, dies deswegen weil es eine Inkompatibilität gibt

Parameter

keine

Kopiervorlagen

{{LayoutOrgel 2.22.0}}
{{LayoutOrgel 2.22.0}}

Anwendung

{{LayoutOrgel 2.22.0}}
ergibt als Wikitext expandiert:
\version "2.22.0"

\language "deutsch" make-midi-list = #(define-void-function (name score tempolist) ((string? #f) ly:score? list?) (for-each (lambda (tempo) (ly:book-process (apply ly:make-book $defaultpaper $defaultheader (list score)) $defaultpaper #{ \midi { \tempo 4 = $tempo } #} (format #f "~a_~a" (or name "midi") tempo))) tempolist)) #(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)) \layout { \context { \Voice beamExceptions = #'() \override BreathingSign.text = \markup { \musicglyph #"scripts.lvarcomma" } \override Stem.neutral-direction = #down \override Script.outside-staff-priority = #'() \override Script.padding = #1 \override Tie.thickness = #1 \override PhrasingSlur.thickness = #3 \override Rest.voiced-position = #0 \override MultiMeasureRest.expand-limit = #3 } \context { \Staff printPartCombineTexts = ##f beamExceptions = #'() \override BreathingSign.text = \markup { \musicglyph #"scripts.lvarcomma" } \override InstrumentName.font-features = #'("smcp") } \context { \Score \override VerticalAxisGroup.remove-first = ##t skipBars = ##f \override MetronomeMark.font-size = #1 \override MetronomeMark.font-shape = #'caps \override BarLine.thick-thickness = 5 \override Timing.beamExceptions = #'() barNumberVisibility = #all-bar-numbers-visible \override BarNumber.color = #(rgb-color 0.7 0.7 0.7) \override BarNumber.layer = #-200 \override BarNumber.padding = #0.4 \override BarNumber.outside-staff-priority =#'() \override BarNumber.after-line-breaking = ##f \override BarNumber.font-size = #-1 \override BarNumber.font-series = #'bold \override BarNumber.self-alignment-X = #0 \override BarNumber.break-visibility = #end-of-line-invisible } \context { \ChordNames chordNameLowercaseMinor = ##f \remove Staff_performer chordRootNamer = #germanChords \override ChordName.font-name = #"Orator10 BT" chordNoteNamer = #(chord-name->german-markup #f) \override ChordName.X-offset = #ly:self-alignment-interface::aligned-on-x-parent \override ChordName.self-alignment-X = #CENTER \override ChordName.font-name = #"Arial Narrow" \override ChordName.layer = #2 \override ChordName.font-size = #-0.5 noChordSymbol = ##f } \context { \Lyrics \override VerticalAxisGroup.staff-affinity = #CENTER }

}

Code

<includeonly><onlyinclude>

\version "2.22.0" \language "deutsch" {{MakeMidiList}} {{GermanChords}}

{{LayoutMesslied}}</onlyinclude></includeonly>{{Dokumentation}}

Verwendungen dieser Vorlage

Unterseiten