/****h* SoundFX/ToSoundProbe.rexx [1.10] *
*
*  NAME
*    ToSoundProbe.rexx
*  COPYRIGHT
*    $VER: ToSoundProbe.rexx 1.10 (23.09.98) © by David O'Reilly & Stefan Kost 1998-1998
*  FUNCTION
*    exports the current sample to SoundProbe
*  AUTHOR
*    David O'Reilly			dr
*    Stefan Kost			sk
*  CREATION DATE
*    17.Jun.1998
*  MODIFICATION HISTORY
*    23.Sep.1998	V 1.10	adapted to SoundFX (sk)
*    17.Jun.1998	V 1.00	initial version (dr)
*  NOTES
*
*******
*/

OPTIONS RESULTS
ADDRESS 'REXX_SFX'

SFX_GetActiveBuffer
buf1=RESULT
IF buf1>-1 THEN DO
	SFX_GetBufferName buf1
	smp_name=RESULT
	SFX_SelSaver 'IFF-AIFF'
	SFX_SaveSample 't:tmp_sfx2sp.aiff'

	ADDRESS 'SOUNDPROBE'

	LOAD 't:tmp_sfx2sp.aiff'
	SETATTR PROJECT pid NAME smp_name

	ADDRESS COMMAND 'delete >nil: t:tmp_sfx2sp.aiff'
END
ELSE SFX_Message '"No sample to operate on !"'
ADDRESS 'REXX_SFX'
SFX_Activate
EXIT