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
  13 quoteLayout = \layout {
  14   indent = 0
  15   ragged-right = ##t
  16   \context {
  17     \Staff
  18     \remove "Time_signature_engraver"
  19     \override Rest #'style = #'neomensural
  20     \override NoteHead #'style = #'petrucci
  21   }
  22 }
  23
  24 urtext =
  25 #(define-music-function (parser location music) (ly:music?)
  26    (if (eqv? #t (ly:get-option 'urtext))
  27        music
  28        (make-music 'Music 'void #t)))
  29
  30 modified =
  31 #(define-music-function (parser location music) (ly:music?)
  32    (if (eqv? #t (ly:get-option 'urtext))
  33        (make-music 'Music 'void #t)
  34        music))
  35
  36 doubleBreve = {
  37   \once\override NoteHead #'stencil =
  38   #(lambda (grob)
  39      (grob-interpret-markup
  40       grob
  41       (markup #:musicglyph "noteheads.sM3ligmensural")))
  42 }
  43
  44 longaUp = {
  45   \once\override NoteHead #'stencil =
  46   #(lambda (grob)
  47      (grob-interpret-markup
  48       grob
  49       (markup #:musicglyph "noteheads.uM2mensural")))
  50 }
  51
  52 sharpMensural = \markup\musicglyph #"accidentals.mensural1"
  53
  54 markBegin =
  55 #(define-music-function (parser location direction mark) (number? markup?)
  56    #{
  57   \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
  58   \once \override Score . RehearsalMark #'direction = $direction
  59   \once \override Score . RehearsalMark #'self-alignment-X = #LEFT
  60   \once \override Score . RehearsalMark #'font-size = #1
  61   \mark $mark #})
  62
  63 \layout {
  64   \context {
  65     \Voice
  66     autoBeaming = ##f
  67     \override FootnoteItem #'annotation-line = ##f
  68   }
  69   \context {
  70     \Lyrics
  71     \override LyricText #'font-size = #0
  72   }
  73 }
  74
  75 \include "NonHavea.ily"
  76 \include "Amor.ily"
  77 \include "SiTraSdegnosiPianti.ily"