====== Demetrio a Rodi ======
===== Specification =====
import WikiScore
import Stave
import Abc
----------------------------------------------------------------------------------------------
--------------------- DEMETRIO A RODI ---------------------------------------------------------
----------------------------------------------------------------------------------------------
-- Prj attributes
namespace = A "namespace" "demetrio"
musicby = "Pugnani, Gaetano (1731-1798)"
title = A "title" "Demetrio a Rodi"
--facsimile = A "facsimile" "http://purl.pt/16734/1/P5.html"
facsimile = A "facsimile" "http://www3.di.uminho.pt/~jno/WS/fcr-171_0000_capa-capa_t24-C-R0150.pdf"
libreto = A "libreto" "http://books.google.pt/books?id=oQVEAAAAcAAJ&pg=PR8&lpg=PR8&dq=Demetrio+a+Rodi+Pugnani&source=bl&ots=PrQNLetc-s&sig=Rb3dK07KEIedQxcPpDV5mq18YcE&hl=en&ei=b9ciTvOwFI-7hAe7tICnAw&sa=X&oi=book_result&ct=result&redir_esc=y#v=onepage&q&f=false"
latex = A "latex" "\n%%pageheight\t29.7cm\n%%pagewidth\t21cm\n%%topmargin\t3cm\n%%botmargin\t2cm\n%%leftmargin\t1cm\n%%rightmargin\t1cm\n%%gchordfont Times-Roman 14\n%%titlefont Times-Roman 30\n%%subtitlefont Times-Roman 20\n%%composerfont Times-Italics 16\n%%measurebox true\n%%measurenb\t0\n%%scale\t\t0.7\n%%begintext justify\nDEMETRIO // A RODI // FESTA PER MUSICA // DA RAPPRESENTARSI NEL REGIO TEATRO // DI TORINO // PER LE NOZZE DELLE LL. AA. RR. VITTORIO EMANUELE // DUCA D' AOSTA // E // MARIA TERESA // ARCIDUCHESSA D'AUSTRIA // L'ANNO MDCCLXXXIX. // IN TORINO // Presso Onorato Derossi Librajo della Societa // de' Signori Cavalieri.\n%%endtext\n\n"
introd = A "Introduction" "Welcome to //Demetrio a Rodi//, a project of the **WikiScore** platform for cooperative edition of large scale scores using [[http://abcnotation.com/wiki/abc:standard:v2.1|ABC]] notation. This case study is the modern edition of an opera by Gaetano Pugnani (1731-1798) [[http://en.wikipedia.org/wiki/Gaetano_Pugnani|(Wikipedia)]] [[http://en.wikisource.org/wiki/Page:A_Dictionary_of_Music_and_Musicians_vol_3.djvu/57|(Grove)]] whose manuscript can be found in the National Library ([[http://purl.pt/index/geral/PT/index.html|Biblioteca Nacional Digital]]) in Lisbon. This opera was performed in the marriage of [[http://en.wikipedia.org/wiki/Maria_Theresa_of_Austria-Este_%281773%E2%80%931832%29|Maria Theresa of Austria-Este]] with [[http://en.wikipedia.org/wiki/Victor_Emmanuel_I_of_Sardinia|Victor Emmanuel]] (future king Victor Emmanuel I) which took place on the 25th April 1789. The libretto (48p., entitled [[http://books.google.pt/books?id=H6OcHAAACAAJ&dq=inauthor:%22Giuseppe+Banti%22&hl=pt-pt&ei=brSbTdmIIIiEhQeT3qXTBg&sa=X&oi=book_result&ct=result&resnum=2&ved=0CCwQ6AEwAQ|Demetrio a Rodi: festa per musica da rappresentarsi nel Regio teatro di Torino per le nozze delle LL. AA. RR. Vittorio Emanuele]]) is by Giandomenico Boggio and Giuseppe Banti. It was published by //Presso O. Derossi//, 1789. A digital copy of this libretto can be found in the [[https://opacplus.bsb-muenchen.de/InfoGuideClient/singleHit.do?methodToCall=showHit&curPos=31&identifier=-1_FT_1521600090&tab=showWeblinksActive|Public Bayerische Staatsbibliothek]]. **About the manuscript score:** The manuscript score is part of the music collection of the House of Marqueses de Borba, known as [[http://pt.wikipedia.org/wiki/Conde_de_Redondo|Conde de Redondo]] fund. This collection includes around 2600 specimen, essentially manuscript (often autograph) scores by more than 200 composers, mostly Portuguese.\n\nTo obtain the current version of the whole score press button \"Build!\" at the bottom-right corner of the matrix below.\n"
-- Prj Parts
pt1 = Prt 1 "alto" "Corno I" "Cor.I" (Mid "1" "69") []
pt2 = Prt 2 "alto" "Corno II" "Cor. II" (Mid "1" "69") []
pt3 = Prt 3 "treble" "Tromba I" "Trb. I" (Mid "1" "56") []
pt4 = Prt 4 "treble" "Tromba II" "Trb.II" (Mid "1" "56") []
pt5 = Prt 5 "treble" "Flauta I" "Fl.I" (Mid "1" "73") []
pt6 = Prt 6 "treble" "Flauta II" "Fl.II" (Mid "1" "73") []
pt7 = Prt 7 "treble" "Clarinete I" "Cl. I" (Mid "1" "71") []
pt8 = Prt 8 "treble" "Clarinete II" "Cl.II" (Mid "1" "71") []
pt9 = Prt 9 "treble" "Oboe I" "Ob.I" (Mid "1" "68") []
pt10 = Prt 10 "treble" "Oboe II" "Ob.II" (Mid "1" "68") []
pt11 = Prt 11 "treble" "Violini I" "Vl.I" (Mid "1" "40") []
pt12 = Prt 12 "treble" "Violini II" "Vl. II" (Mid "1" "40") []
pt13 = Prt 13 "alto" "Viole" "Ve" (Mid "1" "41") []
pt14 = Prt 14 "bass" "[Basso]" "B." (Mid "1" "42") []
pt15 = Prt 15 "alto1" "Canto" "C." Unspec []
pt16 = Prt 16 "alto" "Alto" "A." Unspec []
pt17 = Prt 17 "tenor" "Tenore" "T." Unspec []
pt18 = Prt 18 "bass" "Basso" "B." Unspec []
pt19 = Prt 19 "tenor" "Demetrio" "Dem." Unspec []
pt20 = Prt 20 "alto1" "Euridice" "Eur." Unspec []
pt21 = Prt 21 "alto1" "Eumene" "Eum." Unspec []
pt22 = Prt 22 "alto1" "Emirena" "Emi." Unspec []
pt23 = Prt 23 "tenor" "Detti" "De." Unspec []
pt24 = Prt 24 "alto1" "Antandro" "Ant." Unspec []
pt25 = Prt 25 "alto1" "Apolline" "Apo." Unspec []
pt26 = Prt 26 "treble" "Arpa" "Ar." (Mid "1" "46") []
pt27 = Prt 27 "bass" "" "" (Mid "1" "46") [A "obs" "bass of 26"]
pt28 = Prt 28 "bass" "Timpani" "Ti." (Mid "1" "47") []
-- Prj Stave
met = Sq [ pa [1,2], pa [3,4] ]
mad = Sq [ pa [5,6], pa [7,8], pa [9,10] ]
str = Sq [ br [11,12], the 13 ]
coro = sq [15,16,17,18]
pers = sq [20,21,22,24,25,19,23]
bass = Sq [ br [26,27], the 14 ]
-- old base = [ met, mad, the 28, str, pers, coro, bass ]
base = [ Sq [ pa [1,2], pa [3,4], pa [5,6], pa [7,8], pa [9,10], the 28, br [11,12], the 13, coro, pers, br [26,27], the 14 ] ]
-- dparts = mflatten base
-- Prj Sections
-- gurl n t = url (facfol n) t where facfol x = "http://purl.pt/16734/1/P"++x++".html"
status = A "status" "under edition"
shiftedBy n k = gurl (show (n+k)) (show n)
gurl s t = url (facfol s) t
where facfol s = "http://www3.di.uminho.pt/~jno/WS/fcr-171_0000_capa-capa_t24-C-R0150.pdf"++"#page="++s
-- Sections
s1= Sct "Overtura" 1
(Sel [1..18])
(MLK "C" "1/4" "D") [ A "fol." $ 1 `shiftedBy` 5, status ]
s2= Sct "Demetrio ed Euridice" 2
(Sel [19,20,bss])
(MLK "C" "1/4" "C") [ A "scene" "Scena I", A "fol." $ 41 `shiftedBy` 7, status ]
s3= Sct "Marcia" 3
(Sel $ trom++corn++obo++strings)
(MLK "2/4" "1/4" "D") [ A "marcia" "[Marcia]", A "fol." $ 44 `shiftedBy` 7, status ]
s4= Sct "Demetrio ed Euridice" 4
(Sel [19,20,bss])
Free [ A "scene" "Scena I (cont.)", A "fol." $ 48 `shiftedBy` 7, status ]
s5= Sct "Eumene, e Detti, poi Emirena" 5
(Sel $ [eum,det,emi,bss])
Free [ A "scene" "Scena II", A "fol." $ 49 `shiftedBy` 7, status ]
s6= Sct "Aria Euridice" 6
(Sel $ [1,2,7,8,9,10]++strings++[eur])
(MLK "4/4" "1/4" "Bb") [ A "aria" "Aria Euridice", A "fol." $ 53 `shiftedBy` 8, status ]
s7= Sct "Scena 3.a [Demetrio, Emirena, Eumene]" 7
(Sel $ [dem,eum,emi,bss])
Free [ A "scene" "Scena 3.a Demetrio, Emirena, Eumene", A "fol." $ 77 `shiftedBy` 8, status ]
s8= Sct "Emirena, Eumene" 8
(Sel $ [eum,emi,bss])
Free [ A "scene" "Scena 4.a Emirena, Eumene", A "fol." $ 80 `shiftedBy` 9, status ]
s9= Sct "Aria Emirena" 9
(Sel $ corn++obo++strings++[emi])
(MLK "C" "1/4" "C") [ A "aria" "Aria Emirena", A "fol." $ 82 `shiftedBy` 9, status ]
s10= Sct "Scena 5.a Antandro e Demetrio" 10
(Sel $ [ant,dem,bss])
Free [ A "scene" "Scena 5.a Antandro e Demetrio", A "fol." $ 101 `shiftedBy` 10, status ]
s11= Sct "Aria Demetrio" 11
(Sel $ corn++obo++strings++[dem]) -- verificar
(MLK "C" "1/4" "Bb") [ A "aria" "Aria Demetrio", A "fol." $ 107 `shiftedBy` 10, status ]
s12= Sct "Scena Sesta" 12
(Sel $ corn++obo++strings++[5,ant])
(MLK "4/4" "1/4" "D") [ A "scene" "Scena Sesta", A "fol." $ 130 `shiftedBy` 11, status ]
s13= Sct "Scena 7.a" 13
(Sel $ corn++obo++cla++strings++[eur,ant,dem,bss])
Free [ A "scene" "Scena Sesta", A "fol." $ 151 `shiftedBy` 12, status ]
--
-- end of Act 1
--
s14= Sct "Scena prima [Eumene poi Emirena]" 14
(Sel $ [eum,emi,bss])
Free [ A "scene" "Scena prima", A "fol." "191", status ]
s15= Sct "Eumene" 15
(Sel $ trom++obo++strings++[eum])
(MLK "C" "1/4" "D") [ A "aria" "Eumene", A "fol." "194", status ]
s16= Sct "Scena 2.a [Emirena poi Demetrio]" 16
(Sel $ [emi,dem,bss])
Free [ A "scene" "Scena 2.a - Emirena poi Demetrio", A "fol." "214", status ]
s17= Sct "Scena 3.a [Emirena poi Euridice]" 17
(Sel $ [emi,eur,bss])
Free [ A "scene" "Scena 3.a - Emirena poi Euridice", A "fol." "215", status ]
s18= Sct "Scena 4.a" 18 -- includes the Rondo
(Sel $ corn++obo++strings++[eur,ant,bss])
Free [ A "scene" "Scena 4.a - Euridice poi Antandro", A "fol." "216", status ]
--------- FALTA CENA 5a fol.237 --------------------------
s19= Sct "Scena 5.a [Euridice]" 19
(Sel $ corn++obo++strings++[eur])
(MLK "C" "1/4" "Eb") [ A "scene" "Scena 5.a", A "fol." "237", status ]
----------------------------------------------------------
s20= Sct "Cavatina" 20
(Sel $ 7:14:eur:hrp)
(MLK "2/4" "1/4" "Bb") [ A "section" "Cavatina - Euridice", A "fol." "243", status ]
s21= Sct "Coro" 21
(Sel $ corn++fla++trom++strings++cho)
(MLK "2/4" "1/4" "C") [ A "section" "Coro", A "fol." "248", status ]
s22= Sct "Andante [Euridice]" 22
(Sel $ 11:12:eur:bss:hrp)
(MLK "3/4" "1/4" "Eb") [ A "section" "Euridice", A "fol." "255", status ]
s23= Sct "Coro" 23
(Sel $ corn++strings++cho)
(MLK "3/8" "1/8" "Cm") [ A "coro" "Coro", A "fol." "257", status ]
s24= Sct "[Euridice]" 24
(Sel $ eur:corn++obo++strings)
(MLK "4/4" "1/4" "Eb") [ A "recit" "Euridice", A "fol." "259", status ]
s25= Sct "Aria Euridice" 25
(Sel $ eur:corn++obo++strings)
(MLK "4/4" "1/4" "A") [ A "aria" "Aria Euridice", A "fol." "263", status ]
s26= Sct "Scena 6.a [Aria Emirena]" 26
(Sel $ emi:ant:corn++obo++strings)
(MLK "C" "1/4" "C") [ A "aria" "Emirena", A "fol." "287", status ] -- then Eb in the aria
s27= Sct "Scena 7.a Antandro poi Demetrio" 27
(Sel $ ant:dem:bss:[])
Free [ A "scene" "Scena 7.a Antandro poi Demetrio", A "fol." "304", status ]
s28= Sct "Scena 8.a" 28
(Sel $ eur:ant:bss:[])
Free [ A "scene" "Scena 8.a", A "fol." "306", status ]
s29= Sct "[Demetrio]" 29
(Sel $ dem:strings++obo++corn)
(MLK "C" "1/4" "D") [ A "aria" "[Demetrio]", A "fol." "307", status ]
s30= Sct "Scena 9.a - Euridice ed Antandro" 30
(Sel $ eur:ant:[bss])
Free [ A "scene" "Scena 9.a - Euridice ed Antandro", A "fol." "323", status ]
s31= Sct "Scena 10.a - Antandro ed Emirena" 31
(Sel $ emi:ant:corn++obo++strings)
(MLK "C" "1/4" "Bb") [ A "scene" "Scena 10.a - Antandro ed Emirena", A "fol." "324", status ] -- then M:2/4
s32= Sct "Scena Undecima - Emirena poi Eumene" 32
(Sel $ emi:eum:[bss])
Free [ A "scene" "Scena Undecima - Emirena poi Eumene", A "fol." "333", status ]
s33= Sct "Marcia" 33
(Sel $ trom++corn++obo++[tim]++strings)
(MLK "2/4" "1/4" "D") [ A "march" "Marcia", A "fol." "334", status ]
s34= Sct "Coro" 34
(Sel $ corn++obo++cla++strings++cho)
(MLK "C" "1/4" "E") [ A "coro" "Coro", A "fol." "337", status ]
s35= Sct "[Demetrio, Antandro]" 35
(Sel $ 5:dem:ant:corn++obo++strings) -- 5 = Flauta solo
Free [ A "section" "[Demetrio, Antandro]", A "fol." "348", status ]
s36= Sct "Scena ultima [Aria Apolline]" 36
(Sel $ apo:tim:fla++corn++trom++obo++strings)
(MLK "C" "1/4" "C") [ A "scene" "Scena ultima [Aria Apolline]", A "fol." "352", status ]
s37= Sct "Scena ultima [Aria Demetrio]" 37
(Sel $ dem:corn++obo++strings)
(MLK "C" "1/4" "A") [ A "scene" "Scena ultima [Aria Demetrio]", A "fol." "371", status ]
s38= Sct "Rondo [Euridice]" 38
(Sel $ eur:corn++obo++cla++strings)
(MLK "C" "1/4" "E") [ A "scene" "Rondo [Euridice]", A "fol." "375", status ]
s39= Sct "[Demetrio]" 39
(Sel $ dem:bss:[])
Free [ A "scene" "[Demetrio]", A "fol." "395", status ]
s40= Sct "Coro [Antandro, Demetrio, Euridice, Emirena, Eumene]" 40
(Sel $ ant:dem:eur:emi:eum:corn++trom++cla++obo++strings++cho)
(MLK "4/4" "1/4" "D") [ A "coro" "Coro [Antandro, Demetrio, Euridice, Emirena, Eumene]", A "fol." "396", status ]
--- NB: esta 41 juntou à 40 ---------------------
s41= Sct "[To be removed]" 41
(Sel $ ant:dem:eur:emi:eum:corn++obo++strings)
(MLK "C" "1/4" "D") [ A "scene" "[to be removed]", A "fol." "402", status ]
--- 41 vai desaparecer --------------------------
-- the END
-- abbreviations
ant = 24
apo = 25
bss = 14
cho = [15..18]
corn = [1,2]
cla = [7,8]
dem = 19
det = 23
emi = 22
eum = 21
eur = 20
hrp = [26..27]
fla = [5..6]
obo = [9,10]
strings = [11..14]
trom = [3,4]
tim = 28
prj = initWSPproject
"demetrio"
musicby
[ title, facsimile, libreto, namespace, introd, latex ]
[ pt1 , pt10 , pt11 , pt12 , pt13 , pt14 , pt15 , pt16 , pt2 ,
pt3 , pt4 , pt5 , pt6 , pt7 , pt8 , pt9, pt17, pt18,
pt19, pt20, pt21, pt22, pt23 , pt24 , pt25, pt26, pt27, pt28 ]
(act1++act2)
base
where act1 = [ s1, s5, s3, s4 , s2, s6, s7, s8, s9 , s10, s11, s12, s13 ]
act2 = [ s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25,
s26, s27, s28, s29, s30, s31, s32, s33, s34, s35, s36, s37,
s38, s39, s40, s41 ]
main = prj2jsonFile prj
-- checking invariants
ok = (matrixOk prj) && (riSP prj) && (riSS prj) && (matts prj)
--introd = A "Introduction" "Welcome to //Demetrio a Rodi//, a project of the **WikiScore** platform for cooperative edition of large scale scores using [[http://abcnotation.com/wiki/abc:standard:v2.1|ABC]] notation. This case study is the modern edition of an opera by Gaetano Pugnani (1731-1798) [[http://en.wikipedia.org/wiki/Gaetano_Pugnani|(Wikipedia)]] [[http://en.wikisource.org/wiki/Page:A_Dictionary_of_Music_and_Musicians_vol_3.djvu/57|(Grove)]] whose manuscript can be found in the National Library ([[http://purl.pt/index/geral/PT/index.html|Biblioteca Nacional Digital]]) in Lisbon. The libretto (48p., entitled [[http://books.google.pt/books?id=H6OcHAAACAAJ&dq=inauthor:%22Giuseppe+Banti%22&hl=pt-pt&ei=brSbTdmIIIiEhQeT3qXTBg&sa=X&oi=book_result&ct=result&resnum=2&ved=0CCwQ6AEwAQ|Demetrio a Rodi: festa per musica da rappresentarsi nel Regio teatro di Torino per le nozze delle LL. AA. RR. Vittorio Emanuele]]) is by Giandomenico Boggio and Giuseppe Banti. It was published by //Presso O. Derossi//, 1789. A digital copy of this libretto can be found in the [[https://opacplus.bsb-muenchen.de/InfoGuideClient/singleHit.do?methodToCall=showHit&curPos=31&identifier=-1_FT_1521600090&tab=showWeblinksActive|Public Bayerische Staatsbibliothek]]. **About the manuscript score:** The manuscript score is part of the music collection of the House of Marqueses de Borba, known as [[http://pt.wikipedia.org/wiki/Conde_de_Redondo|Conde de Redondo]] fund. This collection includes around 2600 specimen, essentially manuscript (often autograph) scores by more than 200 composers, mostly Portuguese.\n"
|
[[demetrio:index|Back to project index]]