import WikiScore
import Stave
import Abc
----------------------------------------------------------------------------------------------
--------------------- Sinfonia in D# a 8 voci -------------------------------------------------
----------------------------------------------------------------------------------------------
-- Prj attributes
namespace = A "namespace" "perez"
musicby = "Davide Perez (1711-1778)"
title = A "title" "Sinfonia in D# a 8 voci"
facsimile = A "facsimile" "http://utiledulci.musikverket.se/pic/O-R/P/Perez,%20D/Sinfonia,%20%5BD%5D/Perez_Sinfonia_a_6_%5BD%5D.pdf"
introd = A "Introduction" "[[http://en.wikipedia.org/wiki/Davide_Perez|Davide Perez]] (1711-1778) was an Italian composer born in Naples who from 1752 onwards became resident court composer at Lisbon. Perez\nwas ranked in his time one of the greatest Italian composers. He staged three operas on librettos of Metastasio at Lisbon with huge success in 1753, 1754, and 1755, the year of\nthe Lisbon earthquake. In his late years Perez turned from opera more to church music. (Adapted from the Wikipedia and other sources.)\n\nThis [[http://utiledulci.musikverket.se/UD_select.php?lang=en&id=8705&t=composer&Comp1=Perez,%20David|Sinfonia in D# a 8 voci]] is available from [[http://utiledulci.musikverket.se/index.php?lang=en|Utile Dulci collection]]. There are several autographs for the parts. The two flutes were probably added later, as they do not appear in the original score.\n"
-- Prj Parts
pt1 = Prt 1 "treble" "Cornu Primo [in D.]" "Cor.1" (Mid "1" "69") [ A "transpose" "2"]
pt2 = Prt 2 "treble" "Cornu Secondo [in D.]" "Cor.2" (Mid "1" "69") [ A "transpose" "2"]
pt3 = Prt 3 "treble" "Flauto Primo" "Fl.1" (Mid "1" "73") []
pt4 = Prt 4 "treble" "Flauto Secondo" "Fl.2" (Mid "1" "73") []
pt5 = Prt 5 "treble" "Violino Primo" "Vl.1" (Mid "1" "40") []
pt6 = Prt 6 "treble" "Violino Secondo" "Vl.2" (Mid "1" "40") []
pt7 = Prt 7 "alto" "Viola" "Va" (Mid "1" "41") []
pt8 = Prt 8 "bass" "Basso" "B." (Mid "1" "43") []
-- Prj Stave
base = [ Sq [ pa [1,2], pa [3,4], br [5,6], the 7, the 8 ] ]
-- Prj Sections
s1= Sct "Allegro [assai]" 1
All
(MLK "C|" "1/4" "D") [ A "fol." "1", hw ]
s2= Sct "Alla Francese" 2
(Sel [3..8])
(MLK "3/8" "1/8" "F") [ A "fol." "6", hw ]
s3= Sct "Minuetto" 3
All
(MLK "3/4" "1/4" "D") [ A "fol." "9", hw ]
-- where
status = A "status" "under edition" -- default
hw = A "status" "half-way"
js = A "status" "just started"
vo = A "status" "void"
-- Abbreviations
-- Main
prj = initWSPproject
"perez"
musicby
[ title, facsimile, namespace, introd ]
[ pt1 , pt2 , pt3 , pt4 , pt5 , pt6 , pt7 , pt8 ]
[s1, s2, s3]
base
main = prj2jsonFile prj
-- checking invariants
ok = (matrixOk prj) && (riSP prj) && (riSS prj) && (matts prj)
-- Helper functions
-- done
