#!/opt/bin/ipl

matrix_transform test_data(void)
{
	step
	{
		var alpha_scale, beta_scale;
		alpha_scale = (Pi,$MAX_ROW,/);
		beta_scale = (Pi,$MAX_COL,/);
	}
	pass
	{
		$CELL = (alpha_scale,$ROW,*,sin,beta_scale,$COL,*,sin,*,0.5,*,0.5,+);
	}
}
	
matrix test
{
	expand 1024 1024
	matrix_transform test_data
	save32 out
}

matrix in
{
	load32 out
	save32 out2
}

targets
{
	matrix test
#	matrix in
}
