images2sgf

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 # support running from build dir
   6 BEGIN { push @INC, 'blib/lib' if -e 'blib/lib'; }
   7
   8 use Games::Go::Image2SGF;
   9
  10 my $images = [];
  11 foreach my $arg (@ARGV) {
  12   die "File not found: $arg" unless -e $arg;
  13   push @$images, { file => $arg };
  14 }
  15 my $board = Games::Go::Image2SGF->
  16   new(
  17       board     => [ 130, 80, 60 ],
  18       images     => $images,
  19       scalefactor => 0.5,
  20       sample_radius => 8,
  21      );
  22
  23 $board->to_sgf;
  24 print $board->{sgf};