Imports an audio file into current scene. Puts the new Audio
source into the audio source list of the given model. If there is
no Mixer object in the current
model, then it is added (so it can contain the audio source).
Note: Supported audio file formats include the Microsoft's Audio
Video Interleave (.avi), the Apple Audio Interchange File Format
(.aif, .aiff, or .aifc), Quicktime formats (.mov and .qt), and WAV
files (.wav)
This command supports downloading files off the internet. If the
filename specified is a URL then the file is downloaded locally
before the command is executed.
Warning: You must have an audio source file on disk to execute this
command.
oReturn = ImportAudio( Model, [FileName], [Name] ); |
Returns the new audio Source.
Parameter | Type | Description |
---|---|---|
Model | String | The model into which to import the audio. |
FileName | String | Full path to the file to import. Returns an error if the file specified is not an audio file. Default Value: File browser pops up |
Name | String | The name to use for the new audio source.
Default Value: File name |
'--------------------------------------------------------- ' This example shows how to import audio files into a ' model. Note: You must choose an audio source from a ' dialog box in this example '--------------------------------------------------------- ' First create a model to hold the sound clip. dim oModel SICreateModel , "AudioModel", , oModel logmessage oModel + " model created." ' Now import an audio source file. dim oAudioSource, Fullname, Filename, SamplingRate, ChannelCnt, Duration set oAudioSource = ImportAudio( oModel, , "Sound" ) ' Now display information about the clip created. Fullname = GetValue( oAudioSource.FullName ) Filename = GetValue( oAudioSource.FileName ) SamplingRate = GetValue( oAudioSource.SamplingRate ) ChannelCnt = GetValue( oAudioSource.ChannelCount ) Duration = GetValue( oAudioSource.Duration ) logmessage "Audio source created: " & Fullname logmessage "Audio filename : " & Filename logmessage "Audio Sampling Rate : " & CInt(SamplingRate) logmessage "Audio Channel Count : " & CInt(ChannelCnt) logmessage "Audio Duration : " & Duration '--------------------------------------------------------- ' Output from this script: 'INFO : "Audio source created: Sources.Sound" 'INFO : "Audio filename : <filename>" 'INFO : "Audio Sampling Rate : <sampling rate>" 'INFO : "Audio Channel Count : <channel count>" 'INFO : "Audio Duration : <duration (sec.)>" '--------------------------------------------------------- |