view release on metacpan or  search on metacpan

examples/ex_pcxl.pl  view on Meta::CPAN

=begin
	
	File:   examples/ex_pcxl.pl
	Author: Josiah Bryan, jdb@wcoil.com
	Desc:	
		
		This just demonstrates simple usage of the pcx loader.
	
=cut

	use AI::NeuralNet::Mesh;
	
	my $net=AI::NeuralNet::Mesh->new(2,2);
	
	my $img = $net->load_pcx("josiah.pcx");
        print "ERROR: ",$net->error(),"\n" if($net->error());
	
	$net->join_cols($img->get_block([0,0,50,50]),50,0);