|
|
@@ -32,352 +32,438 @@ |
|
|
|
|
|
|
|
#include "version.h" |
|
|
|
|
|
|
|
extern getpixelrow(float *pixelv); |
|
|
|
extern getpixelrow (float *pixelv); |
|
|
|
|
|
|
|
#define SYNC_WIDTH 39 |
|
|
|
#define SPC_WIDTH 47 |
|
|
|
#define TELE_WIDTH 45 |
|
|
|
#define CH_WIDTH 909 |
|
|
|
#define CH_OFFSET (SYNC_WIDTH+SPC_WIDTH+CH_WIDTH+TELE_WIDTH) |
|
|
|
#define CH_WIDTH 909 |
|
|
|
#define CH_OFFSET (SYNC_WIDTH+SPC_WIDTH+CH_WIDTH+TELE_WIDTH) |
|
|
|
#define IMG_WIDTH 2080 |
|
|
|
|
|
|
|
static SNDFILE *inwav; |
|
|
|
static int initsnd(char *filename) |
|
|
|
static int |
|
|
|
initsnd (char *filename) |
|
|
|
{ |
|
|
|
SF_INFO infwav; |
|
|
|
SF_INFO infwav; |
|
|
|
|
|
|
|
/* open wav input file */ |
|
|
|
infwav.format=0; |
|
|
|
inwav=sf_open(filename,SFM_READ,&infwav); |
|
|
|
if (inwav==NULL) { |
|
|
|
fprintf(stderr,"could not open %s\n",filename); |
|
|
|
return(1); |
|
|
|
} |
|
|
|
if(infwav.samplerate !=11025) { |
|
|
|
fprintf(stderr,"Bad Input File sample rate: %d. Must be 11025\n",infwav.samplerate); |
|
|
|
return(1); |
|
|
|
} |
|
|
|
if(infwav.channels !=1) { |
|
|
|
fprintf(stderr,"Too many channels in input file : %d\n",infwav.channels); |
|
|
|
return(1); |
|
|
|
} |
|
|
|
|
|
|
|
return(0); |
|
|
|
infwav.format = 0; |
|
|
|
inwav = sf_open (filename, SFM_READ, &infwav); |
|
|
|
if (inwav == NULL) { |
|
|
|
fprintf (stderr, "could not open %s\n", filename); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
if (infwav.samplerate != 11025) { |
|
|
|
fprintf (stderr, "Bad Input File sample rate: %d. Must be 11025\n", |
|
|
|
infwav.samplerate); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
if (infwav.channels != 1) { |
|
|
|
fprintf (stderr, "Too many channels in input file : %d\n", |
|
|
|
infwav.channels); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
|
|
|
|
return (0); |
|
|
|
} |
|
|
|
|
|
|
|
int getsample(float *sample,int nb) |
|
|
|
int |
|
|
|
getsample (float *sample, int nb) |
|
|
|
{ |
|
|
|
return(sf_read_float(inwav,sample,nb)); |
|
|
|
return (sf_read_float (inwav, sample, nb)); |
|
|
|
} |
|
|
|
|
|
|
|
png_text text_ptr[]={ |
|
|
|
{ PNG_TEXT_COMPRESSION_NONE, "Software", version ,sizeof(version) }, |
|
|
|
{ PNG_TEXT_COMPRESSION_NONE, "Channel", NULL ,0 }, |
|
|
|
{ PNG_TEXT_COMPRESSION_NONE, "Description", "NOAA POES satellite Image" ,25 } |
|
|
|
static png_text text_ptr[] = { |
|
|
|
{PNG_TEXT_COMPRESSION_NONE, "Software", version, sizeof (version)} |
|
|
|
, |
|
|
|
{PNG_TEXT_COMPRESSION_NONE, "Channel", NULL, 0} |
|
|
|
, |
|
|
|
{PNG_TEXT_COMPRESSION_NONE, "Description", "NOAA POES satellite Image", 25} |
|
|
|
}; |
|
|
|
static int ImageOut(char *filename,char* chid,float **prow,int nrow,int depth,int width,int offset) |
|
|
|
|
|
|
|
static int |
|
|
|
ImageOut (char *filename, char *chid, float **prow, int nrow, int depth, |
|
|
|
int width, int offset) |
|
|
|
{ |
|
|
|
FILE *pngfile; |
|
|
|
png_infop info_ptr; |
|
|
|
png_structp png_ptr; |
|
|
|
int n; |
|
|
|
FILE *pngfile; |
|
|
|
png_infop info_ptr; |
|
|
|
png_structp png_ptr; |
|
|
|
int n; |
|
|
|
|
|
|
|
/* init png lib */ |
|
|
|
png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); |
|
|
|
if (!png_ptr) { |
|
|
|
fprintf(stderr,"could not open create png_ptr\n"); |
|
|
|
return(1); |
|
|
|
} |
|
|
|
|
|
|
|
info_ptr = png_create_info_struct(png_ptr); |
|
|
|
if (!info_ptr) { |
|
|
|
png_destroy_write_struct(&png_ptr, (png_infopp)NULL); |
|
|
|
fprintf(stderr,"could not open create info_ptr\n"); |
|
|
|
return(1); |
|
|
|
png_ptr = png_create_write_struct (PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); |
|
|
|
if (!png_ptr) { |
|
|
|
fprintf (stderr, "could not open create png_ptr\n"); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
|
|
|
|
info_ptr = png_create_info_struct (png_ptr); |
|
|
|
if (!info_ptr) { |
|
|
|
png_destroy_write_struct (&png_ptr, (png_infopp) NULL); |
|
|
|
fprintf (stderr, "could not open create info_ptr\n"); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
|
|
|
|
png_set_IHDR (png_ptr, info_ptr, width, nrow, |
|
|
|
depth, PNG_COLOR_TYPE_GRAY, PNG_INTERLACE_NONE, |
|
|
|
PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT); |
|
|
|
|
|
|
|
text_ptr[1].text = chid; |
|
|
|
text_ptr[1].text_length = strlen (chid); |
|
|
|
png_set_text (png_ptr, info_ptr, text_ptr, 3); |
|
|
|
png_set_pHYs (png_ptr, info_ptr, 4000, 4000, PNG_RESOLUTION_METER); |
|
|
|
|
|
|
|
printf ("Writing %s ... ", filename); |
|
|
|
fflush (stdout); |
|
|
|
pngfile = fopen (filename, "w"); |
|
|
|
if (pngfile == NULL) { |
|
|
|
fprintf (stderr, "could not open %s\n", filename); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
png_init_io (png_ptr, pngfile); |
|
|
|
png_write_info (png_ptr, info_ptr); |
|
|
|
|
|
|
|
for (n = 0; n < nrow; n++) { |
|
|
|
float *pixelv; |
|
|
|
png_byte pixel[2 * IMG_WIDTH]; |
|
|
|
int i; |
|
|
|
|
|
|
|
pixelv = prow[n]; |
|
|
|
for (i = 0; i < width; i++) { |
|
|
|
float pv; |
|
|
|
|
|
|
|
pv = pixelv[i + offset]; |
|
|
|
switch (depth) { |
|
|
|
case 8: |
|
|
|
pixel[i] = floor (pv); |
|
|
|
break; |
|
|
|
case 16: |
|
|
|
((unsigned short *) pixel)[i] = |
|
|
|
htons ((unsigned short) floor (pv * 255.0)); |
|
|
|
break; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
png_set_IHDR(png_ptr, info_ptr, width, nrow, |
|
|
|
depth, PNG_COLOR_TYPE_GRAY, PNG_INTERLACE_NONE, |
|
|
|
PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT); |
|
|
|
|
|
|
|
text_ptr[1].text=chid; |
|
|
|
text_ptr[1].text_length=strlen(chid); |
|
|
|
png_set_text(png_ptr, info_ptr, text_ptr, 3); |
|
|
|
png_set_pHYs(png_ptr, info_ptr, 4000,4000,PNG_RESOLUTION_METER); |
|
|
|
|
|
|
|
printf("Writing %s ... ",filename);fflush(stdout); |
|
|
|
pngfile=fopen(filename,"w"); |
|
|
|
if (pngfile==NULL) { |
|
|
|
fprintf(stderr,"could not open %s\n",filename); |
|
|
|
return(1); |
|
|
|
png_write_row (png_ptr, pixel); |
|
|
|
} |
|
|
|
png_write_end (png_ptr, info_ptr); |
|
|
|
fclose (pngfile); |
|
|
|
printf ("Done\n"); |
|
|
|
png_destroy_write_struct (&png_ptr, &info_ptr); |
|
|
|
return (0); |
|
|
|
} |
|
|
|
png_init_io(png_ptr,pngfile); |
|
|
|
png_write_info(png_ptr,info_ptr); |
|
|
|
|
|
|
|
for(n=0;n<nrow;n++) { |
|
|
|
float *pixelv; |
|
|
|
png_byte pixel[2*IMG_WIDTH]; |
|
|
|
int i; |
|
|
|
|
|
|
|
pixelv=prow[n]; |
|
|
|
for(i=0;i<width;i++) { |
|
|
|
float pv; |
|
|
|
|
|
|
|
pv=pixelv[i+offset]; |
|
|
|
switch(depth) { |
|
|
|
case 8 : |
|
|
|
pixel[i]=floor(pv); |
|
|
|
break; |
|
|
|
case 16 : |
|
|
|
((unsigned short*)pixel)[i]=htons((unsigned short)floor(pv*255.0)); |
|
|
|
break; |
|
|
|
} |
|
|
|
} |
|
|
|
png_write_row(png_ptr,pixel); |
|
|
|
} |
|
|
|
png_write_end(png_ptr,info_ptr); |
|
|
|
fclose(pngfile); |
|
|
|
printf("Done\n"); |
|
|
|
png_destroy_write_struct(&png_ptr,&info_ptr); |
|
|
|
return(0); |
|
|
|
} |
|
|
|
|
|
|
|
int ImageColorOut(char *filename,float **prow,int nrow) |
|
|
|
{ |
|
|
|
FILE *pngfile; |
|
|
|
png_infop info_ptr; |
|
|
|
png_structp png_ptr; |
|
|
|
int n; |
|
|
|
|
|
|
|
extern void false_color(double v, double t, float *r, float *g, float *b); |
|
|
|
int |
|
|
|
ImageColorOut (char *filename, float **prow, int nrow) |
|
|
|
{ |
|
|
|
FILE *pngfile; |
|
|
|
png_infop info_ptr; |
|
|
|
png_structp png_ptr; |
|
|
|
int n; |
|
|
|
float *pixelc,*pixeln,*pixelp; |
|
|
|
float pv[CH_WIDTH]; |
|
|
|
float pt[CH_WIDTH]; |
|
|
|
|
|
|
|
extern void false_color (double v, double t, float *r, float *g, float *b); |
|
|
|
extern void dres( |
|
|
|
float av, float at, float bv, float bt, |
|
|
|
float cv, float ct, float dv, float dt, |
|
|
|
float *v , float *t); |
|
|
|
|
|
|
|
/* init png lib */ |
|
|
|
png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); |
|
|
|
if (!png_ptr) { |
|
|
|
fprintf(stderr,"could not open create png_ptr\n"); |
|
|
|
return(1); |
|
|
|
} |
|
|
|
png_ptr = png_create_write_struct (PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); |
|
|
|
if (!png_ptr) { |
|
|
|
fprintf (stderr, "could not open create png_ptr\n"); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
|
|
|
|
info_ptr = png_create_info_struct (png_ptr); |
|
|
|
if (!info_ptr) { |
|
|
|
png_destroy_write_struct (&png_ptr, (png_infopp) NULL); |
|
|
|
fprintf (stderr, "could not open create info_ptr\n"); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
|
|
|
|
png_set_IHDR (png_ptr, info_ptr, 2*CH_WIDTH-3, 2*nrow-3, |
|
|
|
8, PNG_COLOR_TYPE_RGB, PNG_INTERLACE_NONE, |
|
|
|
PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT); |
|
|
|
|
|
|
|
text_ptr[1].text = "False Colors"; |
|
|
|
png_set_pHYs (png_ptr, info_ptr, 2000, 2000, PNG_RESOLUTION_METER); |
|
|
|
|
|
|
|
text_ptr[1].text_length = strlen (text_ptr[1].text); |
|
|
|
png_set_text (png_ptr, info_ptr, text_ptr, 3); |
|
|
|
|
|
|
|
printf ("Computing False colors & writing : %s ...", filename); |
|
|
|
fflush (stdout); |
|
|
|
pngfile = fopen (filename, "w"); |
|
|
|
if (pngfile == NULL) { |
|
|
|
fprintf (stderr, "could not open %s\n", filename); |
|
|
|
return (1); |
|
|
|
} |
|
|
|
png_init_io (png_ptr, pngfile); |
|
|
|
png_write_info (png_ptr, info_ptr); |
|
|
|
|
|
|
|
pixelc=NULL;pixeln=prow[0]; |
|
|
|
|
|
|
|
for (n = 0; n < nrow-1; n++) { |
|
|
|
png_color pixa[2*CH_WIDTH]; |
|
|
|
png_color pixb[2*CH_WIDTH]; |
|
|
|
int i; |
|
|
|
|
|
|
|
pixelp=pixelc;pixelc=pixeln;pixeln=prow[n+1]; |
|
|
|
|
|
|
|
for (i = 0; i < CH_WIDTH-1; i++) { |
|
|
|
float av,bv,cv,dv; |
|
|
|
float at,bt,ct,dt; |
|
|
|
float pvc,ptc; |
|
|
|
float v,t; |
|
|
|
float r, g, b; |
|
|
|
|
|
|
|
av = pixelc[i+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
bv = pixeln[i+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
cv = pixelc[i+1+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
dv = pixeln[i+1+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
if(n!=0) { |
|
|
|
at = 0.667*pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelp[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
bt = 0.667*pixeln[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
ct = 0.667*pixelc[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelp[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
dt = 0.667*pixeln[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelc[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
} else { |
|
|
|
at = pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
bt = pixeln[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
ct = pixelc[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
dt = pixeln[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
} |
|
|
|
|
|
|
|
dres (av,at,bv,bt,cv,ct,dv,dt,&v,&t); |
|
|
|
|
|
|
|
falsecolor (v, t, &r, &g, &b); |
|
|
|
pixb[2*i].red = (unsigned int) (255.0 * r); |
|
|
|
pixb[2*i].green = (unsigned int) (255.0 * g); |
|
|
|
pixb[2*i].blue = (unsigned int) (255.0 * b); |
|
|
|
|
|
|
|
pvc=v;ptc=t; |
|
|
|
|
|
|
|
if(n!=0) { |
|
|
|
av = pv[i]; |
|
|
|
bv = pixelc[i+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
cv = pixelc[i+1+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
dv = pvc; |
|
|
|
at = pt[i]; |
|
|
|
bt = 0.667*pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelp[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
ct = 0.667*pixelc[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelp[i+1+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
dt = ptc; |
|
|
|
|
|
|
|
dres (av,at,bv,bt,cv,ct,dv,dt,&v,&t); |
|
|
|
|
|
|
|
falsecolor (v, t, &r, &g, &b); |
|
|
|
pixa[2*i].red = (unsigned int) (255.0 * r); |
|
|
|
pixa[2*i].green = (unsigned int) (255.0 * g); |
|
|
|
pixa[2*i].blue = (unsigned int) (255.0 * b); |
|
|
|
} |
|
|
|
pv[i]=pvc;pt[i]=ptc; |
|
|
|
|
|
|
|
if (i!=0) { |
|
|
|
|
|
|
|
if (n!=0) { |
|
|
|
v = pixelc[i+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
t = 0.667*pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelp[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
falsecolor (v, t, &r, &g, &b); |
|
|
|
pixa[2*i-1].red = (unsigned int) (255.0 * r); |
|
|
|
pixa[2*i-1].green = (unsigned int) (255.0 * g); |
|
|
|
pixa[2*i-1].blue = (unsigned int) (255.0 * b); |
|
|
|
} |
|
|
|
|
|
|
|
av = pixelc[i+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
bv = pv[i-1]; |
|
|
|
cv = pvc; |
|
|
|
dv = pixeln[i+SYNC_WIDTH + SPC_WIDTH]; |
|
|
|
if(n!=0) { |
|
|
|
at = 0.667*pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelp[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
dt = 0.667*pixeln[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET] |
|
|
|
+ 0.333*pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
} else { |
|
|
|
at = pixelc[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
dt = pixeln[i+SYNC_WIDTH + SPC_WIDTH + CH_OFFSET]; |
|
|
|
} |
|
|
|
bt = pt[i-1]; |
|
|
|
ct = ptc; |
|
|
|
|
|
|
|
dres (av,at,bv,bt,cv,ct,dv,dt,&v,&t); |
|
|
|
|
|
|
|
falsecolor (v, t, &r, &g, &b); |
|
|
|
pixb[2*i-1].red = (unsigned int) (255.0 * r); |
|
|
|
pixb[2*i-1].green = (unsigned int) (255.0 * g); |
|
|
|
pixb[2*i-1].blue = (unsigned int) (255.0 * b); |
|
|
|
} |
|
|
|
|
|
|
|
info_ptr = png_create_info_struct(png_ptr); |
|
|
|
if (!info_ptr) { |
|
|
|
png_destroy_write_struct(&png_ptr, (png_infopp)NULL); |
|
|
|
fprintf(stderr,"could not open create info_ptr\n"); |
|
|
|
return(1); |
|
|
|
} |
|
|
|
|
|
|
|
png_set_IHDR(png_ptr, info_ptr, CH_WIDTH, nrow, |
|
|
|
8, PNG_COLOR_TYPE_RGB, PNG_INTERLACE_NONE, |
|
|
|
PNG_COMPRESSION_TYPE_DEFAULT, PNG_FILTER_TYPE_DEFAULT); |
|
|
|
|
|
|
|
text_ptr[1].text="False Colors"; |
|
|
|
text_ptr[1].text_length=strlen(text_ptr[1].text); |
|
|
|
png_set_text(png_ptr, info_ptr, text_ptr, 3); |
|
|
|
png_set_pHYs(png_ptr, info_ptr, 4000,4000,PNG_RESOLUTION_METER); |
|
|
|
|
|
|
|
printf("Writing %s ...",filename);fflush(stdout); |
|
|
|
pngfile=fopen(filename,"w"); |
|
|
|
if (pngfile==NULL) { |
|
|
|
fprintf(stderr,"could not open %s\n",filename); |
|
|
|
return(1); |
|
|
|
} |
|
|
|
png_init_io(png_ptr,pngfile); |
|
|
|
png_write_info(png_ptr,info_ptr); |
|
|
|
|
|
|
|
for(n=0;n<nrow;n++) { |
|
|
|
float *pixelv; |
|
|
|
png_color pixel[CH_WIDTH]; |
|
|
|
int i; |
|
|
|
|
|
|
|
pixelv=prow[n]; |
|
|
|
for(i=0;i<CH_WIDTH;i++) { |
|
|
|
double v,t; |
|
|
|
float r,g,b; |
|
|
|
|
|
|
|
v=pixelv[i+SYNC_WIDTH+SPC_WIDTH]; |
|
|
|
t=pixelv[i+CH_OFFSET+SYNC_WIDTH+SPC_WIDTH]; |
|
|
|
falsecolor(v,t,&r,&g,&b); |
|
|
|
pixel[i].red=( unsigned int)(255.0*r); |
|
|
|
pixel[i].green=( unsigned int)(255.0*g); |
|
|
|
pixel[i].blue=( unsigned int)(255.0*b); |
|
|
|
} |
|
|
|
png_write_row(png_ptr,(png_bytep)pixel); |
|
|
|
} |
|
|
|
png_write_end(png_ptr,info_ptr); |
|
|
|
fclose(pngfile); |
|
|
|
printf("Done\n"); |
|
|
|
png_destroy_write_struct(&png_ptr,&info_ptr); |
|
|
|
return(0); |
|
|
|
} |
|
|
|
|
|
|
|
static int Distrib(char *filename,float **prow,int nrow) |
|
|
|
{ |
|
|
|
unsigned int distrib[256][256]; |
|
|
|
int n; |
|
|
|
int x,y; |
|
|
|
int max=0; |
|
|
|
FILE *df; |
|
|
|
|
|
|
|
for(y=0;y<256;y++) |
|
|
|
for(x=0;x<256;x++) |
|
|
|
distrib[y][x]=0; |
|
|
|
|
|
|
|
for(n=0;n<nrow;n++) { |
|
|
|
float *pixelv; |
|
|
|
int i; |
|
|
|
|
|
|
|
pixelv=prow[n]; |
|
|
|
for(i=0;i<CH_WIDTH;i++) { |
|
|
|
|
|
|
|
y=(int)(pixelv[i+SYNC_WIDTH+SPC_WIDTH]); |
|
|
|
x=(int)(pixelv[i+CH_OFFSET+SYNC_WIDTH+SPC_WIDTH]); |
|
|
|
distrib[y][x]+=1; |
|
|
|
if(distrib[y][x]> max) max=distrib[y][x]; |
|
|
|
} |
|
|
|
} |
|
|
|
df=fopen(filename,"w"); |
|
|
|
|
|
|
|
printf("Writing %s\n",filename);fflush(stdout); |
|
|
|
|
|
|
|
fprintf(df,"P2\n"); |
|
|
|
fprintf(df,"256 256\n255\n"); |
|
|
|
for(y=0;y<256;y++) |
|
|
|
for(x=0;x<256;x++) |
|
|
|
fprintf(df,"%d\n",(int)((255.0*(double)(distrib[y][x]))/(double)max)); |
|
|
|
fclose(df); |
|
|
|
if(n!=0) png_write_row (png_ptr, (png_bytep) pixa); |
|
|
|
png_write_row (png_ptr, (png_bytep) pixb); |
|
|
|
|
|
|
|
} |
|
|
|
png_write_end (png_ptr, info_ptr); |
|
|
|
fclose (pngfile); |
|
|
|
printf ("Done\n"); |
|
|
|
png_destroy_write_struct (&png_ptr, &info_ptr); |
|
|
|
return (0); |
|
|
|
} |
|
|
|
|
|
|
|
extern int Calibrate(float **prow,int nrow,int offset); |
|
|
|
extern int Temperature(float **prow,int nrow,int ch, int offset); |
|
|
|
extern void readfconf(char *file); |
|
|
|
extern int optind,opterr; |
|
|
|
extern int Calibrate (float **prow, int nrow, int offset); |
|
|
|
extern int Temperature (float **prow, int nrow, int ch, int offset); |
|
|
|
extern void readfconf (char *file); |
|
|
|
extern int optind, opterr; |
|
|
|
extern char *optarg; |
|
|
|
int satnum=1; |
|
|
|
int satnum = 1; |
|
|
|
|
|
|
|
static void usage(void) |
|
|
|
static void |
|
|
|
usage (void) |
|
|
|
{ |
|
|
|
fprintf(stderr,"atpdec [options] soundfiles ...\n"); |
|
|
|
fprintf(stderr,"options:\n-d <dir>\tDestination directory\n-i [a|b|c|t]\tOutput image type\n\t\t\tr: Raw\n\t\t\ta: A chan.\n\t\t\tb: B chan.\n\t\t\tc: False color\n\t\t\tt: Temperature\n-c <file>\tFalse color config file\n-p\t\t16bits output\n-s [0|1]\tSatellite id (for temperature and false color generation)\n\t\t\t0:NOAA15\n\t\t\t1:NOAA17\n"); |
|
|
|
fprintf (stderr, "atpdec [options] soundfiles ...\n"); |
|
|
|
fprintf (stderr, |
|
|
|
"options:\n-d <dir>\tDestination directory\n-i [a|b|c|t]\tOutput image type\n\t\t\tr: Raw\n\t\t\ta: A chan.\n\t\t\tb: B chan.\n\t\t\tc: False color\n\t\t\tt: Temperature\n-c <file>\tFalse color config file\n-p\t\t16bits output\n-s [0|1]\tSatellite id (for temperature and false color generation)\n\t\t\t0:NOAA15\n\t\t\t1:NOAA17\n"); |
|
|
|
} |
|
|
|
|
|
|
|
main(int argc, char **argv) |
|
|
|
main (int argc, char **argv) |
|
|
|
{ |
|
|
|
char pngfilename[1024]; |
|
|
|
char name[1024]; |
|
|
|
char pngdirname[1024]=""; |
|
|
|
char imgopt[20]="ac"; |
|
|
|
float *prow[3000]; |
|
|
|
char *chid[6]={ "1","2","3A","4","5","3B"}; |
|
|
|
int depth=8; |
|
|
|
int n,nrow; |
|
|
|
int ch; |
|
|
|
int c; |
|
|
|
|
|
|
|
printf("%s\n",version); |
|
|
|
|
|
|
|
opterr=0; |
|
|
|
while ((c=getopt(argc,argv,"c:d:i:ps:"))!=EOF) { |
|
|
|
switch(c) { |
|
|
|
case 'd': |
|
|
|
strcpy(pngdirname,optarg); |
|
|
|
break; |
|
|
|
case 'c': |
|
|
|
readfconf(optarg); |
|
|
|
break; |
|
|
|
case 'i': |
|
|
|
strcpy(imgopt,optarg); |
|
|
|
break; |
|
|
|
case 'p': |
|
|
|
depth=16; |
|
|
|
break; |
|
|
|
case 's': |
|
|
|
satnum=atoi(optarg); |
|
|
|
if(satnum<0 || satnum > 1) { |
|
|
|
fprintf(stderr,"invalid satellite\n"); |
|
|
|
exit(1); |
|
|
|
} |
|
|
|
break; |
|
|
|
default: |
|
|
|
usage(); |
|
|
|
} |
|
|
|
} |
|
|
|
char pngfilename[1024]; |
|
|
|
char name[1024]; |
|
|
|
char pngdirname[1024] = ""; |
|
|
|
char imgopt[20] = "ac"; |
|
|
|
float *prow[3000]; |
|
|
|
char *chid[6] = { "1", "2", "3A", "4", "5", "3B" }; |
|
|
|
int depth = 8; |
|
|
|
int n, nrow; |
|
|
|
int ch; |
|
|
|
int c; |
|
|
|
|
|
|
|
printf ("%s\n", version); |
|
|
|
|
|
|
|
opterr = 0; |
|
|
|
while ((c = getopt (argc, argv, "c:d:i:ps:")) != EOF) { |
|
|
|
switch (c) { |
|
|
|
case 'd': |
|
|
|
strcpy (pngdirname, optarg); |
|
|
|
break; |
|
|
|
case 'c': |
|
|
|
readfconf (optarg); |
|
|
|
break; |
|
|
|
case 'i': |
|
|
|
strcpy (imgopt, optarg); |
|
|
|
break; |
|
|
|
case 'p': |
|
|
|
depth = 16; |
|
|
|
break; |
|
|
|
case 's': |
|
|
|
satnum = atoi (optarg); |
|
|
|
if (satnum < 0 || satnum > 1) { |
|
|
|
fprintf (stderr, "invalid satellite\n"); |
|
|
|
exit (1); |
|
|
|
} |
|
|
|
break; |
|
|
|
default: |
|
|
|
usage (); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
for(nrow=0;nrow<3000;nrow++) prow[nrow]=NULL; |
|
|
|
for (nrow = 0; nrow < 3000; nrow++) |
|
|
|
prow[nrow] = NULL; |
|
|
|
|
|
|
|
for (;optind<argc;optind++) { |
|
|
|
int a=0,b=0; |
|
|
|
for (; optind < argc; optind++) { |
|
|
|
int a = 0, b = 0; |
|
|
|
|
|
|
|
strcpy(pngfilename,argv[optind]); |
|
|
|
strcpy(name,basename(pngfilename)); |
|
|
|
strtok(name,"."); |
|
|
|
if(pngdirname[0]=='\0') { |
|
|
|
strcpy(pngfilename,argv[optind]); |
|
|
|
strcpy(pngdirname,dirname(pngfilename)); |
|
|
|
} |
|
|
|
strcpy (pngfilename, argv[optind]); |
|
|
|
strcpy (name, basename (pngfilename)); |
|
|
|
strtok (name, "."); |
|
|
|
if (pngdirname[0] == '\0') { |
|
|
|
strcpy (pngfilename, argv[optind]); |
|
|
|
strcpy (pngdirname, dirname (pngfilename)); |
|
|
|
} |
|
|
|
|
|
|
|
/* open snd input */ |
|
|
|
if(initsnd(argv[optind])) |
|
|
|
exit(1); |
|
|
|
if (initsnd (argv[optind])) |
|
|
|
exit (1); |
|
|
|
|
|
|
|
/* main loop */ |
|
|
|
printf("Decoding: %s \n",argv[optind]); |
|
|
|
for(nrow=0;nrow<3000;nrow++) { |
|
|
|
if(prow[nrow]==NULL) prow[nrow]=(float*)malloc(sizeof(float)*2150); |
|
|
|
if(getpixelrow(prow[nrow])==0) |
|
|
|
break; |
|
|
|
printf("%d\r",nrow);fflush(stdout); |
|
|
|
} |
|
|
|
printf("\nDone\n",nrow); |
|
|
|
sf_close(inwav); |
|
|
|
printf ("Decoding: %s \n", argv[optind]); |
|
|
|
for (nrow = 0; nrow < 3000; nrow++) { |
|
|
|
if (prow[nrow] == NULL) |
|
|
|
prow[nrow] = (float *) malloc (sizeof (float) * 2150); |
|
|
|
if (getpixelrow (prow[nrow]) == 0) |
|
|
|
break; |
|
|
|
printf ("%d\r", nrow); |
|
|
|
fflush (stdout); |
|
|
|
} |
|
|
|
printf ("\nDone\n", nrow); |
|
|
|
sf_close (inwav); |
|
|
|
|
|
|
|
/* raw image */ |
|
|
|
if(strchr(imgopt,(int)'r')!=NULL){ |
|
|
|
sprintf(pngfilename,"%s/%s-r.png",pngdirname,name); |
|
|
|
ImageOut(pngfilename,"raw",prow,nrow,depth,IMG_WIDTH,0); |
|
|
|
} |
|
|
|
if (strchr (imgopt, (int) 'r') != NULL) { |
|
|
|
sprintf (pngfilename, "%s/%s-r.png", pngdirname, name); |
|
|
|
ImageOut (pngfilename, "raw", prow, nrow, depth, IMG_WIDTH, 0); |
|
|
|
} |
|
|
|
|
|
|
|
/* Channel A */ |
|
|
|
if(((strchr(imgopt,(int)'a')!=NULL) || (strchr(imgopt,(int)'c')!=NULL) || (strchr(imgopt,(int)'d')!=NULL))) { |
|
|
|
ch=Calibrate(prow,nrow,SYNC_WIDTH); |
|
|
|
if(ch>=0) { |
|
|
|
if(strchr(imgopt,(int)'a')!=NULL) { |
|
|
|
sprintf(pngfilename,"%s/%s-%s.png",pngdirname,name,chid[ch]); |
|
|
|
ImageOut(pngfilename,chid[ch],prow,nrow,depth,SPC_WIDTH+CH_WIDTH+TELE_WIDTH,SYNC_WIDTH); |
|
|
|
} |
|
|
|
if (((strchr (imgopt, (int) 'a') != NULL) |
|
|
|
|| (strchr (imgopt, (int) 'c') != NULL) |
|
|
|
|| (strchr (imgopt, (int) 'd') != NULL))) { |
|
|
|
ch = Calibrate (prow, nrow, SYNC_WIDTH); |
|
|
|
if (ch >= 0) { |
|
|
|
if (strchr (imgopt, (int) 'a') != NULL) { |
|
|
|
sprintf (pngfilename, "%s/%s-%s.png", pngdirname, name, chid[ch]); |
|
|
|
ImageOut (pngfilename, chid[ch], prow, nrow, depth, |
|
|
|
SPC_WIDTH + CH_WIDTH + TELE_WIDTH, SYNC_WIDTH); |
|
|
|
} |
|
|
|
if(ch<2) a=1; |
|
|
|
} |
|
|
|
} |
|
|
|
if (ch < 2) |
|
|
|
a = 1; |
|
|
|
} |
|
|
|
|
|
|
|
/* Channel B */ |
|
|
|
if((strchr(imgopt,(int)'b')!=NULL) || (strchr(imgopt,(int)'c')!=NULL) || (strchr(imgopt,(int)'t')!=NULL) || (strchr(imgopt,(int)'d')!=NULL)) { |
|
|
|
ch=Calibrate(prow,nrow,CH_OFFSET+SYNC_WIDTH); |
|
|
|
if(ch>=0) { |
|
|
|
if(strchr(imgopt,(int)'b')!=NULL) { |
|
|
|
sprintf(pngfilename,"%s/%s-%s.png",pngdirname,name,chid[ch]); |
|
|
|
ImageOut(pngfilename,chid[ch],prow,nrow,depth,SPC_WIDTH+CH_WIDTH+TELE_WIDTH,CH_OFFSET+SYNC_WIDTH); |
|
|
|
} |
|
|
|
if ((strchr (imgopt, (int) 'b') != NULL) |
|
|
|
|| (strchr (imgopt, (int) 'c') != NULL) |
|
|
|
|| (strchr (imgopt, (int) 't') != NULL) |
|
|
|
|| (strchr (imgopt, (int) 'd') != NULL)) { |
|
|
|
ch = Calibrate (prow, nrow, CH_OFFSET + SYNC_WIDTH); |
|
|
|
if (ch >= 0) { |
|
|
|
if (strchr (imgopt, (int) 'b') != NULL) { |
|
|
|
sprintf (pngfilename, "%s/%s-%s.png", pngdirname, name, chid[ch]); |
|
|
|
ImageOut (pngfilename, chid[ch], prow, nrow, depth, |
|
|
|
SPC_WIDTH + CH_WIDTH + TELE_WIDTH, |
|
|
|
CH_OFFSET + SYNC_WIDTH); |
|
|
|
} |
|
|
|
if(ch>2) { |
|
|
|
b=1; |
|
|
|
Temperature(prow,nrow,ch,CH_OFFSET+SYNC_WIDTH); |
|
|
|
if(strchr(imgopt,(int)'t')!=NULL) { |
|
|
|
sprintf(pngfilename,"%s/%s-t.png",pngdirname,name); |
|
|
|
ImageOut(pngfilename,"Temperature", prow,nrow,depth,CH_WIDTH,CH_OFFSET+SYNC_WIDTH+SPC_WIDTH); |
|
|
|
} |
|
|
|
} |
|
|
|
if (ch > 2) { |
|
|
|
b = 1; |
|
|
|
Temperature (prow, nrow, ch, CH_OFFSET + SYNC_WIDTH); |
|
|
|
if (strchr (imgopt, (int) 't') != NULL) { |
|
|
|
sprintf (pngfilename, "%s/%s-t.png", pngdirname, name); |
|
|
|
ImageOut (pngfilename, "Temperature", prow, nrow, depth, |
|
|
|
CH_WIDTH, CH_OFFSET + SYNC_WIDTH + SPC_WIDTH); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
/* distribution */ |
|
|
|
if(a && b && strchr(imgopt,(int)'d')!=NULL){ |
|
|
|
sprintf(pngfilename,"%s/%s-d.pnm",pngdirname,name); |
|
|
|
Distrib(pngfilename,prow,nrow); |
|
|
|
} |
|
|
|
if (a && b && strchr (imgopt, (int) 'd') != NULL) { |
|
|
|
sprintf (pngfilename, "%s/%s-d.pnm", pngdirname, name); |
|
|
|
} |
|
|
|
|
|
|
|
/* color image */ |
|
|
|
if(a && b && strchr(imgopt,(int)'c')!=NULL){ |
|
|
|
sprintf(pngfilename,"%s/%s-c.png",pngdirname,name); |
|
|
|
ImageColorOut(pngfilename,prow,nrow); |
|
|
|
} |
|
|
|
if (a && b && strchr (imgopt, (int) 'c') != NULL) { |
|
|
|
sprintf (pngfilename, "%s/%s-c.png", pngdirname, name); |
|
|
|
ImageColorOut (pngfilename, prow, nrow); |
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
exit (0); |
|
|
|
} |
|
|
|
exit (0); |
|
|
|
} |