PRO WDOWAVE, WaveType,ParVal

;+
; NAME:
; 	 WDOWAVE
;
; PURPOSE:
;	This procedure calls the MakeWavelet procedure and plots the result.
;
; CATEGORY:
;	Wavelets
;
; CALLING SEQUENCE:
;    WDOWAVE, WaveType, ParVal
;
; INPUTS:
;    WaveType:    Type of Wavelet: 'Haar' 'Daubechies' 'Coiflet' 'Symmlet'
;	 ParVal: 	  Parameter value corresponding to the wavelet
;
; OUTPUTS:
;	A simple wavelet plot. 
;
; MODIFICATION HISTORY:
; 	Written by:	Amara Graps		August, 1995
;-

Checktype =  STRCOMPRESS(WaveType,/remove_all)	;remove white space
Checktype = STRUPCASE(Checktype)	;make upper case

spar = STRCOMPRESS(STRING(ParVal),/remove_all)
CASE Checktype OF

	'HAAR': BEGIN
		wave = WMKWVLET(1,3,Family='Haar',Par=ParVal,Gender='Mother',n=512)
		WPLOTIT,'Haar_'+spar, 2, wave
		END
		
	'DAUBECHIES': BEGIN
		wave = WMKWVLET(1,3,Family='Daubechies',Par=ParVal,Gender='Mother',n=512)
		WPLOTIT,'Daubechies_'+spar, 2, wave	
		END  ;Daubechies
		
	'COIFLET': BEGIN
		wave = WMKWVLET(2,-4,Family='Coiflet',Par=ParVal,Gender='Mother',n=512)
		WPLOTIT,'Coiflet_'+spar, 2, wave
    	END	;Coiflet
    	
	'SYMMLET': BEGIN
		wave = WMKWVLET(2,-4,Family='Symmlet',Par=ParVal,Gender='Mother',n=512)
		WPLOTIT,'Symmlet_'+spar, 2, wave
		END	;Symmlet
		
	ELSE: print, 'Not enough information for creating wavelet!'
	
ENDCASE		;Case Checktype

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

END		;of procedure WDOWAVE