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" "<code>\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 ABC notation. This case study is the modern edition of an opera by Gaetano Pugnani (1731-1798) (Wikipedia) (Grove) whose manuscript can be found in the National Library (Biblioteca Nacional Digital) in Lisbon. This opera was performed in the marriage of Maria Theresa of Austria-Este with Victor Emmanuel (future king Victor Emmanuel I) which took place on the 25th April 1789. The libretto (48p., entitled 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 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 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 ABC notation. This case study is the modern edition of an opera by Gaetano Pugnani (1731-1798) (Wikipedia) (Grove) whose manuscript can be found in the National Library (Biblioteca Nacional Digital) in Lisbon. The libretto (48p., entitled 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 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 Conde de Redondo fund. This collection includes around 2600 specimen, essentially manuscript (often autograph) scores by more than 200 composers, mostly Portuguese.\n”

</code> | Back to project index

You could leave a comment if you were logged in.
demetrio/spec.txt · Last modified: 2019/03/20 12:21 (external edit)
 
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki