sub contrasting_colour {
   my ( $c ) = @_;
   my ( $r, $g, $b ) = ( ($c->[0] + 128) % 256, 
                         ($c->[1] + 128) % 256, 
                         ($c->[2] + 128) % 256,  );
   return [ $r, $g, $b ];
}