PRO WDOWPC
;+
; NAME:
;	WDOWPC
;
; PURPOSE:
;	This procedure performs a  wave packet compression
;	of the data or signal. It is mainly for test purposes
;	to make sure everything works correctly before implementing
;	an equivalent wavelet packet compression to 'WDOWTC.pro' 
;	which will contain buttons, sliders, thresholds etc.
;
; CATEGORY:
;	Wavelets.
;
; CALLING SEQUENCE:
;	WDOWPC
;
; INPUTS: (via COMMON)
;	sig: 1-d signal array	
;	QMF: Quadrature Mirror Filter
;	st: signal title
;
; OUTPUTS:
;	A wavelet packet decomposition, an entropy drop tree, 
;	and a phase plane all plotted to the screen in different
;	windows. 
;
; COMMON BLOCKS:
; COMMON WWB_COMMON, $
;	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
;	QMF, LD, shrinkage_type, WaveType, ParVal
; COMMON WPC_common, FSLID1, BUTTON1, BUTTON2, BUTTON17, $
;	wpcoef, btree, wcwmnsort, thr, threshslider
;
;
; 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 Wavelet Packet Compression
;		IDL> WDOWPC
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps  Sepember, 1995
;-

COMMON WPC_common, FSLID1, BUTTON1, BUTTON2, BUTTON17, $
	wpcoef, btree, wcwmnsort, thr, threshslider
COMMON WWB_COMMON, $
	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
	QMF, LD, shrinkage_type, WaveType, ParVal

TT = WSIGTYPE(sig, len, error)

CASE error OF
	1: BEGIN
		;Valid array or matrix
	
		CASE TT OF
			'I': BEGIN
				;Image
				WIDGET_CONTROL, TEXT_ANNOUNCE, SET_VALUE='WPC Not Implemented for 2D Data.'				
				END	;image
				
			'S': BEGIN
				;Signal
								
				WPC
								
				END	;signal/data array						
		ENDCASE	;TT

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

ENDCASE		;error

; Algorithm Source:  WaveLab Version 0.600
; WaveLab WWW site: http://playfair.stanford.edu/ 
; WaveLab Questions? e-mail wavelab@playfair.stanford.edu


END		;of WDOWPC