Conv-Color to Gray

From Vectorlab
Jump to: navigation, search


Converts an RGB color to gray. By Orso B. Schmid


{ Orso *********************************************** }
{ converts an rgb triplet to gray }
PROCEDURE C_Gray(VAR r, g, b: LONGINT);
	BEGIN
		r := (r + g + b)/3;
		g := r;
		b := r;
	END;