sub farbverlauf {
	#
	# Logik:
	# ======
	# 1. Mitte von 128 bis 255, also FF8080 bis FFFF80 = Rot -> Gelb
	# 2. Links von 255 runter bis 128, also FFFF80 bis 80FF80 = Gelb -> Grün
	# 3. Rechts von 128 hoch bis 255, also 80FF80 bis 80FFFF = Grün -> Blau
	# Ergibt 384 Farben in der gleichen Helligkeit
	#
	my $anzahl = shift;
	my @arr;
	if ($anzahl > 1) {
		$anzahl = 385 if $anzahl > 385;			# Minimale Schrittweite darf 1 sein
		my $schritt = int (384 / ($anzahl - 1));	# Schrittweite anhand Anzahl Werte
		for (my $z = 0; $z < $anzahl - 1; $z ++) {
			my @rgb = (255,128,128);		# Startfarbe fest Rot
			$rgb[1] = int (128 + ($z * $schritt));
			if ($rgb[1] > 255) {			# Überlauf Mitte nach links schieben
				$rgb[0] -= $rgb[1] - 255;
				$rgb[1] = 255;
			}
			if ($rgb[0] < 128) {			# Überlauf Links nach rechts schieben
				$rgb[2] += 128 - $rgb[0];
				$rgb[0] = 128;
			}
			push @arr,sprintf ('#%02X%02X%02X',@rgb);
		}
	}
	push @arr,'#80FFFF';					# Letzte Farbe soll immer fest Blau sein wg. Rundungsdifferenzen bei Schrittweite
	return @arr;
}