|
module test;
reg [80*8-1:0] fi_name,fo_name;
integer fi,fo;
integer f,j,i;
integer r;
reg [23:0] iData;
reg [ 7:0] Ro,Go,Bo;
initial begin
for(f=1;f<=100;f=f+1) begin
$display("Frame %1d ...",f);
$sformat(fi_name,"IN/0_INPUT_%1d.DAT",f);
$sformat(fo_name,"OUT/1_OUTPUT_%1d.OUT",f);
$display("fi_name:%20s",fi_name);
fi= $fopen(fi_name,"r");
fo= $fopen(fo_name,"w");
for(j=0;j<1600;j=j+1) begin
for(i=0;i<2560;i=i+1) begin
r=$fscanf(fi,"%h\n",iData);
{Ro,Go,Bo}=iData;
$fwrite(fo,"%X\n",{Bo,Ro,Go});
end
end
$fclose(fi);
$fclose(fo);
end
end
endmodule
#-------------------------------------------#
#!/usr/bin/perl
for($f=1;$f<=2;$f++) {
printf("Frame %d ...\n",$f);
open(O,">IN/0_INPUT_$f.DAT");
for($j=0;$j<1600;$j++) {
for($i=0;$i<2560;$i++) {
printf O ("%02x%02x%02x\n",$f,$j%256,$i%256);
}
}
close(O);
}
|
|