PRO DIG_TVW,ima
;
;Displays (tvscl) a 2-D array IMA in window 0 of the 90 % height of the display
; and closes the window after clicking the cursor
;
; Copyright M. Klvana and M. Sobotka, ASU AVCR Ondrejov, Czech Rep., 2009
;

si=float(size(ima))
scre=get_screen_size()
aspe=si(1)/si(2)
scy=fix(0.9*scre(1))
scx=fix(scy*aspe)
window,0,xsiz=scx,ysiz=scy,title='CLICK TO CLOSE'
tvscl,congrid(ima,scx,scy,/interp)
cursor,nul1,nul2,/device,/down
wdelete,0
wait,0.1
END