Fig4.5s <- function()
{
#  postscript(file = "Fig4.5.ps", height = 3.9, width = 7.37, horiz = F)
  par(mfrow = c(1, 2), mar = c(1.5, 1.5, 1.5, 1.5), mgp = c(5, 0.4, 0))
  fourier.transform.plot(wavelet("haar", mother = F))
  mtext(side = 3, line = 0.1, "Haar scaling function")
  fourier.transform.plot(wavelet("d10", mother = F))
  mtext(side = 3, line = 0.1, "Daubechies scaling function N=5")
#  graphics.off()
  NULL
}