Exemplo n.º 1
0
int GetWPos(int nnaxes, float pix[3], double ref[3], float refpix[3], 
   float inc[3], float rot[3], char type[3][9], double pos[3])
/* Determines World coordinates for a position of the first three axes */
/* takes pixel location (pix), FITS header info (ref, refpix, inc, rot */
/* type and returns coordinates as pos                                 */
/* returns 0 if successful otherwise:                                  */
/* 1 = angle too large for projection;                                 */
{  int i, j, naxes, iRet, Lonaxis=-1, Lataxis=-1, Othaxis[3]={1,1,1};
   char Lontypes[4][5]={"RA  ", "GLON", "ELON", "LL  "};
   int  Loncheck[4] = {2, 4, 4, 2};
   char Lattypes[4][5]={"DEC ", "GLAT", "ELAT", "MM  "};
   int  Latcheck[4] = {3, 4, 4, 2};
   naxes = nnaxes;
   if (naxes>3) naxes = 3;
/* find any Long axis */
   for (i=0;i<naxes;i++) {
      for (j=0;j<4;j++) 
	  if (!strncmp (type[i], Lontypes[j], Loncheck[j])) Lonaxis = i;}
/* find any Lat axis */
   for (i=0;i<naxes;i++) {
      for (j=0;j<4;j++) 
	 if (!strncmp (type[i], Lattypes[j], Latcheck[j])) Lataxis = i;}
/* get World coordinates for any position pair */
   if ((Lonaxis>=0) && (Lataxis>=0)) {
      iRet = worldpos(pix[Lonaxis], pix[Lataxis], 
	 ref[Lonaxis], ref[Lataxis], refpix[Lonaxis], refpix[Lataxis], 
	 inc[Lonaxis], inc[Lataxis], rot[Lataxis], 
	 &type[Lonaxis][4], &pos[Lonaxis], &pos[Lataxis]);}
   else { /* no position pair */
      Lonaxis = -1; Lataxis = -1; iRet = 0;}
   if (Lonaxis>=0) Othaxis[Lonaxis] = 0;
   if (Lataxis>=0) Othaxis[Lataxis] = 0;
/* do Other axes */
   for (i=0;i<naxes;i++){
      if (Othaxis[i]) pos[i] = ref[i] + inc[i] * (pix[i] - refpix[i]);
   }
   return iRet;
} /* end of GetWPos */
Exemplo n.º 2
0
void nemo_main() {
   int i,j,nentries,ncol,nsp;
   FILE *fp;               /* File pointer for output file */
   string outfile;         /* name of output file */
   string *sp;             /* used to read the command line argument "col" */
   string wcs_type;        /* WCS projection type (can be XXX or -XXX) */
   char type[5];           /* the real WCS for worldpos() ; needs to be '-XXX' */
   int nx,ny;              /* size of map in pixels for x,y directions */
   double index,rzero;     /* parameters for powerlaw */
   double crval1,crval2;   /* center RA and DEC */
   double cdelt1,cdelt2;   /* delta RA and delta DEC for pixels */
   double crpix1,crpix2;   /* reference pixel */
   double xpix, ypix;      /* current x and y pixel position in map */
   double ra,dec;          /* ra,dec of current pixel position in map */
   double flux;            /* computed flux for each pixel */
   double radius;          /* radius, in pixels */

   /* Read command line */
   index    = getdparam("index");
   rzero    = getdparam("rzero");
   outfile  = getparam("out");
   wcs_type = getparam("type");
   if (strlen(wcs_type)==3) { /* make sure type is '-XXX' */
      type[0] = '-';
      strcpy(&type[1],wcs_type);
   } else if (strlen(wcs_type)==4) {
      if (*wcs_type == '-')
         strcpy(type,wcs_type);
      else
         error("type=%s probably not legal, should be -XXX",wcs_type);
   } else
      error("type=%s must be a valid -XXX or XXX   WCS descriptor",wcs_type);
	 
   sp  = burststring(getparam("crval")," ,");
   nsp = xstrlen(sp,sizeof(string))-1;
   if (nsp != 2)
      error("You must specify two values for the crval keyword!");
   crval1 = natof(sp[0]);
   crval2 = natof(sp[1]);
   freestrings(sp);

   sp  = burststring(getparam("naxis")," ,");
   nsp = xstrlen(sp,sizeof(string))-1;
   if (nsp != 2)
      error("You must specify two values for the naxis keyword!");
   nx = natoi(sp[0]);
   ny = natoi(sp[1]);
   freestrings(sp);
   crpix1 = nx/2.0+1;
   crpix2 = ny/2.0+1;
   
   cdelt2 = getdparam("cdelt")/3600.; 
   cdelt1 = -cdelt2;

   /* Test to make sure we can write to output file */
   fp = stropen(outfile,"w");
   strclose(fp);
   
   fprintf(stderr,"nx,ny = %d,%d\n",nx,ny);
   fprintf(stderr,"crval1,crval2=%lf,%lf\n",crval1,crval2);
   fprintf(stderr,"crpix1,crpix2=%lf,%lf\n",crpix1,crpix2);
   fprintf(stderr,"wcs: %s\n",type);

   xpix=1.0;
   ypix=1.0;
   worldpos(xpix,ypix,crval1,crval2,crpix1,crpix2,cdelt1,cdelt2,0.0,type,&ra,&dec);
   dprintf(1,"LL corner: %g %g\n",ra,dec);
   xpix=nx;
   worldpos(xpix,ypix,crval1,crval2,crpix1,crpix2,cdelt1,cdelt2,0.0,type,&ra,&dec);
   dprintf(1,"LR corner: %g %g\n",ra,dec);
   ypix=ny;
   worldpos(xpix,ypix,crval1,crval2,crpix1,crpix2,cdelt1,cdelt2,0.0,type,&ra,&dec);
   dprintf(1,"UR corner: %g %g\n",ra,dec);
   xpix=1.0;
   worldpos(xpix,ypix,crval1,crval2,crpix1,crpix2,cdelt1,cdelt2,0.0,type,&ra,&dec);
   dprintf(1,"UL corner: %g %g\n",ra,dec);


   /* Write header for TABFITS to file */
   fp = stropen(getparam("out"),"w!");
   fprintf(fp,"# NAXIS1 = %d\n",nx);
   fprintf(fp,"# NAXIS2 = %d\n",ny);
   fprintf(fp,"# NAXIS3 = 1\n");
   fprintf(fp,"# CDELT1 = %lf\n",cdelt1);
   fprintf(fp,"# CDELT2 = %lf\n",cdelt2);
   fprintf(fp,"# CRVAL1 = %lf\n",crval1);
   fprintf(fp,"# CRVAL2 = %lf\n",crval2);
   fprintf(fp,"# CRPIX1 = %f\n",crpix1);
   fprintf(fp,"# CRPIX2 = %f\n",crpix2);
   fprintf(fp,"# CTYPE1 = 'RA--%s'\n",type);
   fprintf(fp,"# CTYPE2 = 'DEC-%s'\n",type);
   fprintf(fp,"# COMMENT index=%g / powerlaw index\n",index);
   fprintf(fp,"# COMMENT rzero=%g / rzero parameter\n",rzero);
   fprintf(fp,"# COMMENT out=%s   / output table\n",outfile);
   fprintf(fp,"# COMMENT crval=%f,%f / Center WCS coordinates\n",crval1,crval2);
   fprintf(fp,"# COMMENT naxis=%d,%d / Image size in pixels\n",nx,ny);
   fprintf(fp,"# COMMENT cdelt=%f    / pixel size in arcseconds\n",cdelt2*3600);
   fprintf(fp,"# COMMENT type=%s     / Projection type\n",type);
   fprintf(fp,"# COMMENT VERSION=%s  / Version number\n",getparam("VERSION"));


   for (i=0; i< ny; i++){
      ypix = i + 1.0;
      for (j=0; j< nx; j++){
         xpix = j + 1.0;
         worldpos(xpix,ypix,crval1,crval2,crpix1,crpix2,cdelt1,cdelt2,0.0,
            type,&ra,&dec);
         radius = sqrt((xpix-crpix1)*(xpix-crpix1) + (ypix-crpix2)*(ypix-crpix2));
         flux = 1.0/(1.0 + pow(radius/rzero,index));
/*         if (radius <= 4)
            flux = 1.0;
         else
            flux = 1.0/(1.0 + pow(radius-4,index)); */
         fprintf(fp,"%lf  %lf %4.2e\n",ra,dec,flux);
      }
   }
   strclose(fp);
}
Exemplo n.º 3
0
void yse_line_print(yse_line_list *line, yse_field_t *field, const char *filename, float flatness, int idx, double *keyval, int foutid)
{
	FILE *fp, *fpix, *fsky; // If you want to get xyfile, remove //

	int n=0, i=0, j=0, max_i, max_j;
	double a; // xy slope
	double asky; // sky slope
	float xmax, xmin;
	float ymax, ymin;
	int xpix, ypix;
	int rc=0;

	float max_length_xy=-1000.0, length;
	float max_length_sky;

	char buf[80];
	char fname[80], outnamexy[80], outnamesky[80], outnameskycen[80], outnamexycen[80];
	char fnamepix[80], fnamesky[80];

	type = "-TAN";

	xrefsky = keyval[0];
	yrefsky = keyval[1];
	xrefpix = keyval[2];
	yrefpix = keyval[3];
	xinc = keyval[4];
	yinc = keyval[5];
	rot = keyval[6];

	/*
	printf("xrefsky = %.10f\n", keyval[0]);
	printf("yrefsky = %.10f\n", keyval[1]);
	printf("xrefpix = %.10f\n", keyval[2]);
	printf("yrefpix = %.10f\n", keyval[3]);
	printf("cdelt1 = %.10f\n", keyval[4]);
	printf("cdelt2 = %.10f\n", keyval[5]);
	printf("rot = %.10f\n", keyval[6]);
	*/

	if ( foutid==1 ) sprintf(fname, "LP%05d", idx); // If you want to get xyfile, remove //

	if ( foutid==1 ) fp = fopen(fname, "w");	 // If you want to get xyfile, remove //
	while(line != NULL)
	{
		x[n] = line->x;
		y[n] = line->y;
		if ( foutid==1 ) fprintf(fp, "%f %f\n", x[n], y[n]); // If you want to get xyfile, remove //
		rc = worldpos(x[n], y[n], xrefsky, yrefsky, xrefpix, yrefpix, xinc, yinc, rot, type, &tmpxsky, &tmpysky);
		xsky[n] = tmpxsky;
		ysky[n] = tmpysky;

		line = line->next;
		n++;
	}
	if ( foutid==1 ) fclose(fp); // If you want to get xyfile, remove //

	if ( n<MIN_NPIXEL ){
		if ( foutid==1 ) remove(fname); // If you want to get xyfile, remove //
		return ;
	}

	for ( i=0 ; i<(n-1) ; i++ ){
		for ( j=(i+1) ; j<n ; j++ ){
			length = sqrt((x[i]-x[j])*(x[i]-x[j])+(y[i]-y[j])*(y[i]-y[j]));
			if ( length>max_length_xy ){
				max_length_xy = length;
				max_i = i;
				max_j = j;
			}
		}
	}
	a = (y[max_j]-y[max_i])/(x[max_j]-x[max_i]);
	xmin = ( x[max_i]>x[max_j] ) ? x[max_j] : x[max_i];
	xmax = ( x[max_i]>x[max_j] ) ? x[max_i] : x[max_j];
	ymin = ( y[max_i]>y[max_j] ) ? y[max_j] : y[max_i];
	ymax = ( y[max_i]>y[max_j] ) ? y[max_i] : y[max_j];

	asky = (ysky[max_j]-ysky[max_i])/(xsky[max_j]-xsky[max_i])*cos((ysky[max_i]*D2R+ysky[max_j]*D2R)/2.0);
	xskymin = ( xsky[max_i]>xsky[max_j] ) ? xsky[max_j] : xsky[max_i];
	xskymax = ( xsky[max_i]>xsky[max_j] ) ? xsky[max_i] : xsky[max_j];
	yskymin = ( ysky[max_i]>ysky[max_j] ) ? ysky[max_j] : ysky[max_i];
	yskymax = ( ysky[max_i]>ysky[max_j] ) ? ysky[max_i] : ysky[max_j];

	if ( max_length_xy>MIN_STREAK_LENGTH ){
		max_length_sky = angular_sep(xskymin, yskymin, xskymax, yskymax);

		sprintf(fnamepix, "%s.sxy", filename);
		sprintf(fnamesky, "%s.ssky", filename);

		fpix = fopen(fnamepix, "a+");
		fsky = fopen(fnamesky, "a+");
		for ( i=0 ; i<n ; i++ ){
			xpix = (int)x[i];
			ypix = (int)y[i];
			fprintf(fpix, "%d %d 16000\n", xpix, ypix);
			fprintf(fsky, "%11.6f %11.6f 16000\n", xsky[i], ysky[i]);
		}
		fclose(fpix);
		fclose(fsky);

		sprintf(outnamexy, "%s.strxy", filename);
		fp = fopen(outnamexy, "a+");
		if ( foutid==1 ){
			printf("XY  %s flatness= %11.6f a= %11.6f %7.1f %7.1f %7.1f %7.1f L= %11.6f\n",
	    			  fname, flatness, a, xmin, ymin, xmax, ymax, max_length_xy);
			fprintf(fp, "%11.6f %11.6f %7.1f %7.1f %7.1f %7.1f %11.6f\n",
	    	             flatness, a, xmin, ymin, xmax, ymax, max_length_xy);
		}else{
			printf("XY  flatness= %11.6f a= %11.6f %7.1f %7.1f %7.1f %7.1f L= %11.6f\n",
	    			     flatness, a, xmin, ymin, xmax, ymax, max_length_xy);
			fprintf(fp, "%11.6f %11.6f %7.1f %7.1f %7.1f %7.1f %11.6f\n",
	    	             flatness, a, xmin, ymin, xmax, ymax, max_length_xy);
		}
		fclose(fp);

		sprintf(outnamesky, "%s.strsky", filename);
		fp = fopen(outnamesky, "a+");
		if ( foutid==1 ){
			printf("SKY %s flatness= %11.6f a= %11.6f %11.6f %11.6f %11.6f %11.6f L= %11.6f\n",
	    			  fname, flatness, asky, xskymin, yskymin, xskymax, yskymax, max_length_sky);
			fprintf(fp, "%11.6f %11.6f %11.6f %11.6f %11.6f %11.6f %11.6f\n",
	    	             flatness, asky, xskymin, yskymin, xskymax, yskymax, max_length_sky);
		}else{
			printf("SKY flatness= %11.6f a= %11.6f %11.6f %11.6f %11.6f %11.6f L= %11.6f\n",
	    			      flatness, asky, xskymin, yskymin, xskymax, yskymax, max_length_sky);
			fprintf(fp, "%11.6f %11.6f %11.6f %11.6f %11.6f %11.6f %11.6f\n",
	    	             flatness, asky, xskymin, yskymin, xskymax, yskymax, max_length_sky);
		}
		fclose(fp);

		sprintf(outnameskycen, "%s.strskycen", filename);
		fp = fopen(outnameskycen, "a+");
		fprintf(fp, "%11.6f %11.6f %11.6f %11.6f %11.6f\n",
	  	             flatness, asky, (xskymin+xskymax)/2.0, (yskymin+yskymax)/2.0, max_length_sky);
	  	             //flatness, asky, (xmin+xmax)/2.0, (ymin+ymax)/2.0, max_length_sky);
		fclose(fp);

		sprintf(outnamexycen, "%s.strxycen", filename);
		fp = fopen(outnamexycen, "a+");
		fprintf(fp, "%11.6f %11.6f %11.6f %11.6f %11.6f\n",
	  	             //flatness, asky, (xskymin+xskymax)/2.0, (yskymin+yskymax)/2.0, max_length_sky);
	  	             flatness, asky, (xmin+xmax)/2.0, (ymin+ymax)/2.0, max_length_sky);
		fclose(fp);
	}else{
		remove(fname);
	}

	return ;
}