#TITLE Goldberg-Variationen, BWV 988: Aria da Capo e Fine #ARTIST Johann Sebastian BACH #COMMENT https://imslp.org/wiki/Special:ReverseLookup/229423 (pp.57-58) $REPEAT=2; $M{s,t}=%t24%s24%t%112; $P{s,t}=%s24%t24%s24%t8; $K{s,t}=%s8%t8; $KK{s,t}=%s4%t4; $MKK{s,t}=%s4%t24%s24%t%160; $S{s,t}=%s16%t8.; $K3{s,t,u}=%s16%t16%u8; $T{s,t,u}=%s24%u24%t24%u8; $I{s,t,u}=%s%24%u%22%t%20%u%18%s%17%u%16/:%s%15/%u%15://:5%u%14/%s%14:/; $I2{s,t,u}=%s16%u16%t24/:5%u/24%s24:/; $II{s,t}=%s4/:3%t24%s24:/%t4; $q{s}=q16@q1%sq16@q2; $SND=@1-0@f1,0,93,50@e1,1,0,127,1/:1@e1,0,5000,0,1x2:/@v127@x80$q{}; L1.T120/:$REPEAT/:30r://rr:/T118r%368T114r%245T108r%164T100r%109T90r%73T78r%48T64r%32T48r%22T15r%91; $SND /:$REPEATo4L1.g f+ e L4d&1c >b1. g2.b.a4b b4a b.L4agf+ e1d2 c1>b2 abab2 bebb1. a2.gf+e daba gbag f+dgbd g2.d/>g2<:/$q{>g2} ; $SND /:$REPEATo4L2rb1 ra1 rg1 rf+1 rd1 re.r bagf+ef+ L4gab1 r2b1 a2r1 rba1 rba$P{a,g}f+g2 ra$P{a,g}f+gb r1rd+ e2r1 .e1 /:7 r1. :/<:/ ; $SND /:$REPEATo5L2rrd rrd rrc+ rr>a rrg rra r1. r1. rra4b4a .g1 r1>a .f+4$K{e,d}L8ef+gf+g 2e4a4c>ba/b1<:/$q{b1} ; $SND /:$REPEATo6L8g2g2$M{g,a}b a4$K{g,f+}$K{e,d}&2. >$M{f+,g}&8$I{a,f+,g}f+g L16agf+8gf+L8e$KK{e,d}&2 b,a}&2$T{b,g}f+4$MKK{f+,g}&4 b2b2$M{>b,ba&1 r%0a2&16b16bagf+e4$K{bab2/:$REPEAT$M{g,a}&8$I2{b,g,a}8L16abb}$KK{a,g}&4b4$K3{bL16bab $S{gf+e r/*f+*/4.b,a}&2b8b8ba8$KK{a,g}&4L8ab bar/*e*/abar/*f+*/abbabgr/*d*/gbr/*g*/g<*/cer/*c*/f+g ac>babgbagf+ g&2dgf+/$KK{f+,g}:/$q{"$KK{f+,g}"} ; $SND /:$REPEATo6L1/:9 r. :/ r2d r%12e%180r /:5r. :/:/ /:$REPEAT/:16r.:/:/ ; $SND /:$REPEATo5L1./:10 r :/ r%24b%168r1 /:5r :/:/ /:$REPEAT/:16r:/:/ ; #USING POLY 64 force