#!/usr/bin/perl $r = pack("H2",shift); $g = pack("H2",shift); $y = pack("H2",shift); $b = pack("H2",shift); print STDERR "vals: ",ord($r),", ",ord($g),", ",ord($y),", ",ord($b),"\n"; print STDOUT ((($r . $g) x 256) . (($y . $b) x 256)) x 124 ; # 1f000: print STDOUT "\0" x 1536; # 1f600: print STDOUT pack("H*","c4b2e322000200030100000000000000"); # 1f610: print STDOUT "\0" x (2560 - 16); ### (* 124 (* 4 256)) ### (format "%x" 126976)"1f000" ### (* 6 256)1536 ### (format "%x" 1536)"600" ### (* 10 256)2560 ### (format "%x" 2560)"a00"