evolis-driver.pl

   1
   2 my $color = 'k';
   3 # k = black
   4 printf "\x1BPr;$color\r"
   5
   6 my $feeder = 'F';
   7 # F = Feeder
   8 # M = Manual
   9 # B = Auto
  10
  11 print "\x1BPmi;$feeder;s\r";
  12
  13 my $temperature = 10;
  14 print "\x1BPc;$color;=;$temperature\r"
  15
  16 # improve output FIXME not used by cups
  17 print "\x1BPr;k\r";
  18
  19 # FIXME ? only implemented in windows
  20 print "\x1BPdt;DU\r";
  21 print "\x1BMr;s\r";
  22 print "\x1BPpws;1281732635\r";
  23
  24 # SEQUENCE RECTO
  25 print "\x1BSs\r";
  26 print "\x1BSr\r";
  27
  28 my $line = 2;
  29 my $command_size = 11682
  30 print "\x1BDbc;k;2;11682;"; # bitmap data
  31 print "\r";
  32
  33 print "\x1BSv\r";
  34 print "\x1BPc;k;=;10\r";
  35
  36 print "\x1BDbc;k;2;31744;"; # bitmap data
  37 print "\r";
  38
  39 print "\x1BSe\r";