Monteverdi/LamentoNinfa/common.ily

   1 \include "italiano.ly"
   2 %#(ly:set-option 'point-and-click #f)
   3
   4 #(ly:set-option 'ancient-alteration (eqv? #t (ly:get-option 'urtext)))
   5 #(ly:set-option 'ancient-style (eqv? #t (ly:get-option 'urtext)))
   6 #(ly:set-option 'non-incipit (eqv? #t (ly:get-option 'urtext)))
   7
   8 \include "../../common/clef-key.ily"
   9 \include "../../common/alterations.ily"
  10 \include "../../common/baroque.ily"
  11 \include "../../common/markup.ily"
  12 \include "../../common/precipitations.ily"
  13
  14 \header {
  15   title = "Lamento della Ninfa"
  16   composer = "Claudio Monteverdi"
  17   copyrightYear = "2012"
  18   copyright = \markup\column {
  19     \sep
  20     \fill-line { \copyright }
  21     \fill-line { "Licensed under the Creative Commons Attribution 3.0 License" }
  22   }
  23 }
  24
  25 quoteLayout = \layout {
  26   indent = 0
  27   ragged-right = ##t
  28   \context {
  29     \Staff
  30     \remove "Time_signature_engraver"
  31     \override Rest #'style = #'neomensural
  32     \override NoteHead #'style = #'petrucci
  33   }
  34 }
  35
  36 urtext =
  37 #(define-music-function (parser location music) (ly:music?)
  38    (if (eqv? #t (ly:get-option 'urtext))
  39        music
  40        (make-music 'Music 'void #t)))
  41
  42 modified =
  43 #(define-music-function (parser location music) (ly:music?)
  44    (if (eqv? #t (ly:get-option 'urtext))
  45        (make-music 'Music 'void #t)
  46        music))
  47
  48 doubleBreve = {
  49   \once\override NoteHead #'stencil =
  50   #(lambda (grob)
  51      (grob-interpret-markup
  52       grob
  53       (markup #:musicglyph "noteheads.sM3ligmensural")))
  54 }
  55
  56 longaUp = {
  57   \once\override NoteHead #'stencil =
  58   #(lambda (grob)
  59      (grob-interpret-markup
  60       grob
  61       (markup #:musicglyph "noteheads.uM2mensural")))
  62 }
  63
  64 sharpMensural = \markup\musicglyph #"accidentals.mensural1"
  65
  66 markBegin =
  67 #(define-music-function (parser location direction mark) (number? markup?)
  68    #{
  69   \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
  70   \once \override Score . RehearsalMark #'direction = $direction
  71   \once \override Score . RehearsalMark #'self-alignment-X = #LEFT
  72   \once \override Score . RehearsalMark #'font-size = #1
  73   \mark $mark #})
  74
  75 \layout {
  76   \context {
  77     \Voice
  78     autoBeaming = ##f
  79     \override FootnoteItem #'annotation-line = ##f
  80   }
  81   \context {
  82     \Lyrics
  83     \override LyricText #'font-size = #0
  84   }
  85 }
  86
  87 \paper {
  88   last-bottom-spacing = #'((basic-distance . 1)
  89                            (padding . 2)
  90                            (minimum-distance . 0)
  91                            (stretchability . 5))
  92 }
  93
  94 \include "NonHavea.ily"
  95 \include "Amor.ily"
  96 \include "SiTraSdegnosiPianti.ily"