\HeaderA{draw.imwdc}{Draw mother wavelet associated with an imwdc object.}{draw.imwdc}
\keyword{hplot}{draw.imwdc}
\begin{Description}\relax
This function draws the mother wavelet associated with an \code{\LinkA{imwdc.object}{imwdc.object}} --- a compressed two-dimensional wavelet decomposition.
\end{Description}
\begin{Usage}
\begin{verbatim}
draw.imwdc(wd, resolution=128, ...)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{wd}] The \code{\LinkA{imwd}{imwd}} class object whose associated wavelet you wish to draw. (I know its called wd, sorry).
\item[\code{resolution}] The resolution at which the computation is done to compute the wavelet picture. Generally the resolution should be lower for two-dimensional wavelets since the number of computations is proportional to the square of the resolution (the DWT is still O(n) though).
\item[\code{...}] Additional arguments to pass to the \code{\LinkA{draw.default}{draw.default}} function which does the drawing.
\end{ldescription}
\end{Arguments}
\begin{Details}\relax
This function extracts the \code{filter} component from the \code{\LinkA{imwd}{imwd}} object (which is constructed using the \code{\LinkA{filter.select}{filter.select}} function) to decide which wavelet to draw. Once decided the \code{\LinkA{draw.default}{draw.default}} function is used to actually do the drawing.
\end{Details}
\begin{Value}
If the \code{plot.it} argument is set to \code{TRUE} then nothing is returned. Otherwise, as with \code{\LinkA{draw.default}{draw.default}}, the coordinates of what would have been plotted are returned.
\end{Value}
\begin{Section}{RELEASE}
Version 2 Copyright Guy Nason 1993
\end{Section}
\begin{SeeAlso}\relax
\code{\LinkA{filter.select}{filter.select}}, \code{\LinkA{imwdc.object}{imwdc.object}}, \code{\LinkA{draw.default}{draw.default}}.
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
#
# Let's use the lennon test image
#
#data(lennon)
#image(lennon)
#
# Now let's do the 2D discrete wavelet transform using Daubechies'
# least-asymmetric wavelet N=6
#
#lwd <- imwd(lennon, filter.number=6)
#
# Now let's threshold the 2D DWT
# The resultant class of object is imwdc object.
#
#lwdT <- threshold(lwd)
#
# And now draw the wavelet that did this transform
#
#draw(lwdT)
#
# A nice little two-dimensional wavelet!
#
\end{ExampleCode}
\end{Examples}

