FUNCTION squeeze2,image

COMMON keepstuff,rcol,rrow

imsize=SIZE(image)
IF imsize(0) NE 2 THEN BEGIN
    MESSAGE,'IMAGE must be an array!',/INFORMATIONAL
    RETURN,image
    ENDIF

IF imsize(1) NE 2*(imsize(1)/2) THEN BEGIN
    MESSAGE,'Image must have an even number of columns!',/INFORMATIONAL
    RETURN,image
    ENDIF

factor=2.10
lostcols=33
ncols=256
nrows=256
nscols=CEIL(factor*256)

scim=REBIN(image,ncols,nrows,/SAMPLE)
blank=INTARR(nscols,nrows)
blank(0:ncols-1,0:nrows-1)=scim
xcols=nscols-(ncols+lostcols)
blank(ncols+lostcols:nscols-1,0:nrows-1)=scim(0:MIN([xcols-1,ncols-1]),0:nrows-1)

IF N_ELEMENTS(rcol) EQ 0 THEN BEGIN
    nrcols=FLOOR(nscols/factor)
    rcol=REBIN(FINDGEN(nrcols)*factor,nrcols,nrows)
    rrow=REBIN(FINDGEN(1,nrows),nrcols,nrows)
    ENDIF

shrink=BILINEAR(blank,rcol,rrow)

RETURN,REBIN(shrink,ncols/2,nrows/2)
END