pro double,n

; Created by C See, 1 Dec 98
; This procedure doubles the size of the image in window n.

window=!D.window		    ;saves the starting window
if n_params() eq 0 then n = window  ;defaults to the current window
wset,n				    ;establishes n as the current window

t=tvrd()		;reads the window
s=size(t)
window,n,xsize=2.1*s(1),ysize=2.1*s(2)	;resizes the window
t=rebin(t,2*s(1),2*s(2),/sample)
tv,t

wset,window	;returns to starting window
end