#!/usr/bin/csh
# Cron file to be run as root.
# This file updates the mk_point gif images on a a daily basis.
# These gif files are used by
# Jeff Payne
# v1.0 Jeff Payne 05/Aug/1997
# v1.1 Jeff Payne 06/Aug/1997  Must have plot set to X
# V1.2 Jeff Payne 20/May/1998  Modified to do pointings.
# V1.3 Jeff Payne 10/Jun/1998  Added Active region numbers
# V1.4 Jeff Payne 28/may/1999  IDL problem with write_GIF
#			       repeat Write_gif first time its used.
# V1.5 jeff Payne 04/Dec/2001  Removed some definition and !paths as NAR
#                              & EIT stuff is now found in SSW
# V1.6 Jeff Payne 19/May/2004  Use 'z' buffer for plotting
#
###################################################################################
#source $HOME/.login
source $HOME/.cshrc
setenv DISPLAY localhost:10.0
echo "Generating CDS Pointing Information"

###################################################################################
# Start CIDL
/home/master/scripts/cidl <<done
;###################################################################################

tvdevice,/disable
ncolors  = !D.table_size
zsize    = [512,512]
set_plot , 'Z' , /COPY
device , /close , set_resolution = zsize , set_colors = ncolors
!p.color = ncolors - 1
if exist(font) then !p.font=font

setenv,'DIR_GEN_NAR=/solsoft/solarsoft/dbase/ydb/nar'
setenv,'ANCIL_DATA=/archive/public/ancillary'
use_eof_cat
!path = EXPAND_PATH('+/cs')+':'+EXPAND_PATH('+/usr/users/master/site')+':'+!path
;
; get todays date
;
get_utc,utc
tdsdate=utc2str(utc,/date_only,/vms)
print,tdsdate
plot_cds_point,tdsdate,/nar,/rotate,wave=171,charsize=1.0
xyouts,-1000,1600,'Pointings for ' + tdsdate,charsize=1.5
temp=tvrd()
device,/close
tvlct,rs,gs,bs,/get
temp=mk_24bit(temp,rs,gs,bs)
write_jpeg,'/usr/local/html_docs/data/engineering/mk_point1.jpg',temp,/true,quality=100

;
; get yesterdays date
;
utc.mjd=utc.mjd-1
ytdsdate=utc2str(utc,/date_only,/vms)
print,ytdsdate
plot_cds_point,ytdsdate,/nar,/rotate,wave=171,charsize=1.0
xyouts,-1000,1600,'Pointings for ' + ytdsdate,charsize=1.5
temp=tvrd()
device,/close
tvlct,rs,gs,bs,/get
temp=mk_24bit(temp,rs,gs,bs)
write_jpeg,'/usr/local/html_docs/data/engineering/mk_point2.jpg',temp,/true,quality=100

;
; get tomorrows date
;
utc.mjd=utc.mjd+2
tmsdate=utc2str(utc,/date_only,/vms)
print,tmsdate


;
;
;sdate=tdsdate+" 00:00"
;mdate=tdsdate+" 12:00"
;
;
;plot_cds_point,tdsdate,/nar,/rotate,wave=171,charsize=1.0
;xyouts,-1000,1600,'Pointings for ' + tdsdate,charsize=1.5
;;wshow
;temp=tvrd()
;device,/close
;tvlct,rs,gs,bs,/get
;temp=mk_24bit(temp,rs,gs,bs)
;write_jpeg,'/usr/local/html_docs/data/engineering/mk_point1.jpg',temp,/true,quality=100
;;
;plot_cds_point,ytdsdate,/nar,/rotate,wave=171,charsize=1.0
;xyouts,-1000,1600,'Pointings for ' + ytdsdate,charsize=1.5
;;wshow
;temp=tvrd()
;device,/close
;tvlct,rs,gs,bs,/get
;temp=mk_24bit(temp,rs,gs,bs)
;write_jpeg,'/usr/local/html_docs/data/engineering/mk_point2.jpg',temp,/true,quality=100
;;
;;plot_cds_point,tmsdate,/nar,/rotate,wave=171
;;xyouts,-1000,1500,'Pointings for ' + tmsdate,charsize=2
;;wshow
;temp=tvrd(true=1)
;;write_jpeg,'/usr/local/html_docs/data/engineering/mk_point3.jpg',temp,true=1
;;
;;done
device,/close
set_plot,'X'

done