SHOW:
|
|
- or go back to the newest paste.
1 | #!/usr/bin/perl | |
2 | ||
3 | use strict; | |
4 | use Data::Dumper; | |
5 | ||
6 | my $bmp_header = join '', map (chr, 0x42,0x4d,0xf6,0xd4,0x04,0x00,0x00,0x00,0x00,0x00,0x36,0x00,0x00,0x00,0x28,0x00,0x00,0x00,0x10,0x01,0x00,0x00,0x84,0x01,0x00,0x00,0x01,0x00,0x18,0x00,0x00,0x00,0x00,0x00,0xc0,0xd4,0x04,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00); | |
7 | opendir (DIR, ".") || die "$!"; | |
8 | my @files = grep /\.npd$/i, grep !/^\.\.?$/, readdir DIR; | |
9 | closedir DIR; | |
10 | ||
11 | foreach my $file (@files) { | |
12 | my $fn = $file; $fn =~ s/\.npd$/.bmp/i; | |
13 | open (fo, ">".$fn) || die "$!"; | |
14 | binmode fo; | |
15 | print fo $bmp_header; | |
16 | open (fh, "<".$file) || die "$!"; | |
17 | binmode fh; | |
18 | - | for(my $i=0; $i<388;$i++) { |
18 | + | for(my $i=0; $i<240;$i++) { |
19 | - | seek fh, -((272*3*2)+($i*272*3)), 2; |
19 | + | seek fh, -((320*3*2)+($i*320*3)), 2; |
20 | - | read fh, my $buf, 272*3; |
20 | + | read fh, my $buf, 320*3; |
21 | - | for(my $c=0;$c<272;$c++) { substr($buf, $c*3+2,1, substr($buf, $c*3, 1, substr($buf, $c*3+2,1))); } |
21 | + | for(my $c=0;$c<320;$c++) { substr($buf, $c*3+2,1, substr($buf, $c*3, 1, substr($buf, $c*3+2,1))); } |
22 | print fo $buf; | |
23 | } | |
24 | close fh; | |
25 | close fo; | |
26 | } |