Carl West wrote:
>
> Carl West wrote:
> >
> > I want to save sound castmembers out as AIFF files.
>
> It's starting to look like I can do it with AudioXtra from Red Eye
> Software (available at UpdateStage)
Yep! It works.
It's hardcoded to my particular case, but the guts are in there:
on AudioCast2Folder
-- this assumes the cast has been sorted by name so that duplicates
will be next to
-- each other and there are no gaps
axRegister("XXXXXXXXXXXXXX") -- sorry, you've got to supply your own
serial number,
--and you'll really want to because each word will pop up the
registration nag 4 times
axOpenRecorder(3000000) -- you needs may vary
theLastOne = the number of members of castlib "sounds"
memName = ""
repeat with x = 1 to theLastOne
-- put duplicates in another folder to be checked by hand for
best-sounding version
targetfoldername = "NewAudioFiles:"
if memName = (member x of castlib "sounds").name then
targetfoldername = "NewAudioFilesDuplicates:"
end if
memName = (member x of castlib "sounds").name
axLoadSound(memname,"member",member x of castlib "sounds")
-- the folders "NewAudioFiles" and "NewAudioFiles" are in the
folder with the movie
whereto = the moviepath & targetfoldername & memname
axConvertToFile(memname,whereto,"AIFF")
axRemoveSound(memname)
-- progress report of sorts
if (x)mod 100 = 0 then
put x
unload
end if
end repeat
axCloseRecorder()
Put "done"
beep 3
end
My thanks to Scott Kildall at Red Eye Software for AudioXtra version 4
--
Carl West [EMAIL PROTECTED]
617.262.8830 x246
--------------------
To gain face, give it
To lose face, try to save it
Or take it away
- F. Eysenkopf
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
