Select Code to Download

$im = Image::Magick->new(size=>$xyr, type=>'TrueColor', depth=>16);
$err=$im->Read(filename=>"RGB:$raw");  warn "$err"  if $err; # Read RA
+W
...
    printf("CR: $lbl Chan Value Counts: %s, tot=$vt\n", join(", ", @vc
+));
    return $vc;  # Last ValueCount should be for T, TrueRGB
}  # End Count_Rgb().

3), R pf-2015.0531-249465.srgb.7360x4912.raw  , crop_wh=577,428, blob=
+1481736 B -> 6.000000 B/p
CR: srgb Blob len 1481736 unpacks to 740868 uint16s -> 246956 pix -> 2
+.000000 B/us
CR: srgb Chan Value Counts: Red 18955, Green 16919, Blue 10862, Yellow
+ 236778, Purple 221564, Cyan 222509, TrueRGB 225558, tot=953145
Distinct RGB colors=225558 = 91.335% -> 1 dup clr / 11.54 pix
Elapsed time = 9.67 sec