6 my ( $front, $back ) = @ARGV;
7 die "usage: $0 front.pbm back.pbm\n" unless $front;
13 print "\x1B",$_[0],"\r";
16 cmd 'Pr;k' => 'ribbon: black';
21 cmd 'Pmi;F;s' => 'mode insertion: F';
23 cmd 'Pc;k;=;10' => 'contrast k = 10';
25 # FIXME ? only implemented in windows
28 #cmd 'Ppws;1281732635';
30 cmd 'Ss' => 'sequence start';
32 cmd 'Sr' => 'front side';
34 my $data = read_pbm $front;
35 cmd 'Db;k;2;' . $data => 'download front';
37 cmd 'Sv' => 'back side';
39 cmd 'Pc;k;=;10' => 'contrast k = 10';
41 $data = read_pbm $back;
42 cmd 'Db;k;2;' . $data => 'download back';
44 cmd 'Se' => 'sequence end';
45 print "\x00" x 64; # FIXME some padding?
50 open(my $pbm, "pnmflip -rotate270 $path |");
51 my $p4 = <$pbm>; chomp $p4;
52 die "no P4 header in [$p4] from $path" unless $p4 eq 'P4';
53 my $size = <$pbm>; chomp $size;
56 warn "# $path $size ", length($data), " bytes\n";