{
If you are really, really curious, here is how to read my scores.
Notice:
The voices enter at random times — goto top or send pitop after label wait:
The bells are doubled by piano
The piece is restarted ( INCIPIT ) then there is a coda with a final cadence
}
const Bells=15;
const Organ=20;
const Piano=2;
ins_all = Bells
ins_45678 = Piano
vol_45678 = 35
names abc
wh 24
rand = time_3
tra_1 = 7
tra_2 = 5
durmod_all = 2
durmod_36 = 3
send 123 wait ;
send 8 pitop ;
sound 1238;
top:
{ ==== trei ====}
vol=38 c#6 /1 vol=38 bb6 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c7 c#7 )
vol=38 c7 /1
vvol rand and 31 + 32 7/8;
tril 4 ( bb6 1/1 a6 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#6 1/1 f6 e6 )
vol=38 f#6 /1 vol=38 a5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( a5 1/1 g5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f#5 )
vol=33 f#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f5 1/1 f#5 g5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f#5 f5 )
vol=38 g5 /1 vol=38 g5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#5 1/1 g5 ab5 )
vol=30 a5 /1 vol=38 bb5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 g5 f#5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#5 1/1 g5 ab5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f5 e5 d5 )
vol=38 g5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 g5 f#5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 g5 ab5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#5 1/1 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f5 1/1 e5 eb5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( eb5 e5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f5 1/1 e5 )
vol=30 g5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f#5 f5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f5 e5 d5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 f5 f#5 )
vol=30 f#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 f5 e5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f5 1/1 f#5 g5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f#5 )
vol=38 f#5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f5 e5 d5 )
vol=38 ab5 /1 vol=38 ab5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( ab5 1/1 g5 f#5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 ab5 )
vvol rand and 31 + 32 7/8;
tril 4 ( ab5 1/1 g5 f#5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 ab5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f5 e5 )
vvol rand and 31 + 32 7/8;
tril 4 ( e5 1/1 f5 g5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#5 1/1 g5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f#5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f5 e5 )
vol=34 e5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( e5 1/1 eb5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( eb5 e5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 eb5 )
vvol rand and 31 + 32 7/8;
tril 4 ( e5 1/1 eb5 d5 )
vol=38 bb4 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( a4 g4 f4 e4 )
vvol rand and 31 + 32 7/4;
tril 8 ( d4 2/1 e4 f4 g4 a4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( a4 ab4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab4 a4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( a4 ab4 )
vvol rand and 31 + 32 7/8;
tril 4 ( g4 1/1 a4 b4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( a4 ab4 )
vvol rand and 31 + 32 7/8;
tril 4 ( ab4 1/1 a4 )
vvol rand and 31 + 32 7/8;
tril 4 ( a4 1/1 ab4 )
vvol rand and 31 + 32 7/8;
tril 4 ( a4 1/1 g4 f4 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#4 1/1 g4 ab4 )
vvol rand and 31 + 32 7/8;
tril 4 ( ab4 1/1 g4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g4 ab4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab4 g4 f#4 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#4 1/1 g4 ab4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab4 g4 f#4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g4 ab4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab4 g4 )
vvol rand and 31 + 32 7/8;
tril 4 ( d5 1/1 e5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 d5 c5 b4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( d5 e5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( e5 1/1 d5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 g5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 a5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( a5 ab5 )
vol=38 g5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 ab5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 g5 )
vol=43 ab5 /1 vol=33 ab5 /1 vol=43 ab5 /1 vol=33 ab5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( ab5 1/1 a5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( a5 ab5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 a5 )
vol=63 a5 /1 vol=33 a5 /1 vol=34 a5 /1 vol=38 c6 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c#6 d6 )
vvol rand and 31 + 32 7/8;
tril 4 ( c6 1/1 b5 a5 )
vol=30 b5 /1 vol=30 c6 /1 vol=38 f6 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( f6 e6 d6 )
vol=38 f#6 /1 vol=38 ab6 /1 vol=38 f#6 /1 vol=38 f#6 /1 vol=38 d6 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( d6 c6 b5 a5 )
vvol rand and 31 + 32 7/8;
tril 4 ( a5 1/1 ab5 )
vvol rand and 31 + 32 7/8;
tril 4 ( b5 1/1 c6 )
vol=38 d6 /1 vol=38 c6 /1 vol=30 a5 /1 vol=38 a5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( a5 ab5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 a5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( a5 ab5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 a5 )
vol=38 ab5 /1 vol=30 ab5 /1 vol=38 ab5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( ab5 1/1 g5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 ab5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( ab5 g5 )
vol=30 g5 /1 vol=38 g5 /1
vvol rand and 31 + 32 7/2;
fit 4/1 ( a5 g5 f5 e5 d5 c5 b4 a4 g4 f4 e4 d4 c4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 g5 )
vol=38 g5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 f5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f5 e5 )
vvol rand and 31 + 32 7/4;
fit 2/1 ( e5 d5 c5 b4 a4 )
vvol rand and 31 + 32 21/8;
tril 12 ( e5 3/1 d5 c5 b4 a4 g4 f4 e4 d4 c4 b3 )
vvol rand and 31 + 32 7/8;
tril 4 ( c#5 1/1 d5 eb5 )
vol=38 c#5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( c5 1/1 b4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( c5 b4 bb4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( bb4 b4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( b4 bb4 )
vol=30 c#5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( d5 1/1 c5 b4 a4 )
vvol rand and 31 + 32 7/4;
fit 2/1 ( g4 a4 b4 c5 d5 e5 )
vol=34 eb5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( d5 c5 b4 )
vvol rand and 31 + 32 7/8;
tril 4 ( b4 1/1 c5 d5 )
vvol rand and 31 + 32 7/8;
tril 4 ( d5 1/1 e5 f5 )
vvol rand and 31 + 32 7/4;
fit 2/1 ( f5 e5 d5 c5 b4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( b4 c5 d5 e5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f5 f#5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 g5 )
vol=30 a5 /1 vol=38 c6 /1
vvol rand and 31 + 32 7/8;
tril 4 ( bb5 1/1 a5 )
vol=33 a5 /1 vol=38 ab5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f#5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#5 1/1 g5 ab5 )
vvol rand and 31 + 32 7/8;
tril 4 ( a5 1/1 ab5 g5 )
vvol rand and 31 + 32 7/8;
tril 4 ( a5 1/1 bb5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( a5 g5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 ab5 a5 )
vol=38 ab5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f#5 f5 )
vol=38 g5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 ab5 )
vol=30 a5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( a5 1/1 ab5 g5 )
vol=38 g5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( f#5 1/1 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#5 1/1 f5 e5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f5 e5 eb5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 f5 f#5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f5 1/1 f#5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 eb5 )
vvol rand and 31 + 32 7/8;
tril 4 ( eb5 1/1 d5 c#5 )
vol=30 e5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 f5 f#5 )
vol=38 f#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( e5 d5 )
vvol rand and 31 + 32 7/8;
tril 4 ( d5 1/1 c#5 )
vol=38 a4 /1
vvol rand and 31 + 32 7/8;
tril 4 ( bb4 1/1 a4 ab4 )
vvol rand and 31 + 32 7/8;
tril 4 ( a4 1/1 bb4 )
vvol rand and 31 + 32 7/8;
tril 4 ( bb4 1/1 a4 )
vvol rand and 31 + 32 7/8;
tril 4 ( bb4 1/1 b4 c5 )
vvol rand and 31 + 32 7/8;
tril 4 ( c5 1/1 b4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( b4 c5 c#5 )
vvol rand and 31 + 32 7/8;
tril 4 ( c#5 1/1 c5 )
vol=38 d5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( d5 1/1 eb5 )
vvol rand and 31 + 32 7/8;
tril 4 ( d5 1/1 c5 )
vol=30 c#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c5 b4 bb4 )
vol=38 c#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c#5 d5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( c#5 c5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( c#5 d5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( d5 c#5 )
vol=30 d5 /1 vol=34 c#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c#5 d5 )
vvol rand and 31 + 32 7/8;
tril 4 ( d5 1/1 c#5 c5 )
vol=31 c5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c5 b4 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( b4 c5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( b4 bb4 )
vvol rand and 31 + 32 7/8;
tril 4 ( bb4 1/1 b4 )
vol=34 bb4 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( bb4 b4 )
vol=38 bb4 /1 vol=43 bb4 /1
vvol rand and 31 + 32 7/8;
tril 4 ( bb4 1/1 a4 )
vol=38 bb4 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( bb4 a4 )
vvol rand and 31 + 32 7/8;
tril 4 ( a4 1/1 bb4 )
vvol rand and 31 + 32 7/8;
tril 4 ( b4 1/1 a4 )
vol=30 ab4 /1
vvol rand and 31 + 32 7/8;
tril 4 ( b4 1/1 c5 )
vol=38 b5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( c6 1/1 d6 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( c#6 c6 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( c6 c#6 )
vvol rand and 31 + 32 7/8;
tril 4 ( d6 1/1 c#6 c6 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( b5 c6 d6 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( d6 c6 b5 )
vol=38 e6 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( e6 f6 )
vol=38 g4 /1
{ ==== cyclic ====}
{_______INCIPIT_______}
vol=38 c#6 /1 vol=38 bb6 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c7 c#7 )
vol=38 c7 /1
vvol rand and 31 + 32 7/8;
tril 4 ( bb6 1/1 a6 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#6 1/1 f6 e6 )
vol=38 f#6 /1 vol=38 a5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( a5 1/1 g5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f#5 )
vol=33 f#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f5 1/1 f#5 g5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f#5 f5 )
vol=38 g5 /1 vol=38 g5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f5 )
{================ coda ===========}
halt 12345678;
send all coda
vt 70 17/1 ; {_______VARIABLE_______}
tra_1 = -7 {_______VARIABLE_______}
tra_2 = -5
tra_8 = -12 {_______VARIABLE_______}
durmod_all = 2
sound 12345678;
coda:
{=====================}
{_______INCIPIT_______}
vol=38 c#6 /1 vol=38 bb6 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( c7 c#7 )
vol=38 c7 /1
vvol rand and 31 + 32 7/8;
tril 4 ( bb6 1/1 a6 )
vvol rand and 31 + 32 7/8;
tril 4 ( f#6 1/1 f6 e6 )
vol=38 f#6 /1 vol=38 a5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( a5 1/1 g5 )
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f#5 )
vol=33 f#5 /1
vvol rand and 31 + 32 7/8;
fit 1/1 ( f#5 f5 )
vvol rand and 31 + 32 7/8;
tril 4 ( f5 1/1 f#5 g5 )
vvol rand and 31 + 32 7/8;
fit 1/1 ( g5 f#5 f5 )
vol=38 g5 /1 vol=38 g5 /1
vvol rand and 31 + 32 7/8;
tril 4 ( g5 1/1 f5 )
tra_all = 0
{_______CADENCE_______}
halt 12345678;
vol_all = 50
g5,c,e,g 1/1 f5,g,b,d e5,a,c6 d5,g,b,d c5,e,g,c 2
halt all;
{ ==== piano ====}
pitop:
c#6 /1 bb6 /1
fit 1/1 ( c7 c#7 )
c7 /1
tril 4 ( bb6 1/1 a6 )
tril 4 ( f#6 1/1 f6 e6 )
f#6 /1 a5 /1
tril 4 ( a5 1/1 g5 )
tril 4 ( g5 1/1 f#5 )
f#5 /1
fit 1/1 ( f#5 f5 )
tril 4 ( f5 1/1 f#5 g5 )
fit 1/1 ( g5 f#5 f5 )
g5 /1 g5 /1
tril 4 ( g5 1/1 f5 )
tril 4 ( f#5 1/1 g5 ab5 )
a5 /1 bb5 /1
fit 1/1 ( ab5 g5 f#5 )
tril 4 ( f#5 1/1 g5 ab5 )
fit 1/1 ( g5 f5 e5 d5 )
g5 /1
fit 1/1 ( ab5 g5 f#5 )
fit 1/1 ( f#5 g5 ab5 )
tril 4 ( f#5 1/1 f5 )
tril 4 ( f5 1/1 e5 eb5 )
fit 1/1 ( eb5 e5 f5 )
tril 4 ( f5 1/1 e5 )
g5 /1
tril 4 ( g5 1/1 f#5 f5 )
fit 1/1 ( f5 e5 d5 )
fit 1/1 ( e5 f5 f#5 )
f#5 /1
fit 1/1 ( f#5 f5 e5 )
tril 4 ( f5 1/1 f#5 g5 )
fit 1/1 ( g5 f#5 )
f#5 /1
tril 4 ( g5 1/1 f5 e5 d5 )
ab5 /1 ab5 /1
tril 4 ( ab5 1/1 g5 f#5 )
tril 4 ( g5 1/1 ab5 )
tril 4 ( ab5 1/1 g5 f#5 )
tril 4 ( g5 1/1 ab5 )
fit 1/1 ( g5 f5 e5 )
tril 4 ( e5 1/1 f5 g5 )
fit 1/1 ( f#5 f5 )
tril 4 ( f#5 1/1 g5 )
tril 4 ( g5 1/1 f#5 )
tril 4 ( g5 1/1 f5 e5 )
e5 /1
tril 4 ( e5 1/1 eb5 )
fit 1/1 ( eb5 e5 )
fit 1/1 ( e5 eb5 )
tril 4 ( e5 1/1 eb5 d5 )
bb4 /1
fit 1/1 ( a4 g4 f4 e4 )
tril 8 ( d4 2/1 e4 f4 g4 a4 )
fit 1/1 ( a4 ab4 )
fit 1/1 ( ab4 a4 )
fit 1/1 ( a4 ab4 )
tril 4 ( g4 1/1 a4 b4 )
fit 1/1 ( a4 ab4 )
tril 4 ( ab4 1/1 a4 )
tril 4 ( a4 1/1 ab4 )
tril 4 ( a4 1/1 g4 f4 )
tril 4 ( f#4 1/1 g4 ab4 )
tril 4 ( ab4 1/1 g4 )
fit 1/1 ( g4 ab4 )
fit 1/1 ( ab4 g4 f#4 )
tril 4 ( f#4 1/1 g4 ab4 )
fit 1/1 ( ab4 g4 f#4 )
fit 1/1 ( g4 ab4 )
fit 1/1 ( ab4 g4 )
tril 4 ( d5 1/1 e5 )
fit 1/1 ( e5 d5 c5 b4 )
fit 1/1 ( d5 e5 )
fit 1/1 ( e5 f5 )
tril 4 ( e5 1/1 d5 )
fit 1/1 ( f#5 g5 )
fit 1/1 ( ab5 a5 )
fit 1/1 ( a5 ab5 )
g5 /1
tril 4 ( g5 1/1 ab5 )
fit 1/1 ( ab5 g5 )
ab5 /1 ab5 /1 ab5 /1 ab5 /1
tril 4 ( ab5 1/1 a5 )
fit 1/1 ( a5 ab5 )
fit 1/1 ( ab5 a5 )
a5 /1 a5 /1 a5 /1 c6 /1
fit 1/1 ( c#6 d6 )
tril 4 ( c6 1/1 b5 a5 )
b5 /1 c6 /1 f6 /1
fit 1/1 ( f6 e6 d6 )
f#6 /1 ab6 /1 f#6 /1 f#6 /1 d6 /1
fit 1/1 ( d6 c6 b5 a5 )
tril 4 ( a5 1/1 ab5 )
tril 4 ( b5 1/1 c6 )
d6 /1 c6 /1 a5 /1 a5 /1
fit 1/1 ( a5 ab5 )
fit 1/1 ( ab5 a5 )
fit 1/1 ( a5 ab5 )
fit 1/1 ( ab5 a5 )
ab5 /1 ab5 /1 ab5 /1
tril 4 ( ab5 1/1 g5 )
tril 4 ( g5 1/1 ab5 )
fit 1/1 ( ab5 g5 )
g5 /1 g5 /1
fit 4/1 ( a5 g5 f5 e5 d5 c5 b4 a4 g4 f4 e4 d4 c4 )
fit 1/1 ( f#5 g5 )
g5 /1
fit 1/1 ( f#5 f5 )
fit 1/1 ( f5 e5 )
fit 2/1 ( e5 d5 c5 b4 a4 )
tril 12 ( e5 3/1 d5 c5 b4 a4 g4 f4 e4 d4 c4 b3 )
tril 4 ( c#5 1/1 d5 eb5 )
c#5 /1
tril 4 ( c5 1/1 b4 )
fit 1/1 ( c5 b4 bb4 )
fit 1/1 ( bb4 b4 )
fit 1/1 ( b4 bb4 )
c#5 /1
tril 4 ( d5 1/1 c5 b4 a4 )
fit 2/1 ( g4 a4 b4 c5 d5 e5 )
eb5 /1
fit 1/1 ( d5 c5 b4 )
tril 4 ( b4 1/1 c5 d5 )
tril 4 ( d5 1/1 e5 f5 )
fit 2/1 ( f5 e5 d5 c5 b4 )
fit 1/1 ( b4 c5 d5 e5 )
fit 1/1 ( f5 f#5 )
fit 1/1 ( f#5 g5 )
a5 /1 c6 /1
tril 4 ( bb5 1/1 a5 )
a5 /1 ab5 /1
fit 1/1 ( g5 f#5 f5 )
tril 4 ( f#5 1/1 g5 ab5 )
tril 4 ( a5 1/1 ab5 g5 )
tril 4 ( a5 1/1 bb5 )
fit 1/1 ( a5 g5 )
fit 1/1 ( g5 ab5 a5 )
ab5 /1
fit 1/1 ( g5 f#5 f5 )
g5 /1
tril 4 ( g5 1/1 ab5 )
a5 /1
tril 4 ( a5 1/1 ab5 g5 )
g5 /1
tril 4 ( f#5 1/1 f5 )
tril 4 ( f#5 1/1 f5 e5 )
fit 1/1 ( f5 e5 eb5 )
fit 1/1 ( e5 f5 f#5 )
fit 1/1 ( f#5 f5 )
tril 4 ( f5 1/1 f#5 )
fit 1/1 ( e5 eb5 )
tril 4 ( eb5 1/1 d5 c#5 )
e5 /1
fit 1/1 ( e5 f5 f#5 )
f#5 /1
fit 1/1 ( e5 d5 )
tril 4 ( d5 1/1 c#5 )
a4 /1
tril 4 ( bb4 1/1 a4 ab4 )
tril 4 ( a4 1/1 bb4 )
tril 4 ( bb4 1/1 a4 )
tril 4 ( bb4 1/1 b4 c5 )
tril 4 ( c5 1/1 b4 )
fit 1/1 ( b4 c5 c#5 )
tril 4 ( c#5 1/1 c5 )
d5 /1
tril 4 ( d5 1/1 eb5 )
tril 4 ( d5 1/1 c5 )
c#5 /1
fit 1/1 ( c5 b4 bb4 )
c#5 /1
fit 1/1 ( c#5 d5 )
fit 1/1 ( c#5 c5 )
fit 1/1 ( c#5 d5 )
fit 1/1 ( d5 c#5 )
d5 /1 c#5 /1
fit 1/1 ( c#5 d5 )
tril 4 ( d5 1/1 c#5 c5 )
c5 /1
fit 1/1 ( c5 b4 )
fit 1/1 ( b4 c5 )
fit 1/1 ( b4 bb4 )
tril 4 ( bb4 1/1 b4 )
bb4 /1
fit 1/1 ( bb4 b4 )
bb4 /1 bb4 /1
tril 4 ( bb4 1/1 a4 )
bb4 /1
fit 1/1 ( bb4 a4 )
tril 4 ( a4 1/1 bb4 )
tril 4 ( b4 1/1 a4 )
ab4 /1
tril 4 ( b4 1/1 c5 )
b5 /1
tril 4 ( c6 1/1 d6 )
fit 1/1 ( c#6 c6 )
fit 1/1 ( c6 c#6 )
tril 4 ( d6 1/1 c#6 c6 )
fit 1/1 ( b5 c6 d6 )
fit 1/1 ( d6 c6 b5 )
e6 /1
fit 1/1 ( e6 f6 )
g4 /1
{ ==== piano cyclic ====}
{_______PIANO INCIPIT_______}
c#6 /1 bb6 /1
fit 1/1 ( c7 c#7 )
c7 /1
tril 4 ( bb6 1/1 a6 )
tril 4 ( f#6 1/1 f6 e6 )
f#6 /1 a5 /1
tril 4 ( a5 1/1 g5 )
tril 4 ( g5 1/1 f#5 )
f#5 /1
fit 1/1 ( f#5 f5 )
tril 4 ( f5 1/1 f#5 g5 )
fit 1/1 ( g5 f#5 f5 )
g5 /1 g5 /1
tril 4 ( g5 1/1 f5 )
{ ==== end piano ====}
halt;
{========= wait ===========}
wait :
p /1
if rand < 222 then wait
if cur=1 (
send 4 pitop
sound 4
)
if cur=2 (
send 5 pitop
sound 5
)
if cur=3 (
send 6 pitop
sound 6
)
goto top;