my @lumf = $opaque ? ('hsl(%s,100%%,50%%)', 'hsl(%s,100%%,25%%)') :
('hsl(%s,100%%,50%%)', 'hsla(%s,100%%,50%%,.5)');
return sprintf(
my @lumf = $opaque ? ('hsl(%s,100%%,50%%)', 'hsl(%s,100%%,25%%)') :
('hsl(%s,100%%,50%%)', 'hsla(%s,100%%,50%%,.5)');
return sprintf(
join '', map {
my $colf = $lumf[ $lum[$_] ];
!$colf ? () : sprintf('<circle cx="%d" cy="%d" r="%d" fill="%s"/>',
join '', map {
my $colf = $lumf[ $lum[$_] ];
!$colf ? () : sprintf('<circle cx="%d" cy="%d" r="%d" fill="%s"/>',
- 10 + $_, $_ == 1 ? 12 : 10, 10, sprintf($colf, $hues->[$_])
+ 5 + $_, $_ == 1 ? 7 : 5, 5, sprintf($colf, $hues->[$_])
- sprintf '<svg width="16" height="16" viewBox="-.5 -.5 9 9"><path d="%s"/></svg>',
- $window . ($h->[$_ % 5] . $v->[$_ / 5] || $v->[6]);
+ sprintf '<svg width="16" height="16" viewBox="0 0 8 8"><path d="%s"/></svg>',
+ $h->[$_ % 5] . $v->[$_ / 5] || $v->[6];