-\version "2.4.0"
+\version "2.7.14"
%%%%%%%%
%%%%%%%% shortcuts common for all styles of gregorian chant notation
% declare divisiones shortcuts
%
virgula = {
- \once \override BreathingSign #'text = #(make-musicglyph-markup "scripts-rcomma")
+ \once \override BreathingSign #'text = #(make-musicglyph-markup "scripts.rcomma")
\once \override BreathingSign #'font-size = #-2
% Workaround: add padding. Correct fix would be spacing engine handle this.
\breathe
}
caesura = {
- \once \override BreathingSign #'text = #(make-musicglyph-markup "scripts-rvarcomma")
+ \once \override BreathingSign #'text = #(make-musicglyph-markup "scripts.rvarcomma")
\once \override BreathingSign #'font-size = #-2
% Workaround: add padding. Correct fix would be spacing engine handle this.
\breathe
}
divisioMinima = {
- \once \override BreathingSign #'print-function = #Breathing_sign::divisio_minima
+ \once \override BreathingSign #'stencil = #Breathing_sign::divisio_minima
% Workaround: add padding. Correct fix would be spacing engine handle this.
\once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
\breathe
}
divisioMaior = {
- \once \override BreathingSign #'print-function = #Breathing_sign::divisio_maior
- \once \override BreathingSign #'Y-offset-callbacks = #'()
+ \once \override BreathingSign #'stencil = #Breathing_sign::divisio_maior
+ \once \override BreathingSign #'Y-offset = #0
% Workaround: add padding. Correct fix would be spacing engine handle this.
\once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
\breathe
}
divisioMaxima = {
- \once \override BreathingSign #'print-function = #Breathing_sign::divisio_maxima
- \once \override BreathingSign #'Y-offset-callbacks = #'()
+ \once \override BreathingSign #'stencil = #Breathing_sign::divisio_maxima
+ \once \override BreathingSign #'Y-offset = #0
% Workaround: add padding. Correct fix would be spacing engine handle this.
\once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
\breathe
}
finalis = {
- \once \override BreathingSign #'print-function = #Breathing_sign::finalis
- \once \override BreathingSign #'Y-offset-callbacks = #'()
+ \once \override BreathingSign #'stencil = #Breathing_sign::finalis
+ \once \override BreathingSign #'Y-offset = #0
% Workaround: add padding. Correct fix would be spacing engine handle this.
\once \override BreathingSign #'extra-X-extent = #'(-1.0 . 0)
% shortcut music functions for Liber Hymnarius neumes table
% (experimental)
%
+
+#(define (make-ligature music)
+ (make-music 'SequentialMusic
+ 'elements (append
+ (cons
+ (make-music 'EventChord
+ 'elements (list
+ (make-span-event 'LigatureEvent START)))
+ (ly:music-property music 'elements))
+ (list
+ (make-music 'EventChord
+ 'elements (list
+ (make-span-event 'LigatureEvent STOP)))))))
+
+ligature = #(def-music-function
+ (location music) (ly:music?)
+ (make-ligature music))
+
%#(define (make-script x)
% (make-music 'ArticulationEvent
% 'articulation-type x))
%#(define (add-staccato m)
% (add-script m "staccato"))
%
-% % \applymusic #(lambda (x) (music-map add-staccato x)) { c c }
+% % \applyMusic #(lambda (x) (music-map add-staccato x)) { c c }
%
% % \climacus { x y z ... }:
% % \[ \virga x \inclinatum y \inclinatum z ... \]
\Voice
\remove Ligature_bracket_engraver
\consists Vaticana_ligature_engraver
- \override NoteHead #'style = #'vaticana_punctum
+ \override NoteHead #'style = #'vaticana.punctum
\override Stem #'transparent = ##t
}
}