#!/usr/bin/perl -w
use strict;

use Crosspad;
use Ink;
use Tk;
use UNIVERSAL qw(isa);

#my $pad = new Crosspad;
#my $data = $pad->download;

my $mw = new MainWindow;
my $canvas = $mw->Scrolled( 'Canvas',
	-scrollregion	=> [0,-4000,4000,0],
)->pack(
	-fill		=> 'both',
	-expand		=> 'both',
);

my $count = 128;

undef $/;
my $data = <>;
my $ink = new Ink $data;

while( my $rc = $ink->Next ) {
	next unless isa($rc, 'Ink::Stroke');

	eval {
		$canvas->createLine( map { ($_->[0],-$_->[1]) } @{$rc->{points}} );
	};

	next unless $@;
	warn "canvas: $@";
	print "Points: ", (map { "($_->[0],$_->[1])" } @{$rc->{points}} ), "\n";
};

print "Done parsing\n";
$canvas->configure( -scrollregion => [ $canvas->bbox('all') ] );
MainLoop;