!
! measures objects on ccd frame 
!


if p1(1:4) .eq. "help" then
        write/out to measure x/y/ positions of objects, enter type and store output in table
        write/out use as @@ obj output
        write/out "    where output = table" 
endif








defi/par p1 z ? outtable=?

defi/local loop/i/1/1 0
defi/local val/i/1/1 0

crea/tab {p1} 5 100
crea/col {p1} :xcen r*4 "pixel" f10.3
crea/col {p1} :ycen r*4 "pixel" f10.3
crea/col {p1} :type I   "type" I1
crea/col {p1} :mag  r*4 "mag" f10.3
set/format i2

do loop = 1 200
	write/out object {loop} - center 
	cen/gauss 
	{p1},:xcen,@{loop} = outputr(5)
	{p1},:ycen,@{loop} = outputr(6)

!	write/out object {loop} - photometry

!	@@ phot ? 0.25

!	{p1},:mag,@{loop} = m$value(magnitude)

	write/key val/i/1/1 0
	inquire/key val "type 0=object 1=refstar 2=standard 3=exit "
	if val .eq. 3 then
		goto z
	else
		{p1},:type,@{loop} = m$value(val)
	endif
	
enddo

z:
!del/row {p1} @{loop}
crea/col {p1} :ident I6 
comp/tab {p1} :ident = 100000+SEQ
write/out output -> {p1}.tbl