-\version "2.3.16"
+\version "2.7.39"
%%%%%%%%
%%%%%%%% 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 = #ly: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 = #ly: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 = #ly: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 = #ly: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)
\breathe
}
+augmentum = {
+ %%% TODO: A ligature head postfix that indicates that an
+ %%% augmentum dot should be appended to the right end of
+ %%% the surrounding ligature. [Not yet implemented.]
+}
+
%
% declare articulation shortcuts
%
% 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 = #(define-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 ... \]
%
%#(defmacro def-climacus-function (start stop)
-% `(def-music-function (location music) (ly:music?)
+% `(define-music-function (location music) (ly:music?)
% (make-music 'SequentialMusic
% 'elements (list 'LigatureStartEvent
% (ly:music-deep-copy ,start)
% 'LigatureStopEvent))))
%climacus = #(def-climacus-function startSequentialMusic stopSequentialMusic)
+\layout {
+ indent = 0.0
+ packed = ##t
+
+ %%% TODO: should raggedright be the default?
+ %ragged-right = ##t
+ ragged-last = ##t
+
+ %%% FIXME: line-thickness should be set here to a slightly
+ %%% thicker value as the default; but we can not set it here,
+ %%% since neither \staff-space nor #staff-space is yet defined
+ %%% when lily comes across the following line.
+ %line-thickness = \staff-space / 7.0
+
+ \context {
+ \VaticanaStaff
+ \override StaffSymbol #'color = #red
+ \override LedgerLineSpanner #'color = #red
+ }
+ \context {
+ \Score
+ \remove "Bar_number_engraver"
+
+ %%%
+ %%% FIXME: Musicologically seen, timing should be set to #f.
+ %%% Unfortunately, setting it to #f will result in no
+ %%% line-breakable items being created, such that the whole
+ %%% music will end up in a single line. Therefore, we
+ %%% currently set it to #t, until the ligature code is fixed
+ %%% to automatically insert breakable items.
+ %%%
+ timing = ##t
+
+ %%%
+ %%% FIXME: Setting barAlways to #t would fix the above
+ %%% "timing = ##t" problem, but, surprisingly, it increases
+ %%% the space between ligatures. Hence, we set it to #f.
+ %%%
+ barAlways = ##f
+
+ \override SpacingSpanner #'packed-spacing = ##t
+
+ %%%
+ %%% TODO: Play around with the following SpacingSpanner
+ %%% settings to yield better spacing between ligatures.
+ %%%
+ %%% FIXME: setting #'spacing-increment to a small value
+ %%% causes tons of "programming error: adding reverse spring,
+ %%% setting to unit" messages.
+ %%%
+ %\override SpacingSpanner #'shortest-duration-space = #0
+ %\override SpacingSpanner #'average-spacing-wishes = ##f
+ %\override SpacingSpanner #'spacing-increment = #0.0
+ %\override SpacingSpanner #'uniform-stretching = ##t
+ }
+}
+
%
-% example paper block for gregorian chant notation
+% example layout block for gregorian chant notation
%
-neumeDemoPaper = \paper {
+neumeDemoLayout = \layout {
interscoreline = 1
\context {
\Score
\Voice
\remove Ligature_bracket_engraver
\consists Vaticana_ligature_engraver
- \override NoteHead #'style = #'vaticana_punctum
+ \override NoteHead #'style = #'vaticana.punctum
\override Stem #'transparent = ##t
}
}
projects / lilypond.git / blobdiff