Programmer Guide/Shell Items/Wave/WAVE Item Examples - Revision history

Jw at 07:11, 5 May 2015

2015-05-05T07:11:55Z

← Older revision		Revision as of 09:11, 5 May 2015
Line 1:		Line 1:
	{{DISPLAYTITLE:{{SUBPAGENAME}}}}		{{DISPLAYTITLE:{{SUBPAGENAME}}}}
	~~==WAVE item examples==~~		{{Wave Item}}

	The following example displays a wave's samples in a list box.		The following example displays a wave's samples in a list box.

Jw: Jw moved page Programmer Guide/Shell Items/Wave/WAVE item examples to Programmer Guide/Shell Items/Wave/WAVE Item Examples

2015-05-05T06:56:42Z

Jw moved page Programmer Guide/Shell Items/Wave/WAVE item examples to Programmer Guide/Shell Items/Wave/WAVE Item Examples

← Older revision		Revision as of 08:56, 5 May 2015
(No difference)

Jw: /* WAVE item examples */

2015-03-02T07:14:06Z

WAVE item examples

← Older revision		Revision as of 09:14, 2 March 2015
Line 30:		Line 30:
	//		//
	$#wave copy $#table /Write		$#wave copy $#table /Write
	//		//
	// display wave contents in table		// display wave contents in table
	//		//
	showitem $#table		showitem $#table
	//		//
	// use message box to prevent script from ending		// use message box to prevent script from ending

Jw: /* WAVE item examples */

2015-03-02T07:13:37Z

WAVE item examples

← Older revision		Revision as of 09:13, 2 March 2015
Line 22:		Line 22:
	#wave := new wave * 1_$#nsamples		#wave := new wave * 1_$#nsamples
	if '$#wave[?]' != 'wave' em -1 ; wave creation failed ($emsg)		if '$#wave[?]' != 'wave' em -1 ; wave creation failed ($emsg)
	//		//
	// create table to receive wave data		// create table to receive wave data
	//		//
	#table := new table * /Parameter $#nch num		#table := new table * /Parameter $#nch num
	//		//
	// play the contents of the soundfile		// play the contents of the soundfile

Admin: 1 revision: Initial import

2010-11-18T16:31:52Z

1 revision: Initial import

← Older revision	Revision as of 18:31, 18 November 2010
(No difference)

193.171.195.8: initial import

2010-05-17T13:05:27Z

initial import

New page

{{DISPLAYTITLE:{{SUBPAGENAME}}}}
==WAVE item examples==

The following example displays a wave's samples in a list box.

<pre>
[macro wave_item_table_data_example]
//
// ask user to select a soundfile from disk
//
#sf := butil 'FileDialog open ; Select a soundfile'
if '$#sf' == '' exit
//
// load the soundfile in STx
//
load soundfile '$#sf' /Read
if '$rc' > 0 em $rc ; LOAD SOUNDFILE failed ($emsg)
readvar csfh #srate #nch #nsamples #code #type #mode
//
// create a wave item addressing the soundfile
//
#wave := new wave * 1_$#nsamples
if '$#wave[?]' != 'wave' em -1 ; wave creation failed ($emsg)
//
// create table to receive wave data
//
#table := new table * /Parameter $#nch num
//
// play the contents of the soundfile
//
$#wave copy $#table /Write
//
// display wave contents in table
//
showitem $#table
//
// use message box to prevent script from ending
//
um 'Do you want to exit?'
//
// clean up
//
delete $#wave $#table
exit
</pre>