;+
;NAME:
;	WAVESET
;
;PURPOSE:
;	To set the common variables used in the Wavelet Workbench library.
;
;CATEGORY:
;	Wavelets
;
;CALLING SEQUENCE:
;	IDL>.run waveset
;
;INPUTS:
;	None.
;
;OUTPUTS:
;	The common variables set for Wavelet Workbench.
;
;COMMON VARIABLE DEFINITIONS:
;COMMON WWB_COMMON, $
;	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
;	QMF, LD, shrinkage_type, WaveType, ParVal
;COMMON Wave_color, $
;      max_color, max_image, $
;      white, yellow, lavender, aqua, pink, green, red, orange, blue, $
;      lt_gray, med_green, brown, olive, purple, dk_gray, black
;
;NOTES:
;If one runs this program first, then they can use the Wavelet Workbench 
;routines without the widget interface provided in the routine: wwb.pro
;
;MODIFICATION HISTORY:
;   copyright Amara Graps 1996.
;-


;COMMON VARIABLE DEFINITIONS

COMMON WWB_COMMON, $
	TEXT_ANNOUNCE, wd, sig, len, st, noise_type, noise_lev, $
	QMF, LD, shrinkage_type, WaveType, ParVal
COMMON Wave_color, $
      max_color, max_image, $
      white, yellow, lavender, aqua, pink, green, red, orange, blue, $
      lt_gray, med_green, brown, olive, purple, dk_gray, black

;GLOBAL DEFAULTS

WaveType = 'Haar'
ParVal = 1
len = 1024
noise_type = 1
noise_lev = .1
shrinkage_type = 1

;Set Working Directory `wd' to be path of the library of wavelet
;routines.
;wd = 'Mac Hard Disk:WWB:'
wd = 'Wild Woman:Wavelet Workbench:WWB:'

END	;of program waveset
;**********************************************************************