int main(int argc, char** args) { int c; dl* xys = dl_new(16); dl* radecs = dl_new(16); dl* otherradecs = dl_new(16); double* xy; double* xyz; int i, N; tan_t tan, tan2, tan3; int W=0, H=0; double crpix[] = { HUGE_VAL, HUGE_VAL }; int loglvl = LOG_MSG; FILE* logstream = stderr; int order = 1; while ((c = getopt(argc, args, OPTIONS)) != -1) { switch (c) { case 'v': loglvl++; break; case 'h': exit(0); case 'o': order = atoi(optarg); break; case 'W': W = atoi(optarg); break; case 'H': H = atoi(optarg); break; case 'X': crpix[0] = atof(optarg); break; case 'Y': crpix[1] = atof(optarg); break; } } if (optind != argc) { exit(-1); } log_init(loglvl); log_to(logstream); errors_log_to(logstream); if (W == 0 || H == 0) { logerr("Need -W, -H\n"); exit(-1); } if (crpix[0] == HUGE_VAL) crpix[0] = W/2.0; if (crpix[1] == HUGE_VAL) crpix[1] = H/2.0; while (1) { double x,y,ra,dec; if (fscanf(stdin, "%lf %lf %lf %lf\n", &x, &y, &ra, &dec) < 4) break; if (x == -1 && y == -1) { dl_append(otherradecs, ra); dl_append(otherradecs, dec); } else { dl_append(xys, x); dl_append(xys, y); dl_append(radecs, ra); dl_append(radecs, dec); } } logmsg("Read %i x,y,ra,dec tuples\n", dl_size(xys)/2); N = dl_size(xys)/2; xy = dl_to_array(xys); xyz = malloc(3 * N * sizeof(double)); for (i=0; i<N; i++) radecdeg2xyzarr(dl_get(radecs, 2*i), dl_get(radecs, 2*i+1), xyz + i*3); dl_free(xys); dl_free(radecs); fit_tan_wcs(xyz, xy, N, &tan, NULL); tan.imagew = W; tan.imageh = H; logmsg("Computed TAN WCS:\n"); tan_print_to(&tan, logstream); sip_t* sip; { tweak_t* t = tweak_new(); starxy_t* sxy = starxy_new(N, FALSE, FALSE); il* imginds = il_new(256); il* refinds = il_new(256); for (i=0; i<N; i++) { starxy_set_x(sxy, i, xy[2*i+0]); starxy_set_y(sxy, i, xy[2*i+1]); } tweak_init(t); tweak_push_ref_xyz(t, xyz, N); tweak_push_image_xy(t, sxy); for (i=0; i<N; i++) { il_append(imginds, i); il_append(refinds, i); } // unweighted; no dist2s tweak_push_correspondence_indices(t, imginds, refinds, NULL, NULL); tweak_push_wcs_tan(t, &tan); t->sip->a_order = t->sip->b_order = t->sip->ap_order = t->sip->bp_order = order; for (i=0; i<10; i++) { // go to TWEAK_HAS_LINEAR_CD -> do_sip_tweak // t->image has the indices of corresponding image stars // t->ref has the indices of corresponding catalog stars tweak_go_to(t, TWEAK_HAS_LINEAR_CD); logmsg("\n"); sip_print(t->sip); t->state &= ~TWEAK_HAS_LINEAR_CD; } tan_write_to_file(&t->sip->wcstan, "kt1.wcs"); sip = t->sip; } for (i=0; i<dl_size(otherradecs)/2; i++) { double ra, dec, x,y; ra = dl_get(otherradecs, 2*i); dec = dl_get(otherradecs, 2*i+1); if (!sip_radec2pixelxy(sip, ra, dec, &x, &y)) { logerr("Not in tangent plane: %g,%g\n", ra, dec); exit(-1); //continue; } printf("%g %g\n", x, y); } /* blind_wcs_move_tangent_point(xyz, xy, N, crpix, &tan, &tan2); blind_wcs_move_tangent_point(xyz, xy, N, crpix, &tan2, &tan3); logmsg("Moved tangent point to (%g,%g):\n", crpix[0], crpix[1]); tan_print_to(&tan3, logstream); tan_write_to_file(&tan, "kt1.wcs"); tan_write_to_file(&tan3, "kt2.wcs"); */ dl_free(otherradecs); free(xy); free(xyz); return 0; }
int main(int argc, char** args) { int loglvl = LOG_MSG; char** myargs; int nargs; int c; char* wcsinfn = NULL; char* wcsoutfn = NULL; int ext = 0; anbool scamp = FALSE; double xlo = 1; double xhi = 1000; double xstep = 0; double ylo = 1; double yhi = 1000; double ystep = 0; anbool forcetan = FALSE; dl* xylst; double x,y; double* xy; int Nxy; int W, H; W = H = 0; while ((c = getopt(argc, args, OPTIONS)) != -1) { switch (c) { case 't': forcetan = TRUE; break; case 'W': W = atoi(optarg); break; case 'H': H = atoi(optarg); break; case 'x': xlo = atof(optarg); break; case 'X': xhi = atof(optarg); break; case 'a': xstep = atof(optarg); break; case 'y': ylo = atof(optarg); break; case 'Y': yhi = atof(optarg); break; case 'b': ystep = atof(optarg); break; case 's': scamp = TRUE; break; case 'e': ext = atoi(optarg); break; case 'v': loglvl++; break; case '?': case 'h': print_help(args[0]); exit(0); } } nargs = argc - optind; myargs = args + optind; if (nargs != 2) { print_help(args[0]); exit(-1); } wcsinfn = myargs[0]; wcsoutfn = myargs[1]; log_init(loglvl); fits_use_error_system(); logmsg("Reading WCS (with PV distortions) from %s, ext %i\n", wcsinfn, ext); logmsg("Writing WCS (with SIP distortions) to %s\n", wcsoutfn); assert(xhi >= xlo); assert(yhi >= ylo); if (xstep == 0) { int nsteps = MAX(1, round((xhi - xlo)/100.0)); xstep = (xhi - xlo) / (double)nsteps; } if (ystep == 0) { int nsteps = MAX(1, round((yhi - ylo)/100.0)); ystep = (yhi - ylo) / (double)nsteps; } logverb("Stepping from x = %g to %g, steps of %g\n", xlo, xhi, xstep); logverb("Stepping from y = %g to %g, steps of %g\n", ylo, yhi, ystep); xylst = dl_new(256); for (y=ylo; y<=(yhi+0.001); y+=ystep) { for (x=xlo; x<=(xhi+0.001); x+=xstep) { dl_append(xylst, x); dl_append(xylst, y); } } Nxy = dl_size(xylst)/2; xy = dl_to_array(xylst); dl_free(xylst); if (wcs_pv2sip(wcsinfn, ext, wcsoutfn, scamp, xy, Nxy, W, H, forcetan)) { exit(-1); } free(xy); return 0; }