Select Code to Download

use if $^O eq 'MSWin32', 'Win32::Console'; 
my $OUT;
...
    $OUT-> Mode( $OUT-> Mode | 4 );
}

convert rose: rose.png

use strict;
use warnings;
...
    print "\n"
}

BLOCK3:                     # 18 = (6 "diluted" hues) * (3 shades)
for my $h ( 0 .. $#hues ) {
...
        push @chars, colored( $shades[ $s ], "$hues[ $h ] on_white" )
    }
}

use strict;
use warnings;
...
print @chars[ @$_ ], "\n"
    for @{ $dist-> minimum_ind-> unpdl };