!
! astrometry
!
! jwf jul 98
!
! computes astrometric transformation from ref.stars
! applies it to objects
!



defi/par p1 ? ima standardstar_table=?
defi/par p2 ? ima measurement_table=?
defi/par p3 ? ima output_table=?

if p1(1:4) .eq. "help" then
        write/out 
        write/out use as @@ astro  ref_in meas_in astro_out
        write/out "    where ref_in      = table with astrometric data of ref.stars" 
        write/out "          meas_in = table with x/y/positions of ref.stars and objects"
	write/out "          astro_out   = table with astrometric positions of objects"
endif



 
astro/transfo {p1} {p2} mean 2000,2000 n,n
write/out "pausing... write down plate center... enter continue when done"
pause

astro/com {p2} 2 {p3}
sel/tab {p3} all

write/out copying columns :xcen,ycen,ident,mag and type...
cop/tt {p2} :xcen {p3} :xcen
cop/tt {p2} :ycen {p3} :ycen
cop/tt {p2} :ident {p3} :ident
cop/tt {p2} :type {p3} :type
cop/tt {p2} :mag {p3} :mag 
crea/col {p3} :ad r*8 f15.6
crea/col {p3} :dd r*8 f15.6

comp/tab {p3} :ad = :R_A
comp/tab {p3} :dd = :DEC


write/out that's it!


exit: