; IDL Version 3.1.2 (windows 3.1)
; Journal File for user@DOS Host
; Working directory: C:\IDL\DATA
; Date: Fri Nov 10 15:46:46 1995
 
help,/device
bim=bytarr(383,383)
openr,lun,'\data\pgm\93120802.geo',/get
readu,lun,bim
free_lun,lun
help,/files
window,2
tv,bim,0
wdelete,2
ebim=erode(bim,replicate(1,3,3))
tv,ebim
hlp,ebim
;       1   Byte array (383, 383).   Min = 0,  Max = 1
ebim=erode(bim,replicate(1,3,3),/gray)
tv,ebim
tvscl,bim-ebim
ebim=erode(bim,[[0,1,0],[1,1,1],[0,1,0]],/gray)
tv,ebim
tvscl,bim-ebim
.run outside
os=outside(bim)
help,os
print,(size(bim))(0)
;           2
print,size(bim)
;           2         383         383           1      146689
mbim=bim
mbim(os)=255
tvscl,mbim