import WikiScore
import Stave
import Abc
----------------------------------------------------------------------------------------------
--------------------- RAPSÓDIA PORTUGUESA ----------------------------------------------------
----------------------------------------------------------------------------------------------
-- Prj attributes
namespace = A "namespace" "lima"
musicby = "Antonio Thomaz de Lima"
title = A "title" "Rapsódia Portuguesa"
facsimile = A "facsimile" "https://www.di.uminho.pt/~jno/WS/ATLima_Rapsodia.pdf"
latex = A "latex" "%%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%%setfont-1 Arial-Bold 17\n%%measurebox true\n%%measurenb\t0\n%%scale\t\t0.5\n%%begintext justify\nRAPSÓDIA PORTUGUESA\n%%endtext\n"
introd = A "Introduction" "TBC wikipedia: António Tomás de Lima (Lisboa, 1887 — 1950) foi um compositor, violinista e maestro, que se distinguiu como professor do Conservatório Nacional de Lisboa nas classes de Violino e Direcção de Orquestra e, mais tarde, de Composição e Música de Câmara. Foi concertista de grande mérito, com uma carreira de solista com grande incidência no Brasil.\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
pt01 = Prt 1 "treble" "Violino I" "Vl.I" (Mid "1" "40") []
pt02 = Prt 2 "treble" "Violino II" "Vl. II" (Mid "1" "40") []
pt03 = Prt 3 "alto" "Viola" "Va" (Mid "1" "41") []
pt04 = Prt 4 "bass" "Cello" "Vc." Unspec []
pt05 = Prt 5 "bass" "Basso" "B." (Mid "1" "42") []
pt06 = Prt 6 "treble" "Piano" "P." (Mid "1" "1") []
pt07 = Prt 7 "bass" "" "" (Mid "1" "1") [A "obs" "bass of 26"]
-- Prj Stave
base = [ Sq [ br [1,2], the 3, the 4, the 5, br [6,7] ] ]
-- Prj Sections
-- abbreviations
fla = 1
amb = 9
jos = 10
ray = 11
can = 12
cor = 13
pft = [7,8]
strings = [2..6]
bss = 6
status = A "status" "under edition"
-- Part 1 --------------------------------------------------------------
s1= Sct "Moderadamente" 1
(Sel [1..7])
(MLK "4/8" "1/4" "B") [ A "fol." $ gurl "2", status ]
s2= Sct "Ns.1-4" 2
(Sel [1..7])
(MLK "4/8" "1/4" "B") [ A "fol." $ gurl "3", status ]
s3= Sct "N.5 Lentamente" 3
(Sel [1..7])
(MLK "6/8" "1/4" "D") [ A "fol." $ gurl "10", status ]
s4= Sct "N.6 Mais lentamente" 4
(Sel [1..7])
(MLK "6/8" "1/4" "D") [ A "fol." $ gurl "12", status ]
s5= Sct "N.7 Um pouco mais..." 5
(Sel [1..7])
(MLK "6/8" "1/4" "D") [ A "fol." $ gurl "15", status ]
s6= Sct "Ns.8-9" 6
(Sel [1..7])
(MLK "2/4" "1/4" "D") [ A "fol." $ gurl "18", status ]
s7= Sct "N.10 Moderado" 7
(Sel [1..7])
(MLK "2/4" "1/4" "D") [ A "fol." $ gurl "23", status ]
s8= Sct "N.11 Expressivo" 8
(Sel [1..7])
(MLK "C" "1/4" "A") [ A "fol." $ gurl "25", status ]
s9= Sct "N.12" 9
(Sel [1..7])
(MLK "2/4" "1/4" "A") [ A "fol." $ gurl "28", status ]
s10= Sct "N.13-14" 10
(Sel [1..7])
(MLK "2/4" "1/4" "A") [ A "fol." $ gurl "30", status ]
s11= Sct "N.15 Mais lento" 11
(Sel [1..7])
(MLK "2/4" "1/4" "A") [ A "fol." $ gurl "36", status ]
s12= Sct "N.16 No movimento do Fado" 12
(Sel [1..7])
(MLK "2/4" "1/4" "A") [ A "fol." $ gurl "40", status ]
s13= Sct "N.17 Com animação" 13
(Sel [1..7])
(MLK "C" "1/4" "B") [ A "fol." $ gurl "43", status ]
s14= Sct "N.18-19" 14
(Sel [1..7])
(MLK "C" "1/4" "B") [ A "fol." $ gurl "46", status ]
-- the END -------------------------------------------------------------
prj = initWSPproject
"lima"
musicby
[ title, facsimile, namespace, introd , latex ]
[ pt01 , pt02 , pt03 , pt04 , pt05 , pt06 , pt07 ]
[ s1 , s2 , s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14 ]
base
main = prj2jsonFile prj
-- checking invariants
ok = (matrixOk prj) && (riSP prj) && (riSS prj)
-- Helper functions
gurl s = url (facfol s) s
where facfol s = "https://www.di.uminho.pt/~jno/WS/ATLima_Rapsodia.pdf"++"#page="++s
-- done
|
Back to project index