The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Data::Petitcom - Data converter for Petitcom mkII

SYNOPSIS

  use Data::Petitcom;

  my $prg = <<'EOP';
  PRINT "Hello World"
  EOP
  my $qrcodes = QRCode($prg, type => 'term', version => 5);
  my $qr_num = @$qrcodes;
  for my $i ( 1 .. $qr_num ) {
      printf(
          "QR: %d / %d\n%s\n",
          $i,
          $qr_num,
          $qrcodes->[ $i - 1 ],
      );
  }


  use Path::Class;
  use GD::Tiler;
  my $bmp = '8b_256x192.bmp';
  my $raw_bmp = file($bmp)->slurp;
  my $qrcodes = QRCode($raw_bmp, resource => 'GRP', name => 'TEST_GRP', type => 'img');
  my $tiled = GD::Tiler->tile(
      Images       => $qrcodes,
      Background   => 'white',
      ImagesPerRow => 3,
  );
  file('qrcodes.png')->open('>')->print($tiled);

DESCRIPTION

Data::Petitcom is data converter for Petitcom mkII.

following resources supported.

PRG: Program
GRP: Graphics (256x192 pixels 8bit-color bitmap)
CHR: User character (256x64 pixels 8bit-color bitmap)
COL: Color (8bit-color bitmap)

FUNCTIONS

Exported Functions

Save($raw_data, %opts)

Turn raw data into PTC.

Load($raw_ptc, %opts)

Turn PTC into raw data.

QRCode(($raw_ptc|$raw_data|$obj_ptc), %opts)

Returns barcode for the data (or object) specified.

Exportable Functions

SaveFile($ptc_file, $raw_data, %opts)

Writes the PTC to a file.

LoadFile($ptc_file, %opts)

Reads the PTC from a file.

AUTHOR

hayajo <hayajo@cpan.org>

SEE ALSO

プチコンmkII

Petit Computer

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.