pro disp9, array, win
;
;
;
wdef, win, 768
;
;  IDL     POINTING
; 0 1 2		2 3 4
; 3 4 5		1 0 5
; 6 7 8		8 7 6
;
loc = [4,3,0,1,2,5,8,7,6]
for i=0,8 do tvscl,rebin(array(*,*,i), 256, 256), loc(i)
;
end