视频捕捉/采集

开发平台：
Visual C++

align.t：源码内容
							# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
BEGIN { $| = 1; print "1..19n"; }
END {print "not ok 1n" unless $loaded;}
use GD;
use GD::Text::Align;
use constant PI => 4 * atan2(1,1);
$loaded = 1;
print "ok 1n";
$i = 2;
# Create an image
$gd = GD::Image->new(200,200);
print 'not ' unless defined $gd;
printf "ok %dn", $i++;
$gd->colorAllocate(255,255,255);
$gd->colorAllocate(0,0,0);
print 'not ' unless $gd->colorsTotal == 2;
printf "ok %dn", $i++;
# Test the default setup
$t = GD::Text::Align->new($gd);
#print "$@n";
print 'not ' unless defined $t;
printf "ok %dn", $i++;
$t->set_text('A string');
($w, $h, $cu, $cd) = $t->get(qw(width height char_up char_down));
print 'not ' unless ($w==48 && $h==13 && $cu==13 && $cd==0);
printf "ok %dn", $i++;
# Some alignments
$t->set_align('top', 'left');
$t->draw(100,10);
($x, $y) = $t->get(qw(x y));
print 'not ' unless ($x==100 && $y==10);
printf "ok %dn", $i++;
$t->set_align('center', 'right');
$t->draw(100,10);
($x, $y) = $t->get(qw(x y));
print 'not ' unless ($x==52 && $y==3.5);
printf "ok %dn", $i++;
$t->set_align('bottom','center');
$t->draw(100,20);
($x, $y) = $t->get(qw(x y));
print 'not ' unless ($x==76 && $y==7);
printf "ok %dn", $i++;
# Test loading of other builtin font
$t->set_font(gdGiantFont);
$t->set_align('bottom', 'right');
$t->draw(100,40);
($x, $y) = $t->get(qw(x y));
print 'not ' unless ($x==28 && $y==25);
printf "ok %dn", $i++;
# Test some angles, this method is not meant to be used by anyone but
# me :)
$t->draw(100,40,PI/4);
print 'not ' if ($t->_builtin_up);
printf "ok %dn", $i++;
$t->draw(100,40,PI/4 + 0.000001);
print 'not ' unless ($t->_builtin_up);
printf "ok %dn", $i++;
# And some bounding boxes
$t->set_align('bottom', 'left');
@bb = $t->bounding_box(100,100);
print 'not ' unless ("@bb" eq "100 100 172 100 172 85 100 85");
printf "ok %dn", $i++;
@bb = $t->bounding_box(100,100,PI/2);
print 'not ' unless ("@bb" eq "100 100 100 28 85 28 85 100");
printf "ok %dn", $i++;
# Constructor test
$t = GD::Text::Align->new($gd,
	valign => 'top',
	halign => 'left',
	text => 'Banana Boat',
	colour => 1,
	font => gdGiantFont,
);
@bb = $t->draw(10,10);
#print "$i = @bbn";
print 'not ' unless ("@bb" eq "10 25 109 25 109 10 10 10");
printf "ok %dn", $i++;
# TTF fonts
if ($t->can_do_ttf)
{
	$t = GD::Text::Align->new($gd,
		valign => 'top',
		halign => 'left',
		text => 'Banana Boat',
		colour => 1,
		font => 'cetus.ttf',
		ptsize => 18,
	);
	@bb = $t->draw(10,40);
	#print "$i = @bbn";
	print 'not ' unless ("@bb" eq "12 64 154 64 154 46 12 46");
	printf "ok %dn", $i++;
	$rc = $t->set_font('cetus.ttf', 12);
	print 'not ' unless $rc;
	printf "ok %dn", $i++;
	$t->set_align('bottom', 'left');
	@bb = $t->bounding_box(100,100);
	#print "$i = @bbn";
	print 'not ' unless ("@bb" eq "101 96 194 96 194 84 101 84");
	printf "ok %dn", $i++;
	$t->set_align('top', 'center');
	@bb = $t->bounding_box(100,100, 4*PI/3);
	#print "$i = @bbn";
	print 'not ' unless ("@bb" eq "109 51 62 132 73 138 119 57");
	printf "ok %dn", $i++;
	@bb = $t->draw(140,100,4*PI/3);
	#print "$i = @bbn";
	print 'not ' unless ("@bb" eq "149 51 102 132 113 138 159 57");
	printf "ok %dn", $i++;
}
else
{
	for (1..5) { printf "ok %d # Skipn", $i++ };
}
__END__
# only during testing of the test scripts
$gd->colorAllocate(127,127,127);
$gd->line(100,0,100,200,2);
$gd->line(0,100,200,100,2);
open(GD, ">/tmp/align.png") or die $!;
binmode GD;
print GD $gd->png;
close(GD);

						