# Flash::DataDump::Writer

package      Flash::Writer::DataDump;

use          Exporter;
use          Data::Dumper;
#use          Flash::Object;
@ISA       = qw(Exporter);
@EXPORT    = qw(write);
@EXPORT_OK = qw();


sub new {
	
	
	 my ($flash) = @_;
	
   my ($ver,$len,$xmin,$xmax,$ymin,$ymax,$framec,$framer, $offset) = $flash->get_headers();

  
    
   print STDERR "dumping file\n";
   print "----- Reading the file header -----\n";
   print "FWS\n";
   print "File version 	$ver\n";
   print "File size 	$len\n";
   print "Movie width 	".(($xmax-$xmin)/20)."\n";
   print "Movie height 	".(($ymax-$ymin)/20)."\n";
   print "Frame rate  $framer\n";
   print "Frame count 	$framec\n";

   print "\n----- Reading movie details -----\n";

   my @frames = @{$flash->{frames}};

   my $d = Data::Dumper->new(@frames);
   print $d->Dump;
   return 1;
}

1;