\version "2.26.0"
\header {
title = ""
}
global = {
\time 2/2
\tempo 4=100
}
soprano = \relative c'' {
\key c \major
c4
}
alto = \relative c' {
c4
}
tenor = \relative c' {
\key c \major
c4
}
baso = \relative c {
c4
}
verseOne = \lyricmode {
\set stanza = "1."
hi
}
verseTwo = \lyricmode {
\set stanza = "2."
ha
}
verseThree = \lyricmode {
\set stanza = "3."
ho
}
\score {
\new ChoirStaff <<
\new Staff \with {
midiInstrument = "choir aahs"
instrumentName = \markup \center-column { S A }
} <<
\new Voice = "soprano" { \voiceOne \soprano }
\new Voice = "alto" { \voiceTwo \alto }
>>
\new Lyrics \with {
\override VerticalAxisGroup.staff-affinity = #CENTER
} \lyricsto "soprano" \verseOne
\new Lyrics \with {
\override VerticalAxisGroup.staff-affinity = #CENTER
} \lyricsto "soprano" \verseTwo
\new Lyrics \with {
\override VerticalAxisGroup.staff-affinity = #CENTER
} \lyricsto "soprano" \verseThree
\new Staff \with {
midiInstrument = "choir aahs"
instrumentName = \markup \center-column { T B }
} <<
\clef bass
\new Voice = "tenor" { \voiceOne \tenor }
\new Voice = "bass" { \voiceTwo \baso }
\new NullVoice \global
>>
>>
\layout { }
\midi { }
}#(define (mus-zeit mus duration beat)
(let* ((l (ly:music-length mus))
(dauer (if (string<? "2.24.4" (lilypond-version))
(ly:moment-main (/ l (ly:duration->number duration)))
(ly:moment-main (ly:moment-div l (ly:duration-length duration)))))
(minuten (exact->inexact (/ dauer beat)))
)
(write-me "Dauer ------------------> " dauer)
(write-me "Basis ------------------> " duration)
(write-me "Minuten ----------------> " minuten)
minuten
))
\markup \concat {
"Die Musik dauert "
#(ly:number->string (mus-zeit allemeinemusic #{ 4 #} 120 ))
" Minuten"
}\version "2.26.0"
musicA = \relative {
% Length = 48
c'4 d e f g2 g
a4 a a a g1
f4 f f f e2 e
d4 d d d c e g2
f4 f f f e2 e
d4 d d d c1
}
musicB = \relative {
% Length = 49
\time 3/4
R2. *2
c'4 c d
b4. c8 d4
e4 e f
e4. d8 c4
d4 c b
c4 c8 d e f
g4 g g
g4. f8 e4
f4 f f
f4. e8 d4
e4 f8 e d c
\time 4/4
e4. f8 g4 r\fermata
\time 3/4
a8 f e4 d
c2 r4
\bar "|."
}
musicC = \relative {
% Length = 35
\time 4/2
R\breve
r2 d'' d d
es2 r d4 es d c
b8 c b a g4 r8 a b4 r8 d e4 fis
g4 g8 fis g4
}
musicD = \relative {
% Length including repetition = 328, without repetition (using alternative 2) = 236
\language "english"
\time 4/2
g'2 b4. c8 d4 e d b
a2 cs d4. d8 d4 d
cs4( d2) cs4 d2 r
b2 c4 d c c b b
a4 a d4. c8 b4 g d'2
r4 a e'4. d8 c4 c b b
c4. b8 a4 g fs2 r
g4 g8 g g2 r g4 c8 c
c4 a b b a2 r
r1 r2 a
g4 a b2 a4 b c2
b1 a2 r
r1 r2 d4 d8 c
b4. a8 g4 g fs2 r
d'4 d8 c b4 b a a g2
r1 e'2 d4 d
d2 cs d2. r4
\repeat volta 2 {
r4 d2 c b a
g2 fs4 fs8( g4) fs8 g2
b4 g a2 g f4 f
e2 g b4 c2( b4)
c2 r4 b a c b cs
d2 r4 d e2 d
d2 r4 d g2. g,4
g2 c e2. e4
d2. d4 c b c c
b4 g a2 r b
a2 g a2. a4
}
\alternative {
{ g2. r4 }
{ g2. g4 a a g f g1\fermata }
}
\bar "||"
}
allemeinemusic = {
\unfoldRepeats {
\musicA \musicB \musicC \musicD
}
}
#(define (mus-dauer mus duration)
(let* ((l (ly:music-length mus))
(dauer (if (string<? "2.24.4" (lilypond-version))
(ly:moment-main (/ l (ly:duration->number duration)))
(ly:moment-main (ly:moment-div l (ly:duration-length duration)))))
)
(write-me "Dauer ------------------> " dauer)
(write-me "Basis ------------------> " duration)
dauer
))
\markup #(ly:number->string (mus-dauer allemeinemusic #{ 8 #} )) \new Staff<<
\new Voice="Voi" \noten
\addlyrics\TCA\addlyrics\TCB \addlyrics\TCC\addlyrics\TCD \addlyrics\TCO\addlyrics\TCP % Cyrillisch
% \addlyrics\TLA\addlyrics\TLB \addlyrics\TLC\addlyrics\TLD \addlyrics\TLO\addlyrics\TLP % Lateinisch
% \addlyrics\TCA\addlyrics\TLA \addlyrics\TCB\addlyrics\TLB \addlyrics\TCC\addlyrics\TLC % gemischt
% \addlyrics\TCD\addlyrics\TLD \addlyrics\TCO\addlyrics\TLO \addlyrics\TCP\addlyrics\TLP % gemischt
>>Du hast schon recht, Lily ist sehr mächtig, ich habe aber (vor 10 Jahren) auch ewig gebraucht, mich an die Syntax zu gewöhnen.