;+
; NAME:
;	qnagoya_skymap
; PURPOSE:
;	Process IPS data for one selected source
; CATEGORY:
; CALLING SEQUENCE:
	PRO qnagoya_skymap, state, point
; INPUTS:
; OPTIONAL INPUT PARAMETERS:
; OUTPUTS:
; OPTIONAL OUTPUT PARAMETERS:
; CALLS:
;	IsDisplay, vu_nagoyasourcemap, TimeSet
; SEE ALSO:
; COMMON BLOCKS:
	@compile_opt.pro		; On error, return to caller
; SIDE EFFECTS:
; RESTRICTIONS:
; EXAMPLE:
; PROCEDURE:
; MODIFICATION HISTORY:
;	JULY-2001, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

; Plot a Hammer-Aitoff map with all the source positions.
; vu_nagoyasourcemap also fills point.xy with the pixel coordinates of all the sources

widget_control, state.wid_tsun, get_value=ut0
ut0 = TimeSet(ut0)

widget_control, state.wid_draw, get_uvalue=point, /no_copy
wold = !d.window
widget_control, state.wid_draw, get_value=wnr

IF IsDisplay() THEN wset, wnr

erase
vu_nagoyasourcemap, ut0=ut0, /notwin, /onesize, point=point, /degrees, /nosweep		; Updates point.xy

name = widget_info(state.wid_name, /droplist_select)

pos = point[name].xy
sgn = (2*(pos[1] GT !d.y_size/2)-1)
arrow, pos[0], pos[1]+80*sgn, pos[0], pos[1]+4*sgn

IF IsDisplay() THEN wset, wold

widget_control, state.wid_draw, set_uvalue=point, /no_copy

RETURN  &  END