# Wtransform of John Lennon image
data(lennon)
look<- Wtransform.image( lennon)
image.plot( look)
#threshhold
thr<- quantile( abs( look), .95)
temp<- look
temp[abs(look)< thr] <- 0
look2<- Wtransform.image( temp, inv=T)
image( look2) # 95 \% compressed image
# a diagonal detail basis function
temp<- matrix(0, nrow=32, ncol=32)
temp[12,12]<- 1
look<- Wtransform.image( temp , inv=T)
persp( look)
Run the code above in your browser using DataLab