X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/5348c0a9f077660a1495942ad1f977baeccf4a0c..1cf492e9a7420f613fee280c789f637af9b1b9c1:/termcol.plp
diff --git a/termcol.plp b/termcol.plp
index 18593ab..a930698 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -229,7 +229,7 @@ for my $term (@termlist) {
88-colour space
<:
print coltable_hsv(4,
- sub {(0, 139, 205, 255)[$_]},
+ sub {(0, 139, 205, 255)[$_[0]]},
[map { ($_ + 2 + ($_>0)) * 255/11 } 0 .. 7],
);
@@ -255,7 +255,7 @@ sub coltable_hsv {
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 @rgb = map { $rgbval->($_) } $r, $g, $b;
my $h = Shiar_Sheet::Colour->new(@rgb)->hue * $hmax;
my $v = int(max(@rgb) / 255 * $vmax);
@@ -299,7 +299,7 @@ sub coltable_hsv {
}
print coltable_hsv(6,
- sub { $_ && $_*40 + 55 },
+ sub { $_[0] && $_[0]*40 + 55 },
[ map { $_ * 10 + 8 } 0 .. 23 ],
);
:>