#--------------------
sub save_img{
#--------------------
	my ($image,$fileout,$type)=@_;
	
	unless($image){return(0,"no image object!!");}
	unless($fileout){return(0,"no file specified!!");}
	unless($type){$type="png";}
	
	open (IMAGO,">$fileout") or return(0,"error: $!");
	binmode IMAGO;
	print IMAGO $image->$type;
	close IMAGO;
	
	return(1,"$fileout");

}