+ for my $r (0 .. $dim - 1) {
+ for my $g (0 .. $dim - 1) {
+ for my $b (0 .. $dim - 1) {
+ my $index = $r*$dim*$dim + $g*$dim + $b + $offset;
+ my @rgb = map { &$rgbval } $r, $g, $b;
+
+ my $h = Shiar_Sheet::Colour->new(@rgb)->hue * $hmax;
+ my $v = int(max(@rgb) / 255 * $vmax);
+ my $s = abs(min(@rgb) - max(@rgb)) / 255 * $smax;