use IO::Pipe;
use IO::Handle;
+my $aadepth=3;
+
#---------- pixmaps ----------
sub parseentryin__pixmap ($) {
my $w= @d;
- my $pgm= "P2\n$h $w\n7\n";
+ my $maxval= (1<<$aadepth)-1;
+ die 'cannot do [^0...$maxval]!' if $maxval>9;
+
+ my $pgm= "P2\n$h $w\n$maxval\n";
map { # x, left to right
- m/[^0-7]/ and die "$_ ?";
+ m/[^0-$maxval]/ and die "$_ ?";
my $l= $_;
$l =~ s/./ $&/g;
$pgm .= "$l\n";
(stat F) or die $!;
my $fn_i= sprintf "_update.$$-%016x.rdy", (stat _)[1];
-print F "ypp-sc-tools dictionary update v2\n";
+print F "ypp-sc-tools dictionary update v3 depth=$aadepth\n";
foreach my $v ($pirate,$caller,$dict,$ctx,$def,$image,$key,$val) {
printf F "%d\n", length($v) or die $!;