\version "2.22.1"
\header {
title = "Сборник мелодических формул знаменного распева"
composer= "Штейнберг Б."
poet = "Москва, 2017"
}
\paper {
#(set-paper-size "a4")
tagline=##f
ragged-right = ##t
myStaffSize = #21
#(define fonts (make-pango-font-tree
"Ponomar Unicode"
"Ponomar Unicode"
"Ponomar Unicode"
(/ myStaffSize 21)))
}
\layout {
indent = 0.0
\context {
\Lyrics
\override LyricText #'font-size = #4
\override LyricText #'font-name = #"Ponomar Unicode"
\override LyricSpace.minimum-distance = #0.8
}
\context {
\Score
\override SpacingSpanner.spacing-increment = 0.5
}
\context {
\KievanVoice
\stemDown
fontSize = 1.0
}
}
\midi {
\context {
\Score
tempoWholesPerMinute = #(ly:make-moment 110 2)
}
\context {
\Staff
\remove Staff_performer
}
\context {
\Voice
\remove Staff_performer
}
}
makeScore =
#(define-scheme-function (mark notes lyricup lyricdown) (markup? ly:music? markup? markup?)
#{
\score {
\header {piece = \markup { Название }}
<<
\new KievanStaff = slavonic
<<
\new KievanVoice = "melody"
\relative c' {
\cadenzaOn
\mark #mark
#notes
\bar "|"
}
>>
\new Lyrics
\lyricsto "melody"
{а п р ц} %lyricup
\new Lyrics \with {alignAboveContext = slavonic}
\lyricsto "melody"
{b b b b} %lyricdown
>>
\layout { }
%\midi { }
}
#})
\markup { \fill-line \huge { "Глас 1" }}
\markup { \fill-line \huge { "Начальные" }}
\makeScore "Удра" {e4 c d f e d c d e d e1} "mi do re fa" "E C D F"
\markup { \fill-line \huge { "Конечные" }}
\makeScore "Удра" {e4 c d f e d c d e d e1} "mi do re fa" "E C D F"
\markup { \fill-line \huge { "Срединные" }}
\makeScore "Дербица или скорпица" {e4 f g a a g2.} "mi fa sol la" "E F G A"