pro display_input

;  This procedure creates a composite display image of the six
;  individual images used to test the procedure `plot_image2.pro'
;  Each image has been marked to indicate its orientation on
;  the sky.

image = bytarr(1150,900)
image(0:1,*)=255 & image(1148:1149,*)=255
image(*,0:1)=255 & image(*,898:899)=255

loadb,'eureka.img',400,600,0,0,a
a = rebin(a,200,300)
a(0:1,*)=255 & a(198:199,*)=255
a(*,0:1)=255 & a(*,298:299)=255
a(113,170:299) = 255
a(0:30,87) = 255
image(75:75+199,100:100+299) = a

loadb,'sonde.img',512,512,0,0,b
b = rebin(b,256,256)
b(0:1,*)=255 & b(254:255,*)=255
b(*,0:1)=255 & b(*,254:255)=255
b(117,0:37) = 255
b(222:255,142) = 255
image(50:50+255,500:500+255) = b

loadb,'resolute.img',300,300,0,0,c
c(0:1,*)=255 & c(298:299,*)=255
c(*,0:1)=255 & c(*,298:299)=255
c(0:24,149) = 255
c(149,275:299) = 255
image(425:425+299,500:500+299) = c

loadb,'qaanaaq.img',300,300,0,0,d
d(0:1,*)=255 & d(298:299,*)=255
d(*,0:1)=255 & d(*,298:299)=255
d(0:24,149) = 255
d(149,275:299) = 255
image(425:425+299,100:100+299) = d

loadb,'nyalesond.img',300,300,0,0,e
e(0:1,*)=255 & e(298:299,*)=255
e(*,0:1)=255 & e(*,298:299)=255
image(775:775+299,500:500+299) = e

loadb,'nord.img',300,300,0,0,f
f(0:1,*)=255 & f(298:299,*)=255
f(*,0:1)=255 & f(*,298:299)=255
f(275:299,149) = 255
f(149,275:299) = 255
image(775:775+299,100:100+299) = f

window,xsi=1150,ysi=900,title='INPUT ALLSKY IMAGES'
loadlut1,'good.cm'
tv,image

xyouts,120,765,'!3512 X 512',size=1.1,/dev
xyouts,116,409,'!3400 X 600',size=1.1,/dev
xyouts,475+42,809,'!3300 X 300',size=1.1,/dev
xyouts,475+42,409,'!3300 X 300',size=1.1,/dev
xyouts,825+42,809,'!3300 X 300',size=1.1,/dev
xyouts,825+42,409,'!3300 X 300',size=1.1,/dev

xyouts,280,647,'!3W',size=1.3,/dev
xyouts,171,510,'!3S',size=1.3,/dev
xyouts,194,287,'!3N',size=1.3,/dev
xyouts,83,192,'!3E',size=1.3,/dev
xyouts,787,527,'!3N',size=1.3,/dev
xyouts,1025,527,'!3E',size=1.3,/dev
xyouts,580,781,'!3E',size=1.1,/dev
xyouts,432,655,'!3S',size=1.1,/dev
xyouts,580,381,'!3W',size=1.1,/dev
xyouts,432,255,'!3N',size=1.1,/dev
xyouts,930,381,'!3N',size=1.1,/dev
xyouts,1054,255,'!3W',size=1.1,/dev

xyouts,62,470,'!5SONDRESTROM',size=1.7,/dev
xyouts,109,68,'!5EUREKA',size=1.7,/dev
xyouts,450,470,'!5RESOLUTE BAY',size=1.7,/dev
xyouts,493,68,'!5QAANAAQ',size=1.7,/dev
xyouts,820,470,'!5NY ALESOND',size=1.7,/dev
xyouts,888,68,'!5NORD',size=1.7,/dev

xyouts,27,835,'!56300 A TEST IMAGES',size=2.2,/dev
xyouts,844-159,835,'!502 UT',size=2.2,/dev
image = tvrd(0,0,1150,900)

;image = 255 - image
;set_plot,'ps'
;device,xsi=7.67,ysi=6.0,xoffset=0.5,/inches,$
;bits_per_pixel=8,/landscape,file='input.ps'
;tv,image
;device,/close
;spawn,'lp input.ps'
;set_plot,'x'
;image = 255 - image

end