Te Deum : a 8 voci con Strumenti

Specification

import WikiScore
import Stave
import Abc

----------------------------------------------------------------------------------------------
------------------------  Te Deum : a 8 voci con Strumenti -----------------------------------
----------------------------------------------------------------------------------------------
-- Prj attributes
namespace = A "namespace" "totti"
musicby   = "Giuseppe Totti (17__-1832)"
title     = A "title" "Te Deum : a 8 voci con Strumenti"
facsimile = A "facsimile" "https://www4.di.uminho.pt/~jno/WS/fcr-216-73_0000.pdf"
--facsimile = A "facsimile" "https://purl.pt/32941/2/
--libreto   = A ""
latex     = A "latex" ""
introd = A "Introduction" "(TBC) From the score: \"All attual servizio di S. M. Fedelis.ma in qualità di Soprano. Esequito p[er] ordine del Eminentiss.mo Sig.re Cardilale [Cardinale] Bellisomi per il Solennis.mo rendimento di grazie a Dio del felice nascimento di S. A. R. Il Sig. D. Antonio Principe della Beira, nella Chiesa di N. S.ra di Loreto in Lisbona\""

-- Prj Parts
-- Prima orchestra
pt1  = Prt  1 "bass"     "Corno in Elafa [I]"    "Cor.I"  (Mid "1" "69") []
pt2  = Prt  2 "bass"     "Corno in Elafa [II]"   "Cor.II" (Mid "1" "69") []
pt3  = Prt  3 "treble"   "Oboe I"     "Ob.I"   (Mid "1" "68") []
pt4  = Prt  4 "treble"   "Oboe II"    "Ob.II"  (Mid "1" "68") []
pt5  = Prt  5 "treble"   "Violini Primo"  "Vl.I"   (Mid "1" "40") []
pt6  = Prt  6 "treble"   "Violini Secondo" "Vl. II" (Mid "1" "40") []
pt7  = Prt  7 "alto"     "Viola"      "V."     (Mid "1" "41") []
pt8  = Prt  8 "bass"     "Bassi"    "B."     (Mid "1" "42") []
---
pt9 = Prt 9 "bass"     "Violoncello Oblig.to"    "V.ob."     (Mid "1" "42") []
-- S.da orchestra
pt10 = Prt 10 "treble"   "Tromba in B fa [I]"   "Trb. I" (Mid "1" "56") []
pt11 = Prt 11 "treble"   "Tromba in B fa [II]"  "Trb.II" (Mid "1" "56") []
pt12 = Prt 12 "treble"   "Flauto [I]"           "Fl.I"   (Mid "1" "73") []
pt13 = Prt 13 "treble"   "Flauto [II]"          "Fl.II"  (Mid "1" "73") []
pt14 = Prt 14 "bass"     "Fagotto [I]"          "Fg. I"  (Mid "1" "68") []
pt15 = Prt 15 "bass"     "Fagotto [II]"         "Fg. II" (Mid "1" "68") []
pt16 = Prt 16 "treble"   "Violino Primo"        "Vl.I"   (Mid "1" "40") []
pt17 = Prt 17 "treble"   "Violini Secondo"      "Vl. II" (Mid "1" "40") []
pt18 = Prt 18 "alto"     "Viola"      "V."     (Mid "1" "41") []
pt19 = Prt 19 "bass"     "Bassi"                "B."     (Mid "1" "42") []
-- ..........
pt20 = Prt 20 "bass"     "Timpano"              "T."      Unspec        []
-- soloists
pt21 = Prt 21 "alto1"    "Canto P.mo"           "C.I"     Unspec  []
pt22 = Prt 22 "alto1"    "Canto S.do"           "C.II"    Unspec  []
pt23 = Prt 23 "alto"     "Alto P.mo"            "A.I"     Unspec  []
pt24 = Prt 24 "alto"     "Alto S.do"            "A.II"    Unspec  []
pt25 = Prt 25 "tenor"    "Tenore"               "T."      Unspec  []
pt26 = Prt 26 "bass"     "Basso"                "B."      Unspec  []
-- Primo coro
pt27 = Prt 27 "alto1"    "Canto"                 "C."     Unspec  []
pt28 = Prt 28 "alto"     "Alto"                  "A."     Unspec  []
pt29 = Prt 29 "tenor"    "Tenore"                "T."     Unspec  []
pt30 = Prt 30 "bass"     "Basso"                 "B."     Unspec  []
-- S.do coro
pt31 = Prt 31 "alto1"    "Canto"                 "C."     Unspec  []
pt32 = Prt 32 "alto"     "Alto"                  "A."     Unspec  []
pt33 = Prt 33 "tenor"    "Tenore"                "T."     Unspec  []
pt34 = Prt 34 "bass"     "Basso"                 "B."     Unspec  []
--

-- Prj Stave

base = [ Sq -- prima orchestra
            [ pa [1,2], pa [3,4], br [5,6], the 7, the 8, the 9 ],
         Sq -- seconda orchestra
            [ pa [10,11], pa [12,13], pa [14,15], br [16,17], the 18, the 19 ],
         the 20,
         Sq [ sq [ 21 .. 26 ]],
         Sq [ sq [ 27 .. 30 ]],
         Sq [ sq [ 31 .. 34 ]]
       ]

-- 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://www4.di.uminho.pt/~jno/WS/fcr-216-73_0000.pdf"++"#page="++s

-- Sections

s1= Sct "[Orchestras]" 1
        (Sel [1..19])
        (MLK "C" "1/4" "Bb")
        [ A "fol." $ 1 `shiftedBy` 3, status ]

s2= Sct "O Salutaris" 2
        (Sel $ [10,11,1,2,13,14,3,4,14,15,5,6,7,21] ++ [27 .. 34] ++ [8,19])
        (MLK "3/4" "1/4" "Eb")
        [ A "fol." $ 30 `shiftedBy` 3, status ]

s3= Sct "Te Deum" 3
        (Sel $ [10,11,1,2,12,13,3,4,14,15,5,6,7,20] ++ [27 .. 34] ++ [8,19])
        (MLK "C" "1/4" "D")
        [ A "fol." $ 49 `shiftedBy` 3, status ]

s4= Sct "Tibi omnes" 4
        (Sel [])
        (MLK "C" "1/4" "A")
        [ A "fol." $ 82 `shiftedBy` 3, status ]

s5= Sct "Sanctus" 5
        (Sel [])
        (MLK "C" "1/4" "Bb")
        [ A "fol." $ 87 `shiftedBy` 3, status ]

s6= Sct "Te gloriósus" 6
        (Sel [])
        (MLK "C" "1/4" "F")
        [ A "fol." $ 98 `shiftedBy` 3, status ]

s7= Sct "Te per orbem" 7
        (Sel [])
        (MLK "C" "1/4" "C")
        [ A "fol." $ 118 `shiftedBy` 3, status ]

s8= Sct "Tu Rex" 8
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 131 `shiftedBy` 3, status ]

s9= Sct "Tu, devicto" 9
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 141 `shiftedBy` 3, status ]

s10= Sct "Judex" 10
        (Sel [])
        (MLK "C" "1/4" "Eb")
        [ A "fol." $ 151 `shiftedBy` 3, status ]

s11= Sct "Aeterna fac" 11
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 161 `shiftedBy` 3, status ]

s12= Sct "Et rege" 12
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 182 `shiftedBy` 3, status ]

s13= Sct "Et laudamus" 13
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 197 `shiftedBy` 3, status ]

s14= Sct "Fiat misericordia" 14
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 204 `shiftedBy` 3, status ]

s15= Sct "In te" 15
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 207 `shiftedBy` 3, status ]

s16= Sct "Tantum ergo" 16
        (Sel [])
        (MLK "C" "1/4" "G")
        [ A "fol." $ 224 `shiftedBy` 3, status ]

-- the END

-- abbreviations

prj = initWSPproject
         "totti"
         musicby 
         [ title, facsimile, namespace, introd, latex ]
         [ pt1, pt2, pt3, pt4, pt5, pt6, pt7, pt8, pt9, pt10, pt11, pt12, pt13, pt14, pt15, pt16, pt17, pt18, pt19, pt20, pt21, pt22, pt23, pt24, pt25, pt26, pt27, pt28, pt29, pt30, pt31, pt32, pt33, pt34 ]
         [ s1, s2, s3, s4, s5, s6, s7, s8, s9, s10  ]
         base

main = prj2jsonFile prj

-- checking invariants

ok = (matrixOk prj) && (riSP prj) && (riSS prj) && (matts prj)

| Back to project index