VocalEasel/Sources/VLSoundOut.cpp

408 lines
9.7 KiB
C++
Raw Normal View History

2007-04-27 06:41:34 +00:00
//
// File: VLSoundOut.cpp - Sound output and file playing functionality
//
// Author(s):
//
// (MN) Matthias Neeracher
//
// Copyright © 2005-2007 Matthias Neeracher
//
2006-09-11 02:49:56 +00:00
#include "VLSoundOut.h"
#include <AudioUnit/AudioUnit.h>
2006-11-27 07:01:38 +00:00
#include "CAAudioFileFormats.h"
#include "AUOutputBL.h"
2006-09-11 02:49:56 +00:00
#include <memory>
#include <vector>
2006-11-27 07:01:38 +00:00
#define R(x) if (OSStatus r = (x)) fprintf(stderr, "%s -> %ld\n", #x, r);
2006-09-11 02:49:56 +00:00
class VLAUSoundOut : public VLSoundOut {
public:
VLAUSoundOut();
virtual void PlayNote(const VLNote & note);
virtual void PlayChord(const VLChord & chord);
2008-05-29 18:54:30 +00:00
virtual void PlaySequence(MusicSequence music);
2007-01-02 07:01:55 +00:00
virtual void Stop();
virtual bool Playing();
2008-05-29 18:54:30 +00:00
virtual void SetPlayRate(float rate);
virtual void SetTime(MusicTimeStamp time);
2006-10-16 09:00:02 +00:00
virtual ~VLAUSoundOut();
protected:
VLAUSoundOut(bool fileOutput);
2006-11-27 07:01:38 +00:00
void InitSoundOutput(bool fileOutput);
virtual void SetupOutput(AUNode outputNode);
MusicTimeStamp SequenceLength(MusicSequence music);
2006-09-11 02:49:56 +00:00
2006-10-16 09:00:02 +00:00
AUGraph fGraph;
MusicPlayer fPlayer;
2006-11-27 07:01:38 +00:00
private:
2006-10-16 09:00:02 +00:00
MusicSequence fMusic;
2008-05-29 18:54:30 +00:00
MusicTimeStamp fMusicLength;
2006-10-16 09:00:02 +00:00
bool fRunning;
2008-05-29 18:54:30 +00:00
bool fForward;
void Play(const int8_t * note, size_t numNotes = 1);
};
class VLAUFileSoundOut : public VLAUSoundOut {
public:
2006-11-27 07:01:38 +00:00
VLAUFileSoundOut(CFURLRef file, OSType dataFormat);
~VLAUFileSoundOut();
protected:
virtual void SetupOutput(AUNode outputNode);
virtual void PlaySequence(MusicSequence music);
private:
AudioUnit fOutput;
CFURLRef fFile;
2006-11-27 07:01:38 +00:00
OSType fDataFormat;
2006-09-11 02:49:56 +00:00
};
VLSoundEvent::~VLSoundEvent()
{
}
void VLSoundScheduler::Schedule(VLSoundEvent * what, float when)
{
usleep((int)(1000000.0f*when));
2006-10-16 09:00:02 +00:00
what->Perform();
}
static std::auto_ptr<VLSoundOut> sSoundOut;
2006-10-16 09:00:02 +00:00
static std::auto_ptr<VLSoundScheduler> sSoundScheduler;
2006-09-11 02:49:56 +00:00
VLSoundOut * VLSoundOut::Instance()
{
if (!sSoundOut.get()) {
2006-09-11 02:49:56 +00:00
sSoundOut.reset(new VLAUSoundOut);
if (!sSoundScheduler.get())
sSoundScheduler.reset(new VLSoundScheduler);
}
2006-09-11 02:49:56 +00:00
return sSoundOut.get();
}
void VLSoundOut::SetScheduler(VLSoundScheduler * scheduler)
{
sSoundScheduler.reset(scheduler);
}
2006-11-27 07:01:38 +00:00
VLSoundOut * VLSoundOut::FileWriter(CFURLRef file, OSType dataFormat)
{
2006-11-27 07:01:38 +00:00
return new VLAUFileSoundOut(file, dataFormat);
}
2008-05-29 18:54:30 +00:00
void VLSoundOut::PlayFile(CFDataRef file)
{
MusicSequence music;
NewMusicSequence(&music);
MusicSequenceLoadSMFDataWithFlags(music, file,
kMusicSequenceLoadSMF_ChannelsToTracks);
PlaySequence(music);
}
2006-09-11 02:49:56 +00:00
VLSoundOut::~VLSoundOut()
{
}
VLAUSoundOut::VLAUSoundOut()
2008-05-29 18:54:30 +00:00
: fMusic(0), fRunning(false), fForward(true)
{
InitSoundOutput(false);
}
2006-11-27 07:01:38 +00:00
VLAUSoundOut::VLAUSoundOut(bool)
: fRunning(false), fMusic(0)
{
}
VLAUSoundOut::~VLAUSoundOut()
{
DisposeMusicPlayer(fPlayer);
Stop();
DisposeAUGraph(fGraph);
}
void VLAUSoundOut::InitSoundOutput(bool fileOutput)
2006-09-11 02:49:56 +00:00
{
AUNode synthNode, limiterNode, outNode;
ComponentDescription cd;
cd.componentManufacturer = kAudioUnitManufacturer_Apple;
cd.componentFlags = 0;
cd.componentFlagsMask = 0;
NewAUGraph(&fGraph);
cd.componentType = kAudioUnitType_MusicDevice;
cd.componentSubType = kAudioUnitSubType_DLSSynth;
AUGraphNewNode(fGraph, &cd, 0, NULL, &synthNode);
cd.componentType = kAudioUnitType_Effect;
cd.componentSubType = kAudioUnitSubType_PeakLimiter;
AUGraphNewNode (fGraph, &cd, 0, NULL, &limiterNode);
cd.componentType = kAudioUnitType_Output;
if (fileOutput)
cd.componentSubType = kAudioUnitSubType_GenericOutput;
else
cd.componentSubType = kAudioUnitSubType_DefaultOutput;
2006-09-11 02:49:56 +00:00
AUGraphNewNode(fGraph, &cd, 0, NULL, &outNode);
2006-11-27 07:01:38 +00:00
R(AUGraphOpen(fGraph));
2006-09-11 02:49:56 +00:00
AUGraphConnectNodeInput(fGraph, synthNode, 0, limiterNode, 0);
AUGraphConnectNodeInput(fGraph, limiterNode, 0, outNode, 0);
if (fileOutput) {
UInt32 value = 1;
AudioUnit synth;
2006-11-27 07:01:38 +00:00
R(AUGraphGetNodeInfo(fGraph, synthNode, 0, 0, 0, &synth));
R(AudioUnitSetProperty(synth,
kAudioUnitProperty_OfflineRender,
kAudioUnitScope_Global, 0,
&value, sizeof(value)));
value = 512;
R(AudioUnitSetProperty(synth,
kAudioUnitProperty_OfflineRender,
kAudioUnitScope_Global, 0,
&value, sizeof(value)));
}
SetupOutput(outNode);
2006-11-27 07:01:38 +00:00
R(AUGraphInitialize(fGraph));
2006-10-16 09:00:02 +00:00
NewMusicPlayer(&fPlayer);
2006-09-11 02:49:56 +00:00
}
void VLAUSoundOut::SetupOutput(AUNode)
2006-09-11 02:49:56 +00:00
{
}
2006-10-16 09:00:02 +00:00
void VLAUSoundOut::PlaySequence(MusicSequence music)
2006-09-11 02:49:56 +00:00
{
2006-10-16 09:00:02 +00:00
Stop();
2008-05-29 18:54:30 +00:00
fMusic = music;
fMusicLength = SequenceLength(music);
2006-10-16 09:00:02 +00:00
2006-11-27 07:01:38 +00:00
R(MusicSequenceSetAUGraph(fMusic, fGraph));
R(MusicPlayerSetSequence(fPlayer, fMusic));
R(MusicPlayerStart(fPlayer));
2006-10-16 09:00:02 +00:00
fRunning = true;
2006-09-11 02:49:56 +00:00
}
2008-05-29 18:54:30 +00:00
void VLAUSoundOut::SetPlayRate(float rate)
{
if ((rate < 0) != fForward) {
fForward = !fForward;
MusicTimeStamp rightNow;
MusicPlayerGetTime(fPlayer, &rightNow);
MusicSequenceReverse(fMusic);
MusicPlayerSetTime(fPlayer, fMusicLength - rightNow);
}
MusicPlayerSetPlayRateScalar(fPlayer, fabsf(rate));
}
void VLAUSoundOut::SetTime(MusicTimeStamp time)
{
SetPlayRate(1.0f);
MusicPlayerSetTime(fPlayer, time);
}
2006-09-11 02:49:56 +00:00
void VLAUSoundOut::Stop()
{
2006-10-16 09:00:02 +00:00
MusicPlayerStop(fPlayer);
2006-09-11 02:49:56 +00:00
if (fRunning) {
fRunning = false;
2006-10-16 09:00:02 +00:00
if (fMusic) {
MusicPlayerSetSequence(fPlayer, NULL);
DisposeMusicSequence(fMusic);
fMusic = 0;
}
2006-09-11 02:49:56 +00:00
}
}
bool VLAUSoundOut::Playing()
{
return fRunning;
}
2006-09-11 02:49:56 +00:00
void VLAUSoundOut::PlayNote(const VLNote & note)
{
Play(&note.fPitch);
}
void VLAUSoundOut::PlayChord(const VLChord & chord)
{
std::vector<int8_t> notes;
for (int i = 0; i < 32; ++i)
if (chord.fSteps & (1 << i))
notes.push_back(chord.fPitch+i);
if (chord.fRootPitch != VLNote::kNoPitch)
notes.push_back(chord.fRootPitch);
Play(&notes[0], notes.size());
}
void VLAUSoundOut::Play(const int8_t * note, size_t numNotes)
{
2006-10-16 09:00:02 +00:00
MusicSequence music;
MusicTrack track;
NewMusicSequence(&music);
MusicSequenceNewTrack(music, &track);
const int8_t kNoteVelocity = 127;
for (int i=0; i<numNotes; ++i) {
MIDINoteMessage n = {0, note[i], kNoteVelocity, 0, 1.0};
MusicTrackNewMIDINoteEvent(track, 0.0, &n);
}
PlaySequence(music);
2006-09-11 02:49:56 +00:00
}
2006-11-13 04:26:09 +00:00
MusicTimeStamp VLAUSoundOut::SequenceLength(MusicSequence music)
{
UInt32 ntracks;
2006-11-27 07:01:38 +00:00
MusicSequenceGetTrackCount(music, &ntracks);
MusicTimeStamp sequenceLength = 0;
for (UInt32 i = 0; i < ntracks; ++i) {
MusicTrack track;
MusicTimeStamp trackLength;
UInt32 propsize = sizeof(MusicTimeStamp);
2006-11-27 07:01:38 +00:00
MusicSequenceGetIndTrack(music, i, &track);
MusicTrackGetProperty(track, kSequenceTrackProperty_TrackLength,
&trackLength, &propsize);
sequenceLength = std::max(sequenceLength, trackLength);
}
return sequenceLength;
}
2006-11-27 07:01:38 +00:00
VLAUFileSoundOut::VLAUFileSoundOut(CFURLRef file, OSType dataFormat)
: VLAUSoundOut(true), fFile(file), fDataFormat(dataFormat)
{
2006-11-27 07:01:38 +00:00
InitSoundOutput(true);
CFRetain(fFile);
}
VLAUFileSoundOut::~VLAUFileSoundOut()
{
CFRelease(fFile);
}
void VLAUFileSoundOut::SetupOutput(AUNode outputNode)
{
2006-11-27 07:01:38 +00:00
R(AUGraphGetNodeInfo(fGraph, outputNode, 0, 0, 0, &fOutput));
Float64 sampleRate = 22050.0;
2006-11-27 07:01:38 +00:00
R(AudioUnitSetProperty(fOutput,
kAudioUnitProperty_SampleRate,
kAudioUnitScope_Output, 0,
&sampleRate, sizeof(sampleRate)));
}
void VLAUFileSoundOut::PlaySequence(MusicSequence music)
{
SInt32 urlErr;
CFURLDestroyResource(fFile, &urlErr);
UInt32 size;
2006-11-27 07:01:38 +00:00
UInt32 numFrames = 512;
MusicTimeStamp musicLen = SequenceLength(music)+8;
CFStringRef name =
CFURLCopyLastPathComponent(fFile);
2006-11-27 07:01:38 +00:00
CAAudioFileFormats * formats = CAAudioFileFormats::Instance();
AudioFileTypeID fileType;
formats->InferFileFormatFromFilename(name, fileType);
CAStreamBasicDescription outputFormat;
2006-11-27 07:01:38 +00:00
if (fDataFormat)
outputFormat.mFormatID = fDataFormat;
else if (!formats->InferDataFormatFromFileFormat(fileType, outputFormat))
switch (fileType) {
case kAudioFileM4AType:
outputFormat.mFormatID = kAudioFormatMPEG4AAC;
break;
default:
outputFormat.mFormatID = kAudioFormatLinearPCM;
break;
}
outputFormat.mChannelsPerFrame = 2;
2006-11-27 07:01:38 +00:00
outputFormat.mSampleRate = 22050.0;
if (outputFormat.mFormatID == kAudioFormatLinearPCM) {
outputFormat.mBytesPerPacket = outputFormat.mChannelsPerFrame * 2;
outputFormat.mFramesPerPacket = 1;
outputFormat.mBytesPerFrame = outputFormat.mBytesPerPacket;
outputFormat.mBitsPerChannel = 16;
if (fileType == kAudioFileWAVEType)
outputFormat.mFormatFlags = kLinearPCMFormatFlagIsSignedInteger
| kLinearPCMFormatFlagIsPacked;
else
outputFormat.mFormatFlags = kLinearPCMFormatFlagIsBigEndian
| kLinearPCMFormatFlagIsSignedInteger
| kLinearPCMFormatFlagIsPacked;
} else {
// use AudioFormat API to fill out the rest.
size = sizeof(outputFormat);
2006-11-27 07:01:38 +00:00
R(AudioFormatGetProperty(kAudioFormatProperty_FormatInfo, 0, NULL,
&size, &outputFormat));
}
CFURLRef dir =
CFURLCreateCopyDeletingLastPathComponent(NULL, fFile);
FSRef parentDir;
CFURLGetFSRef(dir, &parentDir);
CFRelease(dir);
ExtAudioFileRef outfile;
2006-11-27 07:01:38 +00:00
R(ExtAudioFileCreateNew(&parentDir, name,
fileType, &outputFormat, NULL, &outfile));
CFRelease(name);
2006-11-27 07:01:38 +00:00
CAStreamBasicDescription clientFormat;
size = sizeof(clientFormat);
R(AudioUnitGetProperty(fOutput, kAudioUnitProperty_StreamFormat,
kAudioUnitScope_Output, 0, &clientFormat, &size));
clientFormat.Print(stderr);
2006-12-30 09:55:27 +00:00
outputFormat.Print(stderr);
2006-11-27 07:01:38 +00:00
R(ExtAudioFileSetProperty(outfile, kExtAudioFileProperty_ClientDataFormat,
size, &clientFormat));
VLAUSoundOut::PlaySequence(music);
MusicTimeStamp currentTime;
AUOutputBL outputBuffer (clientFormat, numFrames);
AudioTimeStamp tStamp;
memset (&tStamp, 0, sizeof(AudioTimeStamp));
tStamp.mFlags = kAudioTimeStampSampleTimeValid;
do {
outputBuffer.Prepare();
AudioUnitRenderActionFlags actionFlags = 0;
R(AudioUnitRender(fOutput, &actionFlags, &tStamp, 0, numFrames,
outputBuffer.ABL()));
tStamp.mSampleTime += numFrames;
2006-11-27 07:01:38 +00:00
R(ExtAudioFileWrite(outfile, numFrames, outputBuffer.ABL()));
2006-11-27 07:01:38 +00:00
MusicPlayerGetTime (fPlayer, &currentTime);
} while (currentTime < musicLen);
ExtAudioFileDispose(outfile);
}