On Mon, Apr 11, 2011 at 01:02:39PM +0200, Hermann Hinsch wrote:
>
> So Dirk, your suggestion might be easier. As you asked me you will find the
> M-Tx score of the Sanctus (which is the smallest part) in the attachment.
>
I append:
1. The program extract.lua, a rudimentary M-Tx score-to-parts maker,
with just enough features to handle your Sanctus.
2. Your Sanctus.mtx (so others can check that exctact.lua works
on their systems too)
3. The five files made by extract.lua
The coding is to my usual standard, i.e. intelligible to me at the
time of writing. If others can understand it, it is because Lua is
an unusually readable and intuitive language.
We can start talking revision numbers the moment that more than one
version exists.
βIt is pointless to generalize unless at least two non-isomorphic
examples of the generalization can be given.β β Nicolas Bourbaki
Dirk
#!/usr/bin/texlua
-- extract.lua DPL 2011-04-13
-- write separate M-Tx scores for each style element
-- Usage (Unix): extract.lua MYFILE.mtx
-- (all systems) texlua extract.lua MYFILE.mtx
-- There must be exactly one style line in the preamble. Each
-- separate entry in that line will get one part.
-- Features:
-- will look for lyrics, uptext and chord lines
-- Bugs:
-- does not look for special lyrics lines, only for those
-- starting with L:
-- only adjacent C or L lines are found (i.e. no intervening
-- comment lines allowed)
-- some convenient abbreviations and utility subroutines
append = table.insert
match = string.match
upper = string.upper
format = string.format
gmatch = string.gmatch
find = string.find
comment = '^%s*%%' -- first non-blank is a comment
lyrics = '^%s*{.*}' -- first word is enclosed in braces
keyword = '^%s*(.*):' -- first word if followed by colon
kwbody = ".*:(.*)" -- everything after keyword
word = '%s*(%S+)' -- maximal string of non-blanks
styleclause = ';?([^;]*)' -- clauses of style line separated by semicolons
function wordset(line)
local ws = {}
for w in gmatch(line,word) do ws[w]=true end
return ws
end
-- read input and separate into paragraphs
infilename = arg[1]
if infilename then infile = io.open(arg[1]) end
assert (infile, "Usage: extract.lua MYFILE.mtx")
base, ext = match(infilename,'(.*)%.(.*)')
lines = {}
index = {}
for l in infile:lines() do
blank = match(l,"^%s*$")
if blank and start then append(index,{start,#lines}); start=nil
elseif not (blank or start) then start = #lines+1
end
append(lines,l)
end
if start then append(index,{start,#lines}) end
-- classify paragraphs
function classify(item)
local first
for l=item[1],item[2] do
if not match(lines[l],comment) then first=lines[l] break end
end
if not first then return 'comment' end
if match(first,lyrics) then return 'lyrics' end
for l=item[1],item[2] do
if match(upper(lines[l]),'^%s*STYLE:') then
styleline = lines[l]; return 'style'
end
end
return 'music'
end
for _,item in ipairs(index) do item.class = classify(item) end
-- identify style elements and open part files
assert(styleline,"No styleline found")
body = match(styleline,kwbody)
parts={}
partfile={}
partset={}
style={}
for part in gmatch(body,word) do
append(parts,part)
partset[part] = true
partfile[part]=io.open(format("%s-%s.%s",base,part,ext),'w')
end
-- go through file and print relevant lines
function writeln(part,line)
partfile[part]:write(line..'\n')
end
function to_all(line)
for _,part in pairs(parts) do writeln(part,line) end
end
function stylepara(item)
for l=item[1],item[2] do
local line = lines[l]
local kw = match(line,keyword)
if upper(kw)=='STYLE' then
for _,part in ipairs(parts) do
writeln(part,'Style: '..part)
end
elseif partset[kw] then
style[kw] = match(line,kwbody)
writeln(kw,line)
else to_all(line)
end
end
end
function commentpara(item)
for l=item[1],item[2] do to_all(lines[l]) end
end
function musicpara(item,part)
-- write line to file if it matches
function maybe(line,lbl)
if not line then return end
local x = match(line,keyword)
if x and find(lbl,x) then writeln(part,line) end
end
label=voices[part]
for l=item[1],item[2] do
local line = lines[l]
local kw = match(line,keyword)
if label[kw] then -- Aha! this is one of our voices.
maybe(lines[l-1],'U')
writeln(part,line)
maybe(lines[l+1],'CL')
maybe(lines[l+2],'CL')
elseif match(line,comment) then writeln(part,line)
end
end
end
function labels()
-- Identify voice labels for each part
voices = {}
for _,part in ipairs(parts)do
for clause in gmatch(style[part],styleclause) do
voiceclause = match(clause,"Voices (.*)")
if voiceclause then voices[part]=wordset(voiceclause) end
end
end
end
for _,item in ipairs(index) do
if item.class == 'style' then stylepara(item); labels()
elseif item.class == 'comment' then commentpara(item)
else for _,part in ipairs(parts) do musicpara(item,part) end
end
to_all('')
end
Style: Q1 Q2 Q3 Q4 Bass
Q1: Voices S1 A1 T1 B1 ; Clefs G G8 G8 F ; Choral
Q2: Voices S2 A2 T2 B2 ; Clefs G G8 G8 F ; Choral
Q3: Voices S3 A3 T3 B3 ; Clefs G G8 G8 F ; Choral
Q4: Voices S4 A4 T4 B4 ; Clefs G G8 G8 F ; Choral
Bass: Voices BC ; Clefs F
Meter: m4206
%Pages: 8
%Systems: 8
Bars/line: 3
Size: 20
%% \def\writebarno{\ifnum\barno>1\lrlap{\tenrm\it\the\barno\barnoadd}\fi}
%% \def\raisebarno{4mm}
%% \raggedbottom
%% \parskip 9\Interligne plus 7\Interligne minus 7\Interligne
%% \input musixadd
%% \input musixuad
%% \input musixlit
%% \tenbf
%% P2
%% Ab
%% h290m
%% \\let\interstaffsav\interstaff\def\interstaff#1{}\interstaffsav{8.6}\
% Bar 1
%% \\\roffset{79.5}{\zcharnote{306}{\medtype\bf 1}}\
%% \\setinterinstrument{1}{3.2mm}\
%% \\setinterinstrument{5}{3.5mm}\
%% \\setinterinstrument{9}{3.5mm}\
%% \\setinterinstrument{13}{3.5mm}\
S1: d25d c4 b2 d
L: San---ctus
A1: XS3 r0 (~ g25d f4
L: San-
T1: r9
L:
B1: r9
L:
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: g03 g2- b
% Bar 2
S1: (~ c45 b b [ a8 g ] a0 )~
L: San-
A1: e45 fs g0 f2 )~
L: -
T1: XS6 r0 d25d c4
L: San---
B1: r9
L:
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: c23 e d0
% Bar 3
S1: b04 r
L: ctus
A1: g05 r
L: ctus
T1: b24 d (~ c4 b b [ a8 g ]
L: -ctus San-
B1: @+2.8 (~ g23d f4s e f ( g2
L: San-
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: g23d f4s e f g2 s
% Bar 4
S1: d25d c4 b2 d
L: San---ctus,
A1: XS3 r0 g25d f4
L: San---
T1: a04 )~ b
L: ctus,
B1: g23 ) fs )~ g0
L: ctus,
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: g23 s fs g0
% Bar 5
S1: (~ c25d d4 e2 b
L: San-
A1: e25 g r (~ fs
L: -ctus, San-
T1: e25d d4 c2 d
L: San---ctus,
B1: (~ c23d b4 a2 b
L: San-
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: c23d b4 a2 b
% Bar 6
S1: a04 )~ b
L: ctus
A1: [ e85 f ] g2 f4s )~ g0
L: ctus
T1: c45d b8 a4 d d0
L: San----ctus
B1: c23 d )~ g0-
L: ctus
S2: XS8 r0 (~ d45 c b [ c8 d ]
L: San-
A2: XS4 r2 (~ d45 c b c d2 )~
L: San-
T2: XS8 r0 (~ b44 a g [ a8 b ]
L: San-
B2: XS8 r0 r2 @+2.8 (~ g43 f
L: San-
S3: XS8 r0 r2 (~ b44 a
L: San-
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: c23 d g0-
% Bar 7
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
S2: e25 )~ e r (~ b4 a
L: ctus San-
A2: g25 r r0
L: ctus
T2: c25 )~ c r0
L: ctus
B2: e43 [ f8 g ] a2 )~ d- g
L: ctus, San-ctus
S3: g44 [ a8 b ] c2 )~ d0
L: ctus
A3: (~ g45 f e [ f8 g ] a2 g )~
L: San-
T3: (~ e45 d c [ d8 e ] f4 )~ d r2
L: San-ctus
B3: XS3 r2 @+2.8 (~ a43 g f [ g8 a ] b2 )~
L: San-
S4: XS3 r2 (~ c45 b a [ b8 c ] d2
L: San-
A4: XS8 r0 (~ f45d e8 d4 [ e8 f ]
L: San-
T4: XS8 r0 (~ d45 c b [ c8 d ]
L: San-
B4: r9
L:
BC: c23 a d g-
% Bar 8
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
S2: g44 [ a8 b ] c4 gd [ a8 b c ] d2 )~
L: -
A2: (~ e45 f g2d [ f8 e ] d4 g )~
L: San-
T2: (~ e45 d c [ b8 a ] b0 )~
L: San-
B2: c03 g
L: ctus, San-
S3: r9
L:
A3: g05 r
L: ctus
T3: r9
L:
B3: c24 r r0
L: ctus
S4: c45 d e [ d8 c ] b0 )~
L: -
A4: g95 )~
L: -
T4: e25 )~ e d4d [ c8 b a ] g4
L: ctus, San--
B4: @+2.8 (~ g43 f e f g0 )~
L: San-
BC: c03 g
% Bar 9
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
S2: c25 r r0
L: ctus
A2: g25 r r0
L: ctus
T2: e25 r r0
L: ctus
B2: c23 r r0
L: ctus
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: c25 r r4 cd c8 b4
L: ctus Do-mi-nus
A4: e45 ed e8 d4 e2 g
L: ctus Do-mi-nus De-us,
T4: g24 r r4 e+d e8 d4
L: ctus Do-mi-nus
B4: c43 c+d c8 b4 c2 g
L: ctus Do-mi-nus De-us,
BC: c43 c2 b4 c2 g
% Bar 10
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
S4: c25 (~ [ g8 a ] b4 )~ a2d a4
L: De-us Sa-ba-
A4: r4 g45d g8 g4 e fs ed e8
L: Do-mi-nus De-us Sa-ba-
T4: e25 d c4s d2 c4
L: De-us Sa--ba-
B4: r4 c44d c8 g4 a fs ad a8
L: Do-mi-nus De-us Sa-ba-
BC: c23d g4+ a fs a2
% Bar 11
S1: d25 d4 d d c bd a8
L: Ple-ni sunt cae---
A1: f25s f4 f (~ g0 sl
L: Ple-ni sunt cae-
T1: a24 a4 a g a bd c8
L: Ple-ni sunt cae----
B1: d23 d4 d g0
L: Ple-ni sunt cae-
S2: XS5 r0 d25 d4 d
L: Ple-ni sunt
A2: XS5 r0 g25 g4 g
L: Ple-ni sunt
T2: XS5 r0 b24 b4 b
L: Ple-ni sunt
B2: XS5 r0 g23 g4 g
L: Ple-ni sunt
S3: a24 a4 a (~ b c dd c8
L: Ple-ni sunt cae-
A3: f25s f4 f g0
L: Ple-ni sunt cae-
T3: d25 d4 d b a g2
L: Ple-ni sunt cae---
B3: d23 d4 d (~ g0 sl
L: Ple-ni sunt cae-
S4: a04 b2 b4 b
L: oth Ple-ni sunt
A4: d05 g2 g4 g
L: oth Ple-ni sunt
T4: d05 d2 d4 g-
L: oth Ple-ni sunt
B4: d03 g2- g4 g
L: oth Ple-ni sunt
BC: d03 g- s
% Bar 12
S1: b04 b2 b
L: -li et
A1: g05 s )~ g2 d
L: li et
T1: d05 d
L: li et
B1: g03 g-
L: li et
S2: (~ d45 c bd a8 b0 )~
L: cae-
A2: g05 g2 g
L: cae-li et
T2: (~ g44 a bd c8 d2 )~ ( g-
L: cae-li
B2: g02 (~ g+ sl
L: cae-li
S3: b04 )~ g2d b4
L: li et
A3: d05 g
L: li et
T3: g04 (~ b4 c d2 )~
L: li et
B3: g03 s )~ g2 g-
L: li et
S4: b44 c d2 b g4 ( g
L: cae---li et ter-
A4: g45 d2 b d g4
L: cae-li ple-ni sunt
T4: b44 a g2 gd ( g4
L: cae---li et
B4: g02 g2 g
L: cae-li et
BC: g02 s g
% Bar 13
S1: (~ c45 d ed d8 c0 )~
L: ter-
A1: (~ g45 f ed f8s g0 )~
L: ter-
T1: (~ e45 d cd d8 e2 e- )~
L: ter-
B1: @-2 c92
L: ter-
S2: g24 c c4 d e2
L: li et ter---
A2: g95
L: ter-
T2: g24 ) g c (~ g4d a8
L: et ter-ra
B2: g23 s )~ g g0
L: et ter-
S3: e95
L: ter-
A3: (~ e45 f gd f8 e4 d c g+ )~
L: ter-
T3: c95
L: ter-
B3: c93
L: ter-
S4: g44 ) e2 g g4 g2
L: ra, et ter-ra
A4: g45 c2- c4 c2 c
L: cae-li et ter-ra
T4: g44 ) cd d8 e4 e2 r
L: ter---ra
B4: g02 g2 r
L: ter-ra
BC: c93
% Bar 14
S1: d45 g-d g8 a4 a2 a
L: ra glo-ri-a tu-a
A1: g45 dd d8 f4 e2 f
L: ra glo-ri-a tu-a
T1: b44 bd b8 d4 d cs d2
L: ra glo-ri-a tu--a
B1: @+3.8 g42 g+d g8 d4 a2+ d-
L: ra glo-ri-a tu-a
S2: b24 r r r4 ( d
L: ra glo-
A2: g25 r r r4 ( f
L: ra glo-
T2: b24 )~ r r r4 ( a
L: glo-
B2: g23 r r r4 ( d
L: ra glo-
S3: d25 r r0
L: ra
A3: g25 r r0
L: ra
T3: b24 r r0
L: ra
B3: g22 r r0
L: ra
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: g22 g4+ d a2+ d- s
% Bar 15
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
S2: d85 ) d c4 b2 cs r
L: ri-a tu-a
A2: f85 ) f a4 a gs a2 r
L: ri-a tu--a
T2: a84 ) a e4+ e2 e r
L: ri-a tu-a
B2: d83 ) d a4 e2+ a- r
L: ri-a tu-a
S3: XS2 r2 r4 b44 ad a8 a4 g
L: O-san-na in ex-
A3: XS2 r2 r4 e45 ed e8 f4 e
L: O-san-na in ex-
T3: XS2 r2 r4 e45 cds c8 d8 b ( c4
L: O-san-na in ex-cel--
B3: XS2 r2 r4 e43 ad a8 d4- e
L: O-san-na in ex-
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
BC: d43 s a e2+ a- d4 e
% Bar 16
S1: XS4 r0 r2 r4 d45
L: O-
A1: XS4 r0 r2 r4 f45s
L: O-
T1: XS4 r0 r2 r4 a44
L: O-
B1: XS4 r0 r2 r4 d43
L: O-
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
S3: g24 g r0
L: cel-sis
A3: d25 d r0
L: cel-sis
T3: c45 ) b c2 r0
L: -sis
B3: g23 c- r0
L: cel-sis
S4: r4 d45 cd c8 d4 b a2
L: O-san-na in ex-cel-
A4: r4 g45 ed e8 g4 g f2s
L: O-san-na in ex-cel-
T4: r4 b44 gd g8 b4 d d2
L: O-san-na in ex-cel-
B4: r4 g42 cd c8 b4 g d2+
L: O-san-na in ex-cel-
BC: g43 g- c2 b4 g d2+
% Bar 17
S1: [ d85 c b a ] b2 r0
L: san-na
A1: d25 d r0
L: san-na
T1: [ b84 a g f oes-15 ] g2 r0
L: san-na
B1: g23 g- r0
L: san-na
S2: r4 d45 [ d8 c b a ] b0
L: O-san-na
A2: r4 g45 g2 d0
L: O-san-na
T2: r4 b44 [ b8 a g f oes-15 ] g0
L: O-san-na
B2: r4 g42 g2+ g0-
L: O-san-na
S3: XS3 r2 r4 d45 [ d8 c b a ] b2
L: O-san-na
A3: XS3 r2 r4 g45 g2 d
L: O-san-na
T3: XS3 r2 r4 b44 [ b8 a g f oes-15 ] g2
L: O-san-na
B3: XS3 r2 r4 g42 g2+ g-
L: O-san-na
S4: g04 r4 d+ [ d8 c ] b4
L: sis O-san--
A4: g05 r4 g g2
L: sis O-san-
T4: d05 r4 b [ b8 a ] g4
L: sis O-san--
B4: g02 r4 g g2+
L: sis O-san-
BC: g92
% Bar 18
S1: r4 e45 d2 { d0
L: in ex-cel-
A1: r4 g25 g4 { f0s
L: in ex-cel-
T1: r4 c45 b2 { a0
L: in ex-cel-
B1: r4 c43 g2+ { d0
L: in ex-cel-
S2: r4 c45 d2 { d0
L: in ex-cel-
A2: XS5 r0 r4 d25 e4
L: in ex-
T2: r4 g24 g4 a0
L: in ex-cel-
B2: XS2 r2 r4 d43 d0
L: in ex-
S3: XS4 r0 a24d a4
L: in ex-
A3: XS4 r0 d25d d4
L: in ex-
T3: XS4 r0 f44s g ( a2
L: in ex cel-----
B3: XS4 r0 d23d d4
L: in ex-
S4: c45 g2 d+ [ c8 b ] a4 ( a
L: na, o-san---na
A4: g45 g2 d4 d2 d
L: na in ex-cel-sis
T4: g44 g2 g4 f2s f
L: na in ex-cel-sis
B4: c43 c g2 { d0+
L: in ex--cel-
BC: c23 g d0+ s
% Bar 19
S1: m8200 d05 } \chl6\ r9bd
L: sis.
A1: m8200 f05 } \chl9\ r9bd
L: sis.
T1: m8200 a04 } \chl4\ r9db
L: sis.
B1: m8200 d03 } \chl7\ r9db
L: sis.
S2: m8200 d05 } \chl4\ r9db
L: sis.
A2: m8200 f05s \chl6\ r9db
L: cel-sis.
T2: m8200 (~ d25d c4 )~ \chl4\ r9db
L: sis. ~
B2: m8200 d03 \chl4\ r9db
L: cel-sis.
S3: m8200 a04 \chu2\ r9db
L: cel-sis.
A3: m8200 d05 \chl6\ r9db
L: cel-sis.
T3: m8200 a44 ) [ b8 c ] d4 d- \chu{-1}\ r9db
L: ---sis.
B3: m8200 d03 (~ d2 b4d a8 g9 )~
L: cel-sis.
S4: m8200 a44 ) a2 d4 d0 \chl6\ r9b
L: in ex-cel-sis.
A4: m8200 [ d85 e f oes-15 g ] a4 d- \chl6\ r9db
L: in ex-cel-sis.
T4: m8200 d44 d d2 (~ d e4 fs g9 )~
L: in ex-cel-sis.
B4: m8200 d03 } \chu0\ r9db
L: sis.
BC: m8200 d03 s \chu0\ r9db
Style: Bass
Bass: Voices BC ; Clefs F
Meter: m4206
%Pages: 8
%Systems: 8
Bars/line: 3
Size: 20
%% \def\writebarno{\ifnum\barno>1\lrlap{\tenrm\it\the\barno\barnoadd}\fi}
%% \def\raisebarno{4mm}
%% \raggedbottom
%% \parskip 9\Interligne plus 7\Interligne minus 7\Interligne
%% \input musixadd
%% \input musixuad
%% \input musixlit
%% \tenbf
%% P2
%% Ab
%% h290m
%% \\let\interstaffsav\interstaff\def\interstaff#1{}\interstaffsav{8.6}\
% Bar 1
%% \\\roffset{79.5}{\zcharnote{306}{\medtype\bf 1}}\
%% \\setinterinstrument{1}{3.2mm}\
%% \\setinterinstrument{5}{3.5mm}\
%% \\setinterinstrument{9}{3.5mm}\
%% \\setinterinstrument{13}{3.5mm}\
BC: g03 g2- b
% Bar 2
BC: c23 e d0
% Bar 3
BC: g23d f4s e f g2 s
% Bar 4
BC: g23 s fs g0
% Bar 5
BC: c23d b4 a2 b
% Bar 6
BC: c23 d g0-
% Bar 7
BC: c23 a d g-
% Bar 8
BC: c03 g
% Bar 9
BC: c43 c2 b4 c2 g
% Bar 10
BC: c23d g4+ a fs a2
% Bar 11
BC: d03 g- s
% Bar 12
BC: g02 s g
% Bar 13
BC: c93
% Bar 14
BC: g22 g4+ d a2+ d- s
% Bar 15
BC: d43 s a e2+ a- d4 e
% Bar 16
BC: g43 g- c2 b4 g d2+
% Bar 17
BC: g92
% Bar 18
BC: c23 g d0+ s
% Bar 19
BC: m8200 d03 s \chu0\ r9db
Style: Q1
Q1: Voices S1 A1 T1 B1 ; Clefs G G8 G8 F ; Choral
Meter: m4206
%Pages: 8
%Systems: 8
Bars/line: 3
Size: 20
%% \def\writebarno{\ifnum\barno>1\lrlap{\tenrm\it\the\barno\barnoadd}\fi}
%% \def\raisebarno{4mm}
%% \raggedbottom
%% \parskip 9\Interligne plus 7\Interligne minus 7\Interligne
%% \input musixadd
%% \input musixuad
%% \input musixlit
%% \tenbf
%% P2
%% Ab
%% h290m
%% \\let\interstaffsav\interstaff\def\interstaff#1{}\interstaffsav{8.6}\
% Bar 1
%% \\\roffset{79.5}{\zcharnote{306}{\medtype\bf 1}}\
%% \\setinterinstrument{1}{3.2mm}\
%% \\setinterinstrument{5}{3.5mm}\
%% \\setinterinstrument{9}{3.5mm}\
%% \\setinterinstrument{13}{3.5mm}\
S1: d25d c4 b2 d
L: San---ctus
A1: XS3 r0 (~ g25d f4
L: San-
T1: r9
L:
B1: r9
L:
% Bar 2
S1: (~ c45 b b [ a8 g ] a0 )~
L: San-
A1: e45 fs g0 f2 )~
L: -
T1: XS6 r0 d25d c4
L: San---
B1: r9
L:
% Bar 3
S1: b04 r
L: ctus
A1: g05 r
L: ctus
T1: b24 d (~ c4 b b [ a8 g ]
L: -ctus San-
B1: @+2.8 (~ g23d f4s e f ( g2
L: San-
% Bar 4
S1: d25d c4 b2 d
L: San---ctus,
A1: XS3 r0 g25d f4
L: San---
T1: a04 )~ b
L: ctus,
B1: g23 ) fs )~ g0
L: ctus,
% Bar 5
S1: (~ c25d d4 e2 b
L: San-
A1: e25 g r (~ fs
L: -ctus, San-
T1: e25d d4 c2 d
L: San---ctus,
B1: (~ c23d b4 a2 b
L: San-
% Bar 6
S1: a04 )~ b
L: ctus
A1: [ e85 f ] g2 f4s )~ g0
L: ctus
T1: c45d b8 a4 d d0
L: San----ctus
B1: c23 d )~ g0-
L: ctus
% Bar 7
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
% Bar 8
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
% Bar 9
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
% Bar 10
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
% Bar 11
S1: d25 d4 d d c bd a8
L: Ple-ni sunt cae---
A1: f25s f4 f (~ g0 sl
L: Ple-ni sunt cae-
T1: a24 a4 a g a bd c8
L: Ple-ni sunt cae----
B1: d23 d4 d g0
L: Ple-ni sunt cae-
% Bar 12
S1: b04 b2 b
L: -li et
A1: g05 s )~ g2 d
L: li et
T1: d05 d
L: li et
B1: g03 g-
L: li et
% Bar 13
S1: (~ c45 d ed d8 c0 )~
L: ter-
A1: (~ g45 f ed f8s g0 )~
L: ter-
T1: (~ e45 d cd d8 e2 e- )~
L: ter-
B1: @-2 c92
L: ter-
% Bar 14
S1: d45 g-d g8 a4 a2 a
L: ra glo-ri-a tu-a
A1: g45 dd d8 f4 e2 f
L: ra glo-ri-a tu-a
T1: b44 bd b8 d4 d cs d2
L: ra glo-ri-a tu--a
B1: @+3.8 g42 g+d g8 d4 a2+ d-
L: ra glo-ri-a tu-a
% Bar 15
S1: r9
L:
A1: r9
L:
T1: r9
L:
B1: r9
L:
% Bar 16
S1: XS4 r0 r2 r4 d45
L: O-
A1: XS4 r0 r2 r4 f45s
L: O-
T1: XS4 r0 r2 r4 a44
L: O-
B1: XS4 r0 r2 r4 d43
L: O-
% Bar 17
S1: [ d85 c b a ] b2 r0
L: san-na
A1: d25 d r0
L: san-na
T1: [ b84 a g f oes-15 ] g2 r0
L: san-na
B1: g23 g- r0
L: san-na
% Bar 18
S1: r4 e45 d2 { d0
L: in ex-cel-
A1: r4 g25 g4 { f0s
L: in ex-cel-
T1: r4 c45 b2 { a0
L: in ex-cel-
B1: r4 c43 g2+ { d0
L: in ex-cel-
% Bar 19
S1: m8200 d05 } \chl6\ r9bd
L: sis.
A1: m8200 f05 } \chl9\ r9bd
L: sis.
T1: m8200 a04 } \chl4\ r9db
L: sis.
B1: m8200 d03 } \chl7\ r9db
L: sis.
Style: Q2
Q2: Voices S2 A2 T2 B2 ; Clefs G G8 G8 F ; Choral
Meter: m4206
%Pages: 8
%Systems: 8
Bars/line: 3
Size: 20
%% \def\writebarno{\ifnum\barno>1\lrlap{\tenrm\it\the\barno\barnoadd}\fi}
%% \def\raisebarno{4mm}
%% \raggedbottom
%% \parskip 9\Interligne plus 7\Interligne minus 7\Interligne
%% \input musixadd
%% \input musixuad
%% \input musixlit
%% \tenbf
%% P2
%% Ab
%% h290m
%% \\let\interstaffsav\interstaff\def\interstaff#1{}\interstaffsav{8.6}\
% Bar 1
%% \\\roffset{79.5}{\zcharnote{306}{\medtype\bf 1}}\
%% \\setinterinstrument{1}{3.2mm}\
%% \\setinterinstrument{5}{3.5mm}\
%% \\setinterinstrument{9}{3.5mm}\
%% \\setinterinstrument{13}{3.5mm}\
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
% Bar 2
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
% Bar 3
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
% Bar 4
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
% Bar 5
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
% Bar 6
S2: XS8 r0 (~ d45 c b [ c8 d ]
L: San-
A2: XS4 r2 (~ d45 c b c d2 )~
L: San-
T2: XS8 r0 (~ b44 a g [ a8 b ]
L: San-
B2: XS8 r0 r2 @+2.8 (~ g43 f
L: San-
% Bar 7
S2: e25 )~ e r (~ b4 a
L: ctus San-
A2: g25 r r0
L: ctus
T2: c25 )~ c r0
L: ctus
B2: e43 [ f8 g ] a2 )~ d- g
L: ctus, San-ctus
% Bar 8
S2: g44 [ a8 b ] c4 gd [ a8 b c ] d2 )~
L: -
A2: (~ e45 f g2d [ f8 e ] d4 g )~
L: San-
T2: (~ e45 d c [ b8 a ] b0 )~
L: San-
B2: c03 g
L: ctus, San-
% Bar 9
S2: c25 r r0
L: ctus
A2: g25 r r0
L: ctus
T2: e25 r r0
L: ctus
B2: c23 r r0
L: ctus
% Bar 10
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
% Bar 11
S2: XS5 r0 d25 d4 d
L: Ple-ni sunt
A2: XS5 r0 g25 g4 g
L: Ple-ni sunt
T2: XS5 r0 b24 b4 b
L: Ple-ni sunt
B2: XS5 r0 g23 g4 g
L: Ple-ni sunt
% Bar 12
S2: (~ d45 c bd a8 b0 )~
L: cae-
A2: g05 g2 g
L: cae-li et
T2: (~ g44 a bd c8 d2 )~ ( g-
L: cae-li
B2: g02 (~ g+ sl
L: cae-li
% Bar 13
S2: g24 c c4 d e2
L: li et ter---
A2: g95
L: ter-
T2: g24 ) g c (~ g4d a8
L: et ter-ra
B2: g23 s )~ g g0
L: et ter-
% Bar 14
S2: b24 r r r4 ( d
L: ra glo-
A2: g25 r r r4 ( f
L: ra glo-
T2: b24 )~ r r r4 ( a
L: glo-
B2: g23 r r r4 ( d
L: ra glo-
% Bar 15
S2: d85 ) d c4 b2 cs r
L: ri-a tu-a
A2: f85 ) f a4 a gs a2 r
L: ri-a tu--a
T2: a84 ) a e4+ e2 e r
L: ri-a tu-a
B2: d83 ) d a4 e2+ a- r
L: ri-a tu-a
% Bar 16
S2: r9
L:
A2: r9
L:
T2: r9
L:
B2: r9
L:
% Bar 17
S2: r4 d45 [ d8 c b a ] b0
L: O-san-na
A2: r4 g45 g2 d0
L: O-san-na
T2: r4 b44 [ b8 a g f oes-15 ] g0
L: O-san-na
B2: r4 g42 g2+ g0-
L: O-san-na
% Bar 18
S2: r4 c45 d2 { d0
L: in ex-cel-
A2: XS5 r0 r4 d25 e4
L: in ex-
T2: r4 g24 g4 a0
L: in ex-cel-
B2: XS2 r2 r4 d43 d0
L: in ex-
% Bar 19
S2: m8200 d05 } \chl4\ r9db
L: sis.
A2: m8200 f05s \chl6\ r9db
L: cel-sis.
T2: m8200 (~ d25d c4 )~ \chl4\ r9db
L: sis. ~
B2: m8200 d03 \chl4\ r9db
L: cel-sis.
Style: Q3
Q3: Voices S3 A3 T3 B3 ; Clefs G G8 G8 F ; Choral
Meter: m4206
%Pages: 8
%Systems: 8
Bars/line: 3
Size: 20
%% \def\writebarno{\ifnum\barno>1\lrlap{\tenrm\it\the\barno\barnoadd}\fi}
%% \def\raisebarno{4mm}
%% \raggedbottom
%% \parskip 9\Interligne plus 7\Interligne minus 7\Interligne
%% \input musixadd
%% \input musixuad
%% \input musixlit
%% \tenbf
%% P2
%% Ab
%% h290m
%% \\let\interstaffsav\interstaff\def\interstaff#1{}\interstaffsav{8.6}\
% Bar 1
%% \\\roffset{79.5}{\zcharnote{306}{\medtype\bf 1}}\
%% \\setinterinstrument{1}{3.2mm}\
%% \\setinterinstrument{5}{3.5mm}\
%% \\setinterinstrument{9}{3.5mm}\
%% \\setinterinstrument{13}{3.5mm}\
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 2
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 3
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 4
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 5
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 6
S3: XS8 r0 r2 (~ b44 a
L: San-
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 7
S3: g44 [ a8 b ] c2 )~ d0
L: ctus
A3: (~ g45 f e [ f8 g ] a2 g )~
L: San-
T3: (~ e45 d c [ d8 e ] f4 )~ d r2
L: San-ctus
B3: XS3 r2 @+2.8 (~ a43 g f [ g8 a ] b2 )~
L: San-
% Bar 8
S3: r9
L:
A3: g05 r
L: ctus
T3: r9
L:
B3: c24 r r0
L: ctus
% Bar 9
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 10
S3: r9
L:
A3: r9
L:
T3: r9
L:
B3: r9
L:
% Bar 11
S3: a24 a4 a (~ b c dd c8
L: Ple-ni sunt cae-
A3: f25s f4 f g0
L: Ple-ni sunt cae-
T3: d25 d4 d b a g2
L: Ple-ni sunt cae---
B3: d23 d4 d (~ g0 sl
L: Ple-ni sunt cae-
% Bar 12
S3: b04 )~ g2d b4
L: li et
A3: d05 g
L: li et
T3: g04 (~ b4 c d2 )~
L: li et
B3: g03 s )~ g2 g-
L: li et
% Bar 13
S3: e95
L: ter-
A3: (~ e45 f gd f8 e4 d c g+ )~
L: ter-
T3: c95
L: ter-
B3: c93
L: ter-
% Bar 14
S3: d25 r r0
L: ra
A3: g25 r r0
L: ra
T3: b24 r r0
L: ra
B3: g22 r r0
L: ra
% Bar 15
S3: XS2 r2 r4 b44 ad a8 a4 g
L: O-san-na in ex-
A3: XS2 r2 r4 e45 ed e8 f4 e
L: O-san-na in ex-
T3: XS2 r2 r4 e45 cds c8 d8 b ( c4
L: O-san-na in ex-cel--
B3: XS2 r2 r4 e43 ad a8 d4- e
L: O-san-na in ex-
% Bar 16
S3: g24 g r0
L: cel-sis
A3: d25 d r0
L: cel-sis
T3: c45 ) b c2 r0
L: -sis
B3: g23 c- r0
L: cel-sis
% Bar 17
S3: XS3 r2 r4 d45 [ d8 c b a ] b2
L: O-san-na
A3: XS3 r2 r4 g45 g2 d
L: O-san-na
T3: XS3 r2 r4 b44 [ b8 a g f oes-15 ] g2
L: O-san-na
B3: XS3 r2 r4 g42 g2+ g-
L: O-san-na
% Bar 18
S3: XS4 r0 a24d a4
L: in ex-
A3: XS4 r0 d25d d4
L: in ex-
T3: XS4 r0 f44s g ( a2
L: in ex cel-----
B3: XS4 r0 d23d d4
L: in ex-
% Bar 19
S3: m8200 a04 \chu2\ r9db
L: cel-sis.
A3: m8200 d05 \chl6\ r9db
L: cel-sis.
T3: m8200 a44 ) [ b8 c ] d4 d- \chu{-1}\ r9db
L: ---sis.
B3: m8200 d03 (~ d2 b4d a8 g9 )~
L: cel-sis.
Style: Q4
Q4: Voices S4 A4 T4 B4 ; Clefs G G8 G8 F ; Choral
Meter: m4206
%Pages: 8
%Systems: 8
Bars/line: 3
Size: 20
%% \def\writebarno{\ifnum\barno>1\lrlap{\tenrm\it\the\barno\barnoadd}\fi}
%% \def\raisebarno{4mm}
%% \raggedbottom
%% \parskip 9\Interligne plus 7\Interligne minus 7\Interligne
%% \input musixadd
%% \input musixuad
%% \input musixlit
%% \tenbf
%% P2
%% Ab
%% h290m
%% \\let\interstaffsav\interstaff\def\interstaff#1{}\interstaffsav{8.6}\
% Bar 1
%% \\\roffset{79.5}{\zcharnote{306}{\medtype\bf 1}}\
%% \\setinterinstrument{1}{3.2mm}\
%% \\setinterinstrument{5}{3.5mm}\
%% \\setinterinstrument{9}{3.5mm}\
%% \\setinterinstrument{13}{3.5mm}\
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 2
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 3
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 4
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 5
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 6
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 7
S4: XS3 r2 (~ c45 b a [ b8 c ] d2
L: San-
A4: XS8 r0 (~ f45d e8 d4 [ e8 f ]
L: San-
T4: XS8 r0 (~ d45 c b [ c8 d ]
L: San-
B4: r9
L:
% Bar 8
S4: c45 d e [ d8 c ] b0 )~
L: -
A4: g95 )~
L: -
T4: e25 )~ e d4d [ c8 b a ] g4
L: ctus, San--
B4: @+2.8 (~ g43 f e f g0 )~
L: San-
% Bar 9
S4: c25 r r4 cd c8 b4
L: ctus Do-mi-nus
A4: e45 ed e8 d4 e2 g
L: ctus Do-mi-nus De-us,
T4: g24 r r4 e+d e8 d4
L: ctus Do-mi-nus
B4: c43 c+d c8 b4 c2 g
L: ctus Do-mi-nus De-us,
% Bar 10
S4: c25 (~ [ g8 a ] b4 )~ a2d a4
L: De-us Sa-ba-
A4: r4 g45d g8 g4 e fs ed e8
L: Do-mi-nus De-us Sa-ba-
T4: e25 d c4s d2 c4
L: De-us Sa--ba-
B4: r4 c44d c8 g4 a fs ad a8
L: Do-mi-nus De-us Sa-ba-
% Bar 11
S4: a04 b2 b4 b
L: oth Ple-ni sunt
A4: d05 g2 g4 g
L: oth Ple-ni sunt
T4: d05 d2 d4 g-
L: oth Ple-ni sunt
B4: d03 g2- g4 g
L: oth Ple-ni sunt
% Bar 12
S4: b44 c d2 b g4 ( g
L: cae---li et ter-
A4: g45 d2 b d g4
L: cae-li ple-ni sunt
T4: b44 a g2 gd ( g4
L: cae---li et
B4: g02 g2 g
L: cae-li et
% Bar 13
S4: g44 ) e2 g g4 g2
L: ra, et ter-ra
A4: g45 c2- c4 c2 c
L: cae-li et ter-ra
T4: g44 ) cd d8 e4 e2 r
L: ter---ra
B4: g02 g2 r
L: ter-ra
% Bar 14
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 15
S4: r9
L:
A4: r9
L:
T4: r9
L:
B4: r9
L:
% Bar 16
S4: r4 d45 cd c8 d4 b a2
L: O-san-na in ex-cel-
A4: r4 g45 ed e8 g4 g f2s
L: O-san-na in ex-cel-
T4: r4 b44 gd g8 b4 d d2
L: O-san-na in ex-cel-
B4: r4 g42 cd c8 b4 g d2+
L: O-san-na in ex-cel-
% Bar 17
S4: g04 r4 d+ [ d8 c ] b4
L: sis O-san--
A4: g05 r4 g g2
L: sis O-san-
T4: d05 r4 b [ b8 a ] g4
L: sis O-san--
B4: g02 r4 g g2+
L: sis O-san-
% Bar 18
S4: c45 g2 d+ [ c8 b ] a4 ( a
L: na, o-san---na
A4: g45 g2 d4 d2 d
L: na in ex-cel-sis
T4: g44 g2 g4 f2s f
L: na in ex-cel-sis
B4: c43 c g2 { d0+
L: in ex--cel-
% Bar 19
S4: m8200 a44 ) a2 d4 d0 \chl6\ r9b
L: in ex-cel-sis.
A4: m8200 [ d85 e f oes-15 g ] a4 d- \chl6\ r9db
L: in ex-cel-sis.
T4: m8200 d44 d d2 (~ d e4 fs g9 )~
L: in ex-cel-sis.
B4: m8200 d03 } \chu0\ r9db
L: sis.
-------------------------------
TeX-music@tug.org mailing list
If you want to unsubscribe or look at the archives, go to
http://tug.org/mailman/listinfo/tex-music
