Select Code to Download

Select or download this


Running C:\bin\bb.pl   Thu Aug 13 11:06:26 2015
Found 27645898 colors in 36152320 pixels 0.76%
Elapsed time = 36.82 sec

Select or download this


@ushort=unpack("S*", $buf); # < Ushort[108456960] == RIGHT Number!
...
MORONIC>  $bs = $rr | ($gg << 16) | ($bb << 32);  # << WORKS ;(
    $rgb2c{$bs}++;  # Increment count for this color
}

Select or download this

WORKS!>    @q     =unpack("Q*", $buf);  $sq  = scalar(@q)  ||  -1;
FAIL!    @uint48=unpack("S3", $buf);  $s48 = scalar(@uint48)  ||  -1;
FAIL!    @uint48=unpack("S@3", $buf);  $s48 = scalar(@uint48)  ||  -1;
FAIL!    @uint48=unpack("S[3]", $buf);  $s48 = scalar(@uint48)  ||  -1
+;
FAIL!    @uint48=unpack("(SSS)*", $buf);  $s48 = scalar(@uint48)  ||  
+-1;

Select or download this

    #$quad=pack('Q', $rr, $gg, $bb, 0x0000);
    #$q2=pack('Q1', $rr, $gg, $bb, 0x0000);  # Q2=0x0000000000000000
...
    #$q4=pack("Q", $rr, $gg, $bb, 0x0000);  # Q4=0x0000000000000000
    #$q5=pack("S*", $rr, $gg, $bb, 0x0000);  # Q5=0x0000000000000000
    #$q5=pack("Q*", @ushort[$ii .. $ii+2]);

Select or download this


@UINT48=unpack("G*", $buf);  # NATIVE, 48BIT UNSIGNED GRAPHIC INTS!