.DS 
.ft C
double transpose(note, level)
	double note, level;
{
	return(note*pow(2.0, level/12.0));
	
}

\fBM_start\fP() {
	\fBMotive\fP("x:c {d e}x2 c");
	\fBMotive\fP("y:a,{b,@x}x2,a");
	\fBMotive\fP("z:a, {b, @y}x2, a");
}

\fBPlayer\fP \fIbloop\fP(0)
{
	\fBP_start\fP {
		\fBPp5\fP = "Hz";
		\fBP4\fP = 1;
	}

	\fBP5\fP = \fBPitches\fP("@x");
	\fBP6\fP = \fBPitches\fP("@y");
	\fBP7\fP = \fBPitches\fP("@x @y \fBKill\fP");
	\fBP8\fP = transpose(\fBP7\fP, 7.0);
	\fBP2\fP = \fBAbs_time\fP();
	\fBWait_until\fP(\fBP2\fP + \fBP4\fP);
}
.ft R 
.DE
