Lilypond test

From www.PSALTIKI.info
Revision as of 23:43, 9 June 2019 by Root (talk | contribs)
Jump to: navigation, search

железо не надо 2  м² . ™ ™



#(set! paper-alist (cons '("my size" . (cons (* 5 in) (* 1 in))) paper-alist))

\paper {
  #(set-paper-size "my size")

}

\score {
  \new Staff <<
    \new Voice \relative c''' {
      \set midiInstrument = #"flute"
      \voiceOne
      \key g \major
      \time 2/2
      r2 g-"Flute" ~
      g fis ~
      fis4 g8 fis e2 ~
      e4 d8 cis d2
    }
    \new Voice \relative c'' {
      \set midiInstrument = #"clarinet"
      \voiceTwo
      b1-"Clarinet"
      a2. b8 a
      g2. fis8 e
      fis2 r
    }
  >>
  \layout { }
  \midi {
    \context {
      \Staff
      \remove "Staff_performer"
    }
    \context {
      \Voice
      \consists "Staff_performer"
    }
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 72 2)
    }
  }
}








\relative c' {  e8 c e c f e d4 g,8 g g a16 b c8 c c4 e8 c e c f e d4 g,8 g g a16 b c8 c c4 }



\paper {
  paper-height = 50\mm
}

\include "arabic.ly"
\relative do' {
  do re misb fa sol la sisd do sisb la sol fa misb re do
}



#(set! paper-alist (cons '("my size" . (cons (* 15 in) (* 3 in))) paper-alist))

\paper {
  #(set-paper-size "my size")
}

\include "gregorian.ly"
\score {
  <<
    \new VaticanaVoice = "cantus" {
      \[ c'\melisma c' \flexa a \]
      \[ a \flexa \deminutum g\melismaEnd \]
      f \divisioMinima
      \[ f\melisma \pes a c' c' \pes d'\melismaEnd \]
      c' \divisioMinima \break
      \[ c'\melisma c' \flexa a \]
      \[ a \flexa \deminutum g\melismaEnd \] f \divisioMinima
    }
    \new Lyrics \lyricsto "cantus" {
      San- ctus, San- ctus, San- ctus
    }
  >>
  \layout { }
  \midi {  }
}