Ir = zeros(); Ig = zeros(); Ib = zeros();
				%initialize three empty channels
for k = 1 to M/6,				%walk through all images
	Ir = Ir			%accumulate red intensities
		+ I(0M/6 + k)		%add red for red/first time stamp
		+ I(3M/6 + k)		%add red for yellow/fourth time stamp
		+ I(5M/6 + k);		%add red for magenta/sixth time stamp
	Ig = Ig			%accumulate green intensities
		+ I(1M/6 + k)		%add green for green/second time stamp
		+ I(3M/6 + k)		%add green for yellow/fourth time stamp
		+ I(4M/6 + k);		%add green for cyan/fifth time stamp
	Ib = Ib			%accumulate blue intensities
		+ I(2M/6 + k)		%add blue for blue/third time stamp
		+ I(4M/6 + k)		%add blue for cyan/fifth time stamp
		+ I(5M/6 + k);		%add blue for magenta/sixth time stamp
end
Ir = Ir./Imean; Ig = Ig./Imean; Ib = Ib./Imean;
			%scale channels with mean intensity