Repository List / Contenido / utf8 / samples / promosuite / comps / subs / voting / get_colors_green.msn @ r296

<%ARGS>
	$split => 4
</%ARGS>
<%ONCE>
	# Попробуйте поменять начальные и конечные цвета!
	my @max = (165,217,157);
	my @min = (1, 128, 10);
</%ONCE>
<%INIT>
	if ($split <= 1) { $split = 4 };
	my @COLORS = ();
	my @step = (($max[0]-$min[0])/($split-1), ($max[1]-$min[1])/($split-1), ($max[2]-$min[2])/($split-1));
	for (0..($split-1))
	{
		unshift @COLORS,"#".uc(sprintf("%02x", $min[0]+($_*$step[0]))).uc(sprintf("%02x", $min[1]+($_*$step[1]))). uc(sprintf("%02x", $min[2]+($_*$step[2])));
	};
	return \@COLORS;
</%INIT>