1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
\version "2.2.0"
\header {
title = "Gregorian Scripts"
texidoc = "@cindex Gregorian Scripts
Here is demonstrated a preliminary support of Gregorian Scripts:
ictus, circulus, semicirculus, accentus, episem.
"}
%{
TODO: augmentum. Syntax: either as bracket (\augmentumInitium,
\augmentumFinis), or as head prefix with subsequently collecting all
dots and putting them behind the ligature in a vertical row.
Counterexample to the second approach: Graduale Triplex, tempus per
annum, hebdomada septima, alleluia (page 280).
FIXME: horizontal spacing (ragged right mode).
FIXME: padding/minimum-distance is fragile.
FIXME: episem stops one notehead too early.
%}
\include "gregorian-init.ly"
\score {
\context VaticanaVoice {
\override VaticanaScript #'padding = #-0.5
\notes {
a\ictus
a\circulus
a\semicirculus
a\accentus
%{ %% TODO: augmentum:
a\augmentum
\[ \augmentumInitium b \flexa a \augmentumFinis \]
%}
\[ a \episemInitium \pes b \flexa a \episemFinis \]
}
}
\paper {
linewidth = 70.0
linethickness = \staffspace / 5.0
width = 60.0
indent = 0.0
raggedright = ##t
}
}
|
