%
% Piano Phase
% by Steve Reich
%
% Implemented in RISC OS AMPLE
%
% Robin Terry Feb 2000
%

"Key1"[K(+F+C)K]
"Phrase1"[0:EFBCDfeCbfDc]
"Phrase2"[0:EFBCDfBC]
"Phrase3"[0:E!EaBDEaB]
"Trans"[0:E!E]
"Phrase4"[0:ABDE]

"Tacet1"[48 12 #*,^]
"Tacet2"[48 8  #*,^]
"Tacet3"[48 4  #*,^]

"P1_S1"[1* 48,8FOR(Phrase1)FOR
12FOR(48,4FOR(Phrase1)FOR 4FOR(Phrase1)FOR)FOR 8FOR(Phrase1)FOR]
"P2_S1"[4FOR(Tacet1)FOR 48,64 48+L 4FOR(Phrase1)FOR
12FOR(48,4FOR(Phrase1)FOR 47,4FOR(Phrase1)FOR)FOR 48,Phrase1
64 48-L 4FOR(Phrase1)FOR 4FOR(Tacet1)FOR]

"P1_S2"[2* 48,10FOR(Phrase2)FOR
8FOR(48,6FOR(Phrase2)FOR 6FOR(Phrase2)FOR)FOR
64 48-L 6FOR(Phrase2)FOR 3* 6FOR(Tacet2)FOR 48,^/]

"P2_S2"[0=L 4FOR(Tacet2)FOR 48,64 48+L 6FOR(Phrase3)FOR
8FOR(48,6FOR(Phrase3)FOR 47,6FOR(Phrase3)FOR)FOR 48,Phrase3 6FOR(Phrase3)FOR 6FOR(Phrase3)FOR Trans]

"P1_S3"[4* 8FOR(Tacet3)FOR 48,64 48+L 12FOR(Phrase4)FOR
4FOR(48,12FOR(Phrase4)FOR 12FOR(Phrase4)FOR)FOR 12FOR(Phrase4)FOR]

"P2_S3"[48,20FOR(Phrase4)FOR
4FOR(48,12FOR(Phrase4)FOR 47,12FOR(Phrase4)FOR)FOR 48,Phrase4 12FOR(Phrase4)FOR]

"P1"[SCORE Key1 48 10=MIDIC 64=L P1_S1 P1_S2 P1_S3]
"P2"[SCORE Key1 80 10=MIDIC 0 =L P2_S1 P2_S2 P2_S3]

"RUN"[READY 96,240=T
CLS DISPLAY
% Piano Phase (1967)
%
% by Steve Reich
%
% Implemented in RISC OS AMPLE
%
% Robin Terry Feb 2000
1P(1 VOICES MIDIV 1MIDILINE 1MIDICHANNEL 1MIDIPROGRAM 1VOICE 10MIDIC P1^;)P
2P(1 VOICES MIDIV 1MIDILINE 2MIDICHANNEL 1MIDIPROGRAM 1VOICE 10MIDIC P2^;)P
GO]