X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=evolis-driver.pl;h=6d81d443d75bae9cf8ec462740ffa5c2399bd392;hb=044ba1a8a44a9a15aabf7837f570d60f8098e9f0;hp=a574837105a2597b0e2880e5461bc694b87f09a0;hpb=c7d649ae912f8f2d339bc3448f9d1199cc65c296;p=Printer-EVOLIS.git

diff --git a/evolis-driver.pl b/evolis-driver.pl
old mode 100644
new mode 100755
index a574837..6d81d44
--- a/evolis-driver.pl
+++ b/evolis-driver.pl
@@ -21,7 +21,7 @@ print "\x1BPdt;DU\r";
 print "\x1BMr;s\r";
 print "\x1BPpws;1281732635\r";
 
-# SEQUENCE RECTO
+# FIXME load card into printer
 print "\x1BSs\r";
 print "\x1BSr\r";
 
@@ -30,10 +30,21 @@ my $command_size = 11682
 print "\x1BDbc;k;2;11682;"; # bitmap data
 print "\r";
 
+# even page on two side-printing
 print "\x1BSv\r";
+
 print "\x1BPc;k;=;10\r";
 
 print "\x1BDbc;k;2;31744;"; # bitmap data
 print "\r";
 
-print "\x1BSe\r";
+# print "\033Ste\015"; # keep card after encoding
+print "\x1BSe\r"; # eject card
+print "\x00" x 64; # FIXME some padding?
+
+sub encoding {
+my $data = "1234567890"; # data for track
+print "\033Ss\015", $data;
+print "\033Smw\015"; # write?
+}
+