pro WDOMRA
;+
; NAME:
;	WDOMRA
;
; PURPOSE:
;	This procedure performs a  multi-resolution depiction
;	of the data or signal.
;
; CATEGORY:
;	Wavelets.
;
; CALLING SEQUENCE:
;
;	WDOMRA
;
; INPUTS: (via COMMON)
;	sig: 1-d signal array	
;	QMF: Quadrature Mirror Filter
;	st: signal title
;	LD = multiresolution scale
;
; OUTPUTS:
;	The discrete wavelet transform coeffs plotted to the screen.
;
; COMMON BLOCKS:
;COMMON WWB_COMMON, $
;	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
;	QMF, LD, shrinkage_type, WaveType, ParVal
;
; SEE ALSO:
;	wintwave (necessary for this procedure to get QMF)
;
; EXAMPLE:
;		IDL> ;Truncate sig array appropriately and get QMF
;		IDL> WINTWAVE, sig, WaveType, ParVal, QMF, LD
;		IDL> ;Call Multi-resolution analysis
;		IDL> WDOMRA
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps  August/September, 1995
;-
COMMON WWB_COMMON, $
	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
	QMF, LD, shrinkage_type, WaveType, ParVal

x_work = sig
TT = WSIGTYPE(x_work, olen, error)

CASE error OF
	1: BEGIN
		;Valid array or matrix
	
		CASE TT OF
			'I': BEGIN
				;Image
				WIDGET_CONTROL, TEXT_ANNOUNCE, SET_VALUE='MRA Not Implemented for 2D Data.'				
				END	;image
				
			'S': BEGIN
				;Signal
				;Calculate wavelet coefficients
				wc = WFWTPO(x_work,LD,QMF)

				;Set up the plot window
				;pt and d are dummy values
				pt = '' & d = fltarr(2)
				WPLOTIT, pt, 3, d

				;Do Multi-resolution plot
				scal = 0	;use the default in wplmlres
				WPLMLRES, wc,LD,scal,QMF, st
				
				END	;signal/data array						
		ENDCASE	;TT

	
		END	;valid array or matrix
		
	ELSE: PRINT, 'Not valid data/signal array or matrix!'

ENDCASE		;error



End ;of pro WDOMRA
;*****************************************************************************