Fig1.12s <- function()
{
#  postscript(file = "Fig1.12.ps", horiz = F, height = 4.5, width = 3.5)
  par(mfrow = c(3, 2), mar = c(1.5, 1.5, 1.5, 0.5), mgp = c(5, 0.4, 0))
  plot(wavelet("d4", mother = F))
  mtext("Scaling function, N=4", side = 3, line = 0.1)
  plot(wavelet("d4", mother = T))
  mtext("Wavelet, N=4", side = 3, line = 0.1)
  plot(wavelet("d6", mother = F))
  mtext("Scaling function, N=5", side = 3, line = 0.1)
  plot(wavelet("d6", mother = T))
  mtext("Wavelet, N=5", side = 3, line = 0.1)
  plot(wavelet("d8", mother = F))
  mtext("Scaling function, N=7", side = 3, line = 0.1)
  plot(wavelet("d8", mother = T))
  mtext("Wavelet, N=7", side = 3, line = 0.1)
#  graphics.off()
  NULL
}