=head2 scripts/evolis-driver.pl front.pbm back.pbm > evolis.commands
Provides driver which generates printer command stream to print
-two-sided card from pbm files.
+two-sided card from pbm files. Back side file is optional if you want
+to print just on front side of card.
=head2 scripts/evolis-simulator.pl evolis
use strict;
my ( $front, $back ) = @ARGV;
-die "usage: $0 front.pbm back.pbm\n" unless $front;
+die "usage: $0 front.pbm [back.pbm]\n" unless $front;
sub read_pbm;
my $data = read_pbm $front;
cmd 'Db;k;2;' . $data => 'download front';
+if ( $back ) {
+
cmd 'Sv' => 'back side';
cmd 'Pc;k;=;10' => 'contrast k = 10';
$data = read_pbm $back;
cmd 'Db;k;2;' . $data => 'download back';
+} # no back
+
cmd 'Se' => 'sequence end';
print "\x00" x 64; # FIXME some padding?