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->[$_])