import WikiScore
import Stave
import Abc
----------------------------------------------------------------------------------------------
------------------------ Tantum Ergo, Kyrie, Gloria e Credo --------------------------------
----------------------------------------------------------------------------------------------
-- Prj attributes
namespace = A "namespace" "carvalho"
musicby = "Carvalho, Jo\\~ao de Sousa (1745-1798)"
title = A "title" "Kyrie, Gloria"
facsimile = A "facsimile" "http://purl.pt/29187/4"
--libreto = A ""
latex = A "latex" ""
introd = A "Introduction" "João de Sousa Carvalho (22 February 1745 – c. 1798) was the foremost Portuguese composer of his generation. (To be completed.)\n"
-- Prj Parts
pt1 = Prt 1 "treble" "Oboe I" "Ob.I" (Mid "1" "68") []
pt2 = Prt 2 "treble" "Oboe II" "Ob.II" (Mid "1" "68") []
pt3 = Prt 3 "bass" "Corni I" "Cor.I" (Mid "1" "69") []
pt4 = Prt 4 "bass" "Corni II" "Cor.II" (Mid "1" "69") []
pt5 = Prt 5 "treble" "Tromba I" "Trb. I" (Mid "1" "56") []
pt6 = Prt 6 "treble" "Tromba II" "Trb.II" (Mid "1" "56") []
pt7 = Prt 7 "treble" "Violini I" "Vl.I" (Mid "1" "40") []
pt8 = Prt 8 "treble" "Violini II" "Vl. II" (Mid "1" "40") []
pt9 = Prt 9 "alto" "Viole" "V." (Mid "1" "41") []
pt10 = Prt 10 "bass" "[Basso]" "B." (Mid "1" "42") []
pt11 = Prt 11 "alto1" "Soprano" "S." Unspec []
pt12 = Prt 12 "alto" "Contralto" "C." Unspec []
pt13 = Prt 13 "tenor" "Tenore" "T." Unspec []
pt14 = Prt 14 "bass" "Basso" "B." Unspec []
--
-- Prj Stave
base = [ Sq [ pa [1,2], pa [3,4], pa [5,6], br [7,8], the 9, sq [11,12,13,14], the 10 ] ]
-- Prj Sections
status = A "status" "just started"
shiftedBy n k = gurl (show (n+k)) (show n)
gurl s t = url (facfol s) t
where facfol s = "https://purl.pt/29187/4/mm-5016_PDF/mm-5016_PDF_24-C-R0150/mm-5016_0000_capa-capa_t24-C-R0150.pdf"++"#page="++s
-- Sections
s1= Sct "[Kyrie]" 1
All
(MLK "C" "1/4" "C")
[ A "fol." $ 4 `shiftedBy` 0, status ]
s2= Sct "Gloria" 2
All
(MLK "C" "1/4" "G")
[ A "fol." $ 30 `shiftedBy` 0, status ]
-- the END
-- abbreviations
prj = initWSPproject
"carvalho"
musicby
[ title, facsimile, namespace, introd, latex ]
[ pt1, pt2, pt3, pt4, pt5, pt6, pt7, pt8, pt9, pt10, pt11, pt12, pt13, pt14 ]
[ s1, s2 ]
base
main = prj2jsonFile prj
-- checking invariants
ok = (matrixOk prj) && (riSP prj) && (riSS prj) && (matts prj)
|
Back to project index