import WikiScore import Stave import Abc ---------------------------------------------------------------------------------------------- --------------------- Nanetta e Lubino -------------------------------------------------------- ---------------------------------------------------------------------------------------------- -- Prj attributes namespace = A "namespace" "nanetta" musicby = "Pugnani, Gaetano (1731-1798)" title = A "title" "Nanetta e Lubino" --facsimile = A "facsimile" "http://purl.pt/16734/1/P5.html" facsimile = A "facsimile" "http://petrucci.mus.auth.gr/imglnks/usimg/c/cc/IMSLP116865-PMLP237473-Pugnani_Overture_a_8_-to_Nanetta_e_Lubino-_-D-_print.pdf" libreto = A "libreto" "http://books.google.pt" 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 Nanetta e Lubino, a project of the WikiScore platform for cooperative edition of large scale scores using ABC notation. This case study is the modern edition of a comic opera by Gaetano Pugnani (1731-1798) (Wikipedia) (Grove). We are currently copying the Overture of this opera from the parts published by Welcker in Gerrard Street St. Ann's Soho around 1769.\n\nThe following multiple sources are available, manuscript score: HTML ; parts (original edition, 1769): HTML.\n\nTo obtain the current version of the whole score press button \8220Build\8221 at the bottom-right corner of the matrix below.\n”
– Prj Parts
pt1 = Prt 1 “treble” “Corno Primo [in D.]” “Cor.I” (Mid “1” “69”) [] pt2 = Prt 2 “treble” “Corno Secondo [in D.]” “Cor. II” (Mid “1” “69”) [] pt3 = Prt 3 “treble” “Oboe Primo” “Ob.I” (Mid “1” “68”) [] pt4 = Prt 4 “treble” “Oboe Secondo” “Ob.II” (Mid “1” “68”) [] pt5 = Prt 5 “treble” “Violino Primo” “Vl.I” (Mid “1” “40”) [] pt6 = Prt 6 “treble” “Violino Secondo” “Vl. II” (Mid “1” “40”) [] pt7 = Prt 7 “alto” “Viole” “Ve” (Mid “1” “41”) [] pt8 = Prt 8 “bass” “Basso” “B.” (Mid “1” “42”) [] pt9 = Prt 9 “bass” “Basso Cimbalo” “C.” (Mid “1” “7”) []
– Prj Stave
met = Sq [ pa [1,2] ] mad = Sq [ pa [3,4] ] str = Sq [ br [5,6], the 5, the 8 ] base = [ Sq [ pa [1,2], pa [3,4], br [5,6], the 7, the 8, the 9 ] ]
– 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://petrucci.mus.auth.gr/imglnks/usimg/c/cc/IMSLP116865-PMLP237473-Pugnani_Overture_a_8_-to_Nanetta_e_Lubino-_-D-_print.pdf"++"#page="++s
– Sections
s1= Sct “Overture” 1
(Sel [1..9]) (MLK "C" "1/4" "D") [ A "fol." $ 1 `shiftedBy` 5, status ]
s2= Sct “Andantino” 2
(Sel [1..9]) (MLK "3/4" "1/4" "D") [ A "fol." $ 1 `shiftedBy` 5, status ]
– the END
– abbreviations bss = 8 corn = [1,2] obo = [3,4] strings = [5..8]
prj = initWSPproject
"nanetta"
musicby
[ title, facsimile, libreto, namespace, introd, latex ]
[ pt1 , pt2, pt3, pt4 , pt5 , pt6 , pt7 , pt8 , pt9]
act1
base
where act1 = [ s1, s2 ]
main = prj2jsonFile prj
– checking invariants
ok = (matrixOk prj) && (riSP prj) && (riSS prj) && (matts prj)
</code> | Back to project index