;
;This procedure is identical to starplot.pro except it is used for 512X512 images
PRO splotbig,c2,r2,head,cam,filt,exp
!ORDER = 1
file3=''
gettime,head,date,time
;read,yr,mo,da,hr,min,sec,lat,lon,cam,filt,exp
yr = date(2) & mo=date(1) & da=date(0) & hr=time(0) & min=time(1) & sec=time(2) 
lat=58.233 & lon=512.330 

ut= (hr*60. + min)*60. + sec

stephem,yr,mo,da,hr,min,sec,lat,lon,n,desig,az,za,mag,vis
file2 = STRING(cam,filt,da,cam,filt,exp,24,$
	FORMAT='("~steele/data/aur/c",I1,"/f",I1,"/a",I2.2,2I1,I3.3,".",I3.3)')
;OPENR,unt,file2,/GET_LUN
;REPEAT BEGIN
;  READF,unt,utime,file3
;  file3 = STRTRIM(file3,2)
 ; IF (EOF) THEN BEGIN
 ;    print,'enter new utime' & read,hr,min,sec
 ; ENDIF
;ENDREP UNTIL FIX(ut) EQ FIX(utime)
;  CLOSE,unt
;  FREE_LUN,unt

rdkimg,file2,hb,img

;rdmeandk,cam,exp,dkim

bimg=img
bright=where(mag le 4.00)
;bright=[bright,where(STRMID(desig,11,3) eq 'UMA')]
;bright=where(STRMID(desig,11,3) eq 'UMA')
baz = az(bright)
bza = za(bright)

;pocarot,baz,bza,x,y,z
camaz = -13.205
warp = .642907
stretch = 1.*199.853
ccol = 2.* 127.855
crow=2.*128.354
;ccol = 130
;crow=128
numst = N_ELEMENTS(bright)
mag = mag(bright)
desig=desig(bright)
az = az(bright)
za =za(bright)
polrec3d,REPLICATE(1.,numst),za,-az,x,y,z,/degrees
rot_3d,3,x,y,z,camaz,xp,yp,zp,/degrees
rho=stretch*SIN(warp*za*!DTOR)
phi=+ATAN(yp,xp)
cl=1.*(ccol+rho*sin(phi))
rw=1.*(crow-rho*COS(phi))
rw = REPLICATE(512.,numst)-rw
;window,0
;tvscl, bimg<300,0,0
stop
notedge = where(SQRT((c2-ccol)^2. + (r2-crow)^2.) LT 2*135)
ct=c2 & rt=r2
c2 = c2(notedge)
r2 = r2(notedge)
dd=shift(dist(512,512),512,512)
;read,k
x=-x
openw,unit,'/wesson/user/steele/schee/idl/rowcol.dat',/GET_LUN
printf,unit,2,N_ELEMENTS(c2)
FOR i=0,N_ELEMENTS(c2)-1 DO printf,unit,c2(i),r2(i)
close,unit & FREE_LUN,unit
ps=1
rdcols,'/wesson/user/steele/schee/idl/rowcol.dat',n,col,row
dfile = STRING(da,cam,filt,exp,hr,min,sec,$
	FORMAT='("/wesson/user/steele/schee/idl/stpos.a",I2.2,2I,I3.3,".",3I2.2)')
stop
OPENW,unit,dfile,/GET_LUN

FOR i=0,N_ELEMENTS(c2)-1 DO BEGIN

  tvscl,bimg < 6000
  plot,1.*c2(i:i),1.*(-r2(i:i)+512),clip=[0,0,511,511],/device,xmargin=[0,0],ymargin=[0,0],/noerase,$
  symsize=2,position=[0,0,511,511],psym=4,xrange=[0,511],yrange=[0,511],xstyle=5, ystyle=5

  j=-1
  REPEAT BEGIN
  j=j+1
  IF j GT (N_ELEMENTS(cl)-1) THEN j=(N_ELEMENTS(cl)-1)
  print,desig(j),mag(j)
  plot,cl(j:j),rw(j:j),clip=[0,0,511,511],/device,xmargin=[0,0],ymargin=[0,0],/noerase,symsize=2,$
   position=[0,0,511,511],psym=ps,xrange=[0,511],yrange=[0,511],xstyle=5, ystyle=5
  ans = '' & read,ans
  if ans eq 'b' then BEGIN
    j=j-5 
    ps=ps+1
    IF ps EQ 8 THEN ps=1  
  ENDIF
  IF ans EQ 'f' THEN j=j+10
  IF ans EQ 'l' THEN j=j+50
  IF ans EQ 's' THEN j=-1

  ;print,desig(j),mag(j)
  ENDREP UNTIL(ans eq 'y' OR ans EQ 'plannet')
  
  IF ans EQ 'y' THEN BEGIN
     print,desig(j),mag(j)
     printf,unit,strmid(desig(j),0,4),az(j)*!DTOR,za(j)*!DTOR,col(i),row(i),$
     format='(I5,2f12.6,2I4)'

     print,desig(j:j),az(j),za(j)
  ENDIF
ENDFOR
close,unit & FREE_LUN,unit
;contour,dd,/follow,levels=[240,260,280,300],c_labels=[intarr(6)+1],/overplot,$
;clip=[0,0,511,511],/device,position=[0,0,511,511]
end