view release on metacpan or  search on metacpan

t/1.t  view on Meta::CPAN

#!/usr/bin/perl
use Test::More tests => 10;
#use lib "../lib";

BEGIN { use_ok( 'Algorithm::Line::Bresenham', qw/line circle quad_bezier ellipse_rect polyline thick_line varthick_line/); }

use Data::Dumper;

is_deeply ( 
	[[0,0], [1,1], [2,2]], 
	[line(0,0,2,2)],
	'up-right' );
is_deeply ( 
	[[2,2], [1,1], [0,0]], 
	[line(2,2,0,0)],
	'down-left'); 
is_deeply ( 

t/1.t  view on Meta::CPAN

	'polyline');
is_deeply ( 
	[[13,13],[13,12],[12,12],[12,11],[13,11],[12,10],[11,10],[12,9],
	[11,9],[11,8],[10,8],[10,7],[11,7],[10,6],[9,6],[10,5],[9,5],
	[9,4],[9,3],[8,3],[8,2],[9,2],[8,1],[7,1],[8,0],[7,0],[7,-1],
	[6,-1],[6,-2],[7,-2],[6,-3],[5,-3],[6,-4],[5,-4],[5,-5]],
    [thick_line(13,13,5,-5,2)],
    'thick_line');

__END__
$Data::Dumper::Indent = 0;
print Data::Dumper->Dump([[polyline(2,3,6,4,5,7)]]);
print Data::Dumper->Dump([[polyline(55,10,60,15,55,20,60,25,55,30,60,35)]]);;