// show the approximate position in MM:SS format
void UpdatePositionLabel(void)
{
if(!BASS_FX_TempoGetRateRatio(chan)) return;
{
char c[30];
float totalsec=(float)MESS(IDC_POS,TBM_GETRANGEMAX,0,0)/BASS_FX_TempoGetRateRatio(chan);
float posec=(float)MESS(IDC_POS,TBM_GETPOS,0,0)/BASS_FX_TempoGetRateRatio(chan);
sprintf(c,"Playing position: %02d:%02d / %02d:%02d", (int)posec/60,(int)posec%60,(int)totalsec/60,(int)totalsec%60);
MESS(IDC_SPOS,WM_SETTEXT,0,c);
}
}
void UpdateInputInfo()
{
char *type;
float level;
int it=BASS_RecordGetInput(input,&level); // get info on the input
if (it==-1 || level<0) { // failed to get level
BASS_RecordGetInput(-1,&level); // try master input instead
if (level<0) { // that failed too
level=1; // just display 100%
EnableWindow(DLGITEM(14),FALSE);
} else
EnableWindow(DLGITEM(14),TRUE);
} else
EnableWindow(DLGITEM(14),TRUE);
MESS(14,TBM_SETPOS,TRUE,level*100); // set the level slider
switch (it&BASS_INPUT_TYPE_MASK) {
case BASS_INPUT_TYPE_DIGITAL:
type="digital";
break;
case BASS_INPUT_TYPE_LINE:
type="line-in";
break;
case BASS_INPUT_TYPE_MIC:
type="microphone";
break;
case BASS_INPUT_TYPE_SYNTH:
type="midi synth";
break;
case BASS_INPUT_TYPE_CD:
type="analog cd";
break;
case BASS_INPUT_TYPE_PHONE:
type="telephone";
break;
case BASS_INPUT_TYPE_SPEAKER:
type="pc speaker";
break;
case BASS_INPUT_TYPE_WAVE:
type="wave/pcm";
break;
case BASS_INPUT_TYPE_AUX:
type="aux";
break;
case BASS_INPUT_TYPE_ANALOG:
type="analog";
break;
default:
type="undefined";
}
MESS(15,WM_SETTEXT,0,type); // display the type
}
static BOOL Initialize()
{
BASS_INFO bi;
// initialize output, get latency
if (!BASS_Init(-1,44100,BASS_DEVICE_LATENCY,win,NULL)) {
Error("Can't initialize output");
return FALSE;
}
BASS_GetInfo(&bi);
if (bi.dsver<8) { // no DX8, so disable effect buttons
EnableWindow(GetDlgItem(win,20),FALSE);
EnableWindow(GetDlgItem(win,21),FALSE);
EnableWindow(GetDlgItem(win,22),FALSE);
EnableWindow(GetDlgItem(win,23),FALSE);
}
// create a stream to play the recording
chan=BASS_StreamCreate(44100,2,0,STREAMPROC_PUSH,0);
// start recording with 10ms period
if (!BASS_RecordInit(-1) || !(rchan=BASS_RecordStart(44100,2,MAKELONG(0,10),RecordingCallback,0))) {
BASS_RecordFree();
BASS_Free();
Error("Can't initialize recording");
return FALSE;
}
{ // get list of inputs
int c;
const char *i;
for (c=0;i=BASS_RecordGetInputName(c);c++) {
float level;
MESS(10,CB_ADDSTRING,0,i);
if (!(BASS_RecordGetInput(c,&level)&BASS_INPUT_OFF)) { // this 1 is currently "on"
input=c;
MESS(10,CB_SETCURSEL,input,0);
MESS(11,TBM_SETPOS,TRUE,level*100); // set level slider
}
}
}
{ // prebuffer at least "minbuf" amount of data before starting playback
DWORD prebuf=BASS_ChannelSeconds2Bytes(chan,bi.minbuf/1000.f);
while (BASS_ChannelGetData(chan,NULL,BASS_DATA_AVAILABLE)<prebuf)
Sleep(1);
}
BASS_ChannelPlay(chan,FALSE);
return TRUE;
}
void StopRecording()
{
BASS_ChannelStop(rchan);
rchan=0;
{ // complete the WAVE header
DWORD len=ftell(rfp),v;
fseek(rfp,4,SEEK_SET);
v=len-8;
fwrite(&v,1,4,rfp);
fseek(rfp,40,SEEK_SET);
v=len-44;
fwrite(&v,1,4,rfp);
fclose(rfp);
}
MESS(10,WM_SETTEXT,0,L"Record");
// setup output device (using default device)
if (!BASS_Init(-1,44100,0,NULL,NULL)) {
Error(L"Can't initialize output device");
return;
}
// create a stream from the recording
if (chan=BASS_StreamCreateFile(FALSE,L"bass.wav",0,0,BASS_UNICODE))
EnableWindow(DLGITEM(11),TRUE); // enable "play" button
else
BASS_Free();
}
void StartRecording()
{
WAVEFORMATEX wf;
if (chan) { // free old recording
BASS_StreamFree(chan);
chan=0;
EnableWindow(DLGITEM(11),FALSE);
// close output device before recording incase of half-duplex device
BASS_Free();
}
// open the output file
if (!(rfp=_wfopen(L"bass.wav",L"wb"))) {
Error(L"Can't create the file");
return;
}
// write the WAVE header
fwrite("RIFF\0\0\0\0WAVEfmt \20\0\0\0",1,20,rfp);
wf.wFormatTag=WAVE_FORMAT_PCM;
wf.nChannels=1;
wf.wBitsPerSample=16;
wf.nSamplesPerSec=44100;
wf.nBlockAlign=wf.nChannels*wf.wBitsPerSample/8;
wf.nAvgBytesPerSec=wf.nSamplesPerSec*wf.nBlockAlign;
fwrite(&wf,1,16,rfp);
fwrite("data\0\0\0\0",1,8,rfp);
// start recording @ 44100hz 16-bit mono
if (!(rchan=BASS_RecordStart(44100,1,0,&RecordingCallback,0))) {
Error(L"Couldn't start recording");
fclose(rfp);
return;
}
MESS(10,WM_SETTEXT,0,L"Stop");
}
void StartRecording()
{
WAVEFORMATEX *wf;
if (recbuf) { // free old recording
BASS_StreamFree(chan);
chan=0;
free(recbuf);
recbuf=NULL;
EnableWindow(DLGITEM(11),FALSE);
EnableWindow(DLGITEM(12),FALSE);
// close output device before recording incase of half-duplex device
BASS_Free();
}
// allocate initial buffer and make space for WAVE header
recbuf=malloc(BUFSTEP);
reclen=44;
// fill the WAVE header
memcpy(recbuf,"RIFF\0\0\0\0WAVEfmt \20\0\0\0",20);
memcpy(recbuf+36,"data\0\0\0\0",8);
wf=(WAVEFORMATEX*)(recbuf+20);
wf->wFormatTag=1;
wf->nChannels=2;
wf->wBitsPerSample=16;
wf->nSamplesPerSec=44100;
wf->nBlockAlign=wf->nChannels*wf->wBitsPerSample/8;
wf->nAvgBytesPerSec=wf->nSamplesPerSec*wf->nBlockAlign;
// start recording @ 44100hz 16-bit stereo
if (!(rchan=BASS_RecordStart(44100,2,0,&RecordingCallback,0))) {
Error("Couldn't start recording");
free(recbuf);
recbuf=0;
return;
}
MESS(10,WM_SETTEXT,0,"Stop");
}
// get the original bpm after period of time
void CALLBACK GetBPM_Callback(DWORD handle, float bpm, DWORD user)
{
// don't bother to update the BPM view if it's zero
if(bpm){
char c[30];
sprintf(c,"BPM: %0.2f", GetNewBPM(handle));
MESS(IDC_SBPM,WM_SETTEXT,0,c);
}
}
// update dsp eq
void UpdateFX(int b)
{
BASS_BFX_PEAKEQ eq;
int v = MESS(IDC_SLDEQ1+b,TBM_GETPOS,0,0);
eq.lBand = b; // get values of the selected band
BASS_FXGetParameters(fxEQ, &eq);
eq.fGain = (float)(10 - v);
BASS_FXSetParameters(fxEQ, &eq);
}
// get the beat position in seconds
void CALLBACK beatTimerProc(UINT uTimerID, UINT uMsg, DWORD dwUser, DWORD dw1, DWORD dw2)
{
if (BASS_FX_TempoGetRateRatio(chan)){
double beatpos;
char c[30];
beatpos = BASS_ChannelBytes2Seconds(chan, BASS_ChannelGetPosition(chan, BASS_POS_BYTE)) / BASS_FX_TempoGetRateRatio(chan);
sprintf(c,"Beat pos: %0.2f", beatpos);
MESS(IDC_SBEAT,WM_SETTEXT,0,c);
}
timeKillEvent(uTimerID);
}
BOOL InitDevice(int device)
{
BASS_RecordFree(); // free current device (and recording channel) if there is one
// initalize new device
if (!BASS_RecordInit(device)) {
Error("Can't initialize recording device");
return FALSE;
}
{ // get list of inputs
int c;
const char *i;
MESS(13,CB_RESETCONTENT,0,0);
for (c=0;i=BASS_RecordGetInputName(c);c++) {
MESS(13,CB_ADDSTRING,0,i);
if (!(BASS_RecordGetInput(c,NULL)&BASS_INPUT_OFF)) { // this one is currently "on"
input=c;
MESS(13,CB_SETCURSEL,input,0);
UpdateInputInfo();
}
}
}
return TRUE;
}
void UpdateFX(int b)
{
int v=MESS(20+b,TBM_GETPOS,0,0);
if (b<3) {
BASS_DX8_PARAMEQ p;
BASS_FXGetParameters(fx[b],&p);
p.fGain=10.0-v;
BASS_FXSetParameters(fx[b],&p);
} else {
BASS_DX8_REVERB p;
BASS_FXGetParameters(fx[3],&p);
p.fReverbMix=(v<20?log(1-v/20.0)*20:-96);
BASS_FXSetParameters(fx[3],&p);
}
}
// buffer the recorded data
BOOL CALLBACK RecordingCallback(HRECORD handle, const void *buffer, DWORD length, void *user)
{
// increase buffer size if needed
if ((reclen%BUFSTEP)+length>=BUFSTEP) {
recbuf=realloc(recbuf,((reclen+length)/BUFSTEP+1)*BUFSTEP);
if (!recbuf) {
rchan=0;
Error("Out of memory!");
MESS(10,WM_SETTEXT,0,"Record");
return FALSE; // stop recording
}
}
// buffer the data
memcpy(recbuf+reclen,buffer,length);
reclen+=length;
return TRUE; // continue recording
}
void DecodingBPM(BOOL newStream, double startSec, double endSec, const char *fp)
{
char c[30];
if (newStream){
// Open file for bpm decoding detection
hBPM = BASS_StreamCreateFile(FALSE, fp, 0, 0, BASS_STREAM_DECODE);
if (!hBPM) hBPM = BASS_MusicLoad(FALSE, fp, 0, 0, BASS_MUSIC_DECODE|BASS_MUSIC_PRESCAN, 0);
}
orgBPM = BASS_FX_BPM_DecodeGet(hBPM, startSec, endSec, 0, BASS_FX_BPM_BKGRND|BASS_FX_BPM_MULT2|BASS_FX_FREESOURCE, (BPMPROCESSPROC*)GetBPM_Process);
// don't bother to update the BPM view if it's zero
if (orgBPM) {
// update the bpm view
sprintf(c,"BPM: %0.2f", GetNewBPM(hBPM));
MESS(IDC_SBPM,WM_SETTEXT,0,c);
}
}
void StopRecording()
{
BASS_ChannelStop(rchan);
rchan=0;
MESS(10,WM_SETTEXT,0,"Record");
// complete the WAVE header
*(DWORD*)(recbuf+4)=reclen-8;
*(DWORD*)(recbuf+40)=reclen-44;
// enable "save" button
EnableWindow(DLGITEM(12),TRUE);
// setup output device (using default device)
if (!BASS_Init(-1,FREQ,0,win,NULL)) {
Error("Can't initialize output device");
return;
}
// create a stream from the recording
if (chan=BASS_StreamCreateFile(TRUE,recbuf,0,reclen,0))
EnableWindow(DLGITEM(11),TRUE); // enable "play" button
else
BASS_Free();
}
BOOL CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_COMMAND:
switch (LOWORD(w)) {
case IDCANCEL:
DestroyWindow(h);
return 1;
case 10:
{
char file[MAX_PATH]="";
ofn.lpstrFilter="playable files\0*.mo3;*.xm;*.mod;*.s3m;*.it;*.mtm;*.mp3;*.mp2;*.mp1;*.ogg;*.wav\0All files\0*.*\0\0";
ofn.lpstrFile=file;
if (GetOpenFileName(&ofn)) {
memcpy(path,file,ofn.nFileOffset);
path[ofn.nFileOffset-1]=0;
// free both MOD and stream, it must be one of them! :)
BASS_MusicFree(chan);
BASS_StreamFree(chan);
if (!(chan=BASS_StreamCreateFile(FALSE,file,0,0,floatable?BASS_SAMPLE_FLOAT:0))
&& !(chan=BASS_MusicLoad(FALSE,file,0,0,BASS_MUSIC_LOOP|BASS_MUSIC_RAMP|(floatable?BASS_MUSIC_FLOAT:0)))) {
// whatever it is, it ain't playable
MESS(10,WM_SETTEXT,0,"click here to open a file...");
Error("Can't play the file");
break;
}
if (BASS_ChannelGetFlags(chan)&BASS_SAMPLE_MONO) {
// mono = not allowed
MESS(10,WM_SETTEXT,0,"click here to open a file...");
BASS_MusicFree(chan);
BASS_StreamFree(chan);
Error("mono sources are not supported");
break;
}
MESS(10,WM_SETTEXT,0,file);
// setup DSPs on new channel
SendMessage(win,WM_COMMAND,11,0);
SendMessage(win,WM_COMMAND,12,0);
SendMessage(win,WM_COMMAND,13,0);
// play both MOD and stream, it must be one of them!
BASS_MusicPlay(chan);
BASS_StreamPlay(chan,0,BASS_SAMPLE_LOOP);
}
}
return 1;
case 11: // toggle "rotate"
if (MESS(11,BM_GETCHECK,0,0)) {
rotpos=0.7853981f;
rotdsp=BASS_ChannelSetDSP(chan,&Rotate,0);
} else
BASS_ChannelRemoveDSP(chan,rotdsp);
break;
case 12: // toggle "echo"
if (MESS(12,BM_GETCHECK,0,0)) {
memset(echbuf,0,sizeof(echbuf));
echpos=0;
echdsp=BASS_ChannelSetDSP(chan,&Echo,0);
} else
BASS_ChannelRemoveDSP(chan,echdsp);
break;
case 13: // toggle "flanger"
if (MESS(13,BM_GETCHECK,0,0)) {
memset(flabuf,0,sizeof(flabuf));
flapos=0;
flas=FLABUFLEN/2;
flasinc=0.002f;
fladsp=BASS_ChannelSetDSP(chan,&Flange,0);
} else
BASS_ChannelRemoveDSP(chan,fladsp);
break;
}
break;
case WM_INITDIALOG:
win=h;
GetCurrentDirectory(MAX_PATH,path);
memset(&ofn,0,sizeof(ofn));
ofn.lStructSize=sizeof(ofn);
ofn.hwndOwner=h;
ofn.hInstance=inst;
ofn.nMaxFile=MAX_PATH;
ofn.lpstrInitialDir=path;
ofn.Flags=OFN_HIDEREADONLY|OFN_EXPLORER;
// initialize - default device, 44100hz, stereo, 16 bits, floating-point DSP
if (!BASS_Init(-1,44100,BASS_DEVICE_FLOATDSP,win)) {
Error("Can't initialize device");
DestroyWindow(win);
return 1;
}
BASS_Start();
// check for floating-point capability
floatable=BASS_StreamCreate(44100,BASS_SAMPLE_FLOAT,NULL,0);
if (floatable) BASS_StreamFree(floatable); // woohoo!
return 1;
}
return 0;
}
// get the bpm process detection in percents of a decoding channel
void CALLBACK GetBPM_Process(DWORD chan, float per)
{
// update the progress bar
MESS(IDC_PRGRSBPM,PBM_SETPOS,(int)per,0);
}
BOOL CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_TIMER:
{ // update the recording/playback counter
wchar_t text[30]=L"";
if (rchan) // recording
wsprintf(text,L"%I64d",BASS_ChannelGetPosition(rchan,BASS_POS_BYTE));
else if (chan) {
if (BASS_ChannelIsActive(chan)) // playing
wsprintf(text,L"%I64d / %I64d",BASS_ChannelGetPosition(chan,BASS_POS_BYTE),BASS_ChannelGetLength(chan,BASS_POS_BYTE));
else
wsprintf(text,L"%I64d",BASS_ChannelGetLength(chan,BASS_POS_BYTE));
}
MESS(20,WM_SETTEXT,0,text);
{ // display free disk space
ULARGE_INTEGER space;
if (GetDiskFreeSpaceEx(NULL,&space,NULL,NULL)) {
wsprintf(text,L"%I64d",space.QuadPart);
MESS(21,WM_SETTEXT,0,text);
}
}
}
break;
case WM_COMMAND:
switch (LOWORD(w)) {
case IDOK:
case IDCANCEL:
EndDialog(h,LOWORD(w));
break;
case 10:
if (!rchan)
StartRecording();
else
StopRecording();
break;
case 11:
BASS_ChannelPlay(chan,TRUE); // play the recorded data
break;
}
break;
case WM_INITDIALOG:
win=h;
// setup recording device (using default device)
if (!BASS_RecordInit(-1)) {
Error(L"Can't initialize recording device");
EndDialog(h,0);
return 0;
}
{ // go full screen
SHINITDLGINFO shidi;
shidi.dwMask = SHIDIM_FLAGS;
shidi.dwFlags = SHIDIF_DONEBUTTON|SHIDIF_SIZEDLGFULLSCREEN|SHIDIF_EMPTYMENU|SHIDIF_SIPDOWN;
shidi.hDlg = h;
SHInitDialog(&shidi);
}
SetTimer(h,1,200,0); // timer to update the position display
return 1;
case WM_DESTROY:
// release all BASS stuff
BASS_RecordFree();
BASS_Free();
break;
}
return 0;
}
INT_PTR CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_COMMAND:
switch (LOWORD(w)) {
case IDCANCEL:
DestroyWindow(h);
break;
case 10:
{
char file[MAX_PATH]="";
ofn.lpstrFilter="playable files\0*.mo3;*.xm;*.mod;*.s3m;*.it;*.mtm;*.umx;*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif\0All files\0*.*\0\0";
ofn.lpstrFile=file;
if (GetOpenFileName(&ofn)) {
// free both MOD and stream, it must be one of them! :)
BASS_MusicFree(chan);
BASS_StreamFree(chan);
#if 1 // with FX flag
if (!(chan=BASS_StreamCreateFile(FALSE,file,0,0,BASS_SAMPLE_LOOP|BASS_SAMPLE_FX))
&& !(chan=BASS_MusicLoad(FALSE,file,0,0,BASS_SAMPLE_LOOP|BASS_MUSIC_RAMP|BASS_SAMPLE_FX,1))) {
#else // without FX flag
if (!(chan=BASS_StreamCreateFile(FALSE,file,0,0,BASS_SAMPLE_LOOP))
&& !(chan=BASS_MusicLoad(FALSE,file,0,0,BASS_SAMPLE_LOOP|BASS_MUSIC_RAMP,1))) {
#endif
// whatever it is, it ain't playable
MESS(10,WM_SETTEXT,0,"click here to open a file...");
Error("Can't play the file");
break;
}
MESS(10,WM_SETTEXT,0,file);
{ // setup the effects
BASS_DX8_PARAMEQ p;
fx[0]=BASS_ChannelSetFX(chan,BASS_FX_DX8_PARAMEQ,0);
fx[1]=BASS_ChannelSetFX(chan,BASS_FX_DX8_PARAMEQ,0);
fx[2]=BASS_ChannelSetFX(chan,BASS_FX_DX8_PARAMEQ,0);
fx[3]=BASS_ChannelSetFX(chan,BASS_FX_DX8_REVERB,0);
p.fGain=0;
p.fBandwidth=18;
p.fCenter=125;
BASS_FXSetParameters(fx[0],&p);
p.fCenter=1000;
BASS_FXSetParameters(fx[1],&p);
p.fCenter=8000;
BASS_FXSetParameters(fx[2],&p);
UpdateFX(0);
UpdateFX(1);
UpdateFX(2);
UpdateFX(3);
}
BASS_ChannelPlay(chan,FALSE);
}
}
break;
}
break;
case WM_VSCROLL:
if (l) {
UpdateFX(GetDlgCtrlID((HWND)l)-20);
}
break;
case WM_INITDIALOG:
win=h;
memset(&ofn,0,sizeof(ofn));
ofn.lStructSize=sizeof(ofn);
ofn.hwndOwner=h;
ofn.nMaxFile=MAX_PATH;
ofn.Flags=OFN_HIDEREADONLY|OFN_EXPLORER;
// setup output - default device
if (!BASS_Init(-1,44100,0,win,NULL)) {
Error("Can't initialize device");
DestroyWindow(win);
break;
}
{
// check that DX8 features are available
BASS_INFO bi={sizeof(bi)};
BASS_GetInfo(&bi);
if (bi.dsver<8) {
BASS_Free();
Error("DirectX 8 is not installed");
DestroyWindow(win);
}
}
// initialize eq/reverb sliders
MESS(20,TBM_SETRANGE,FALSE,MAKELONG(0,20));
MESS(20,TBM_SETPOS,TRUE,10);
MESS(21,TBM_SETRANGE,FALSE,MAKELONG(0,20));
MESS(21,TBM_SETPOS,TRUE,10);
MESS(22,TBM_SETRANGE,FALSE,MAKELONG(0,20));
MESS(22,TBM_SETPOS,TRUE,10);
MESS(23,TBM_SETRANGE,FALSE,MAKELONG(0,20));
MESS(23,TBM_SETPOS,TRUE,20);
return 1;
case WM_DESTROY:
BASS_Free();
break;
}
return 0;
}
int PASCAL WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,LPSTR lpCmdLine, int nCmdShow)
{
// check the correct BASS was loaded
if (HIWORD(BASS_GetVersion())!=BASSVERSION) {
MessageBox(0,"An incorrect version of BASS.DLL was loaded",0,MB_ICONERROR);
return 0;
}
{ // enable trackbar support
INITCOMMONCONTROLSEX cc={sizeof(cc),ICC_BAR_CLASSES};
InitCommonControlsEx(&cc);
}
DialogBox(hInstance,(char*)1000,0,&dialogproc);
return 0;
}
BOOL CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_TIMER:
{ // display current latency (input+output buffer level)
char buf[20];
latency=(latency*3+BASS_ChannelGetData(chan,NULL,BASS_DATA_AVAILABLE)
+BASS_ChannelGetData(rchan,NULL,BASS_DATA_AVAILABLE))/4;
sprintf(buf,"%d",(int)(BASS_ChannelBytes2Seconds(chan,latency)*1000));
MESS(15,WM_SETTEXT,0,buf);
}
break;
case WM_COMMAND:
switch (LOWORD(w)) {
case IDCANCEL:
DestroyWindow(h);
break;
case 10:
if (HIWORD(w)==CBN_SELCHANGE) { // input selection changed
int i;
float level;
input=MESS(10,CB_GETCURSEL,0,0); // get the selection
for (i=0;BASS_RecordSetInput(i,BASS_INPUT_OFF,-1);i++) ; // 1st disable all inputs, then...
BASS_RecordSetInput(input,BASS_INPUT_ON,-1); // enable the selected input
BASS_RecordGetInput(input,&level); // get the level
MESS(11,TBM_SETPOS,TRUE,level*100);
}
break;
case 20: // toggle chorus
if (fx[0]) {
BASS_ChannelRemoveFX(chan,fx[0]);
fx[0]=0;
} else
fx[0]=BASS_ChannelSetFX(chan,BASS_FX_DX8_CHORUS,0);
break;
case 21: // toggle gargle
if (fx[1]) {
BASS_ChannelRemoveFX(chan,fx[1]);
fx[1]=0;
} else
fx[1]=BASS_ChannelSetFX(chan,BASS_FX_DX8_GARGLE,0);
break;
case 22: // toggle reverb
if (fx[2]) {
BASS_ChannelRemoveFX(chan,fx[2]);
fx[2]=0;
} else
fx[2]=BASS_ChannelSetFX(chan,BASS_FX_DX8_REVERB,0);
break;
case 23: // toggle flanger
if (fx[3]) {
BASS_ChannelRemoveFX(chan,fx[3]);
fx[3]=0;
} else
fx[3]=BASS_ChannelSetFX(chan,BASS_FX_DX8_FLANGER,0);
break;
}
break;
case WM_HSCROLL:
if (l) { // set input source level
float level=SendMessage((HWND)l,TBM_GETPOS,0,0)/100.f;
if (!BASS_RecordSetInput(input,0,level)) // failed to set input level
BASS_RecordSetInput(-1,0,level); // try master level instead
}
break;
case WM_INITDIALOG:
win=h;
MESS(11,TBM_SETRANGE,FALSE,MAKELONG(0,100)); // initialize input level slider
MessageBox(win,
"Do not set the input to 'WAVE' / 'What you hear' (etc...) with\n"
"the level set high, as that is likely to result in nasty feedback.\n",
"Feedback warning",MB_ICONWARNING);
if (!Initialize()) {
DestroyWindow(win);
break;
}
SetTimer(h,1,250,NULL);
return 1;
case WM_DESTROY:
KillTimer(h,1);
// release it all
BASS_RecordFree();
BASS_Free();
break;
}
return 0;
}
BOOL CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
DWORD p;
float freq;
char c[30];
switch (m) {
case WM_COMMAND:
switch (LOWORD(w)) {
case ID_OPEN:
{
char file[MAX_PATH]="";
ofn.lpstrFilter="playable files\0*.mo3;*.xm;*.mod;*.s3m;*.it;*.mtm;*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif\0All files\0*.*\0\0";
ofn.lpstrFile=file;
if (GetOpenFileName(&ofn)) {
memcpy(path,file,ofn.nFileOffset);
path[ofn.nFileOffset-1]=0;
// free decode bpm & stream
BASS_FX_BPM_Free(hBPM);
// free tempo, stream, music & bpm/beat callbacks
BASS_StreamFree(chan);
// create decode stream channel
chan=BASS_StreamCreateFile(FALSE, file, 0, 0, BASS_STREAM_DECODE);
// create decode music channel
if (!chan) chan = BASS_MusicLoad(FALSE, file, 0, 0, BASS_MUSIC_RAMP|BASS_MUSIC_PRESCAN|BASS_MUSIC_DECODE, 0);
if (!chan){
// not a WAV/MP3 or MOD
MESS(ID_OPEN,WM_SETTEXT,0,"click here to open a file && play it...");
Error("Selected file couldn't be loaded!");
break;
}
// get current samplerate
BASS_ChannelGetAttribute(chan, BASS_ATTRIB_FREQ, &freq);
// update the position slider
p = (DWORD)BASS_ChannelBytes2Seconds(chan, BASS_ChannelGetLength(chan, BASS_POS_BYTE));
MESS(IDC_POS,TBM_SETRANGEMAX,0,p);
MESS(IDC_POS,TBM_SETPOS,TRUE,0);
// create a new stream - decoded & resampled :)
if (!(chan=BASS_FX_TempoCreate(chan, BASS_SAMPLE_LOOP|BASS_FX_FREESOURCE))){
MESS(ID_OPEN,WM_SETTEXT,0,"click here to open a file && play it...");
Error("Couldn't create a resampled stream!");
BASS_StreamFree(chan);
BASS_MusicFree(chan);
break;
}
// update the button to show the loaded file name
MESS(ID_OPEN,WM_SETTEXT,0,GetFileName(file));
// set Volume
p = MESS(IDC_VOL,TBM_GETPOS,0,0);
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_VOL, (float)(100 - p)/100.0f);
// update tempo slider & view
MESS(IDC_TEMPO,TBM_SETPOS,TRUE,0);
MESS(IDC_STEMPO,WM_SETTEXT,0,"Tempo = 0%");
// set rate min/max values according to current frequency
MESS(IDC_RATE,TBM_SETRANGEMAX,0,(long)(freq * 1.3f));
MESS(IDC_RATE,TBM_SETRANGEMIN,0,(long)(freq * 0.7f));
MESS(IDC_RATE,TBM_SETPOS,TRUE,(long)freq);
MESS(IDC_RATE,TBM_SETPAGESIZE,0,(long)(freq * 0.01f)); // by 1%
sprintf(c,"Samplerate = %dHz", (long)freq);
MESS(IDC_SRATE,WM_SETTEXT,0,c);
// update the approximate time in seconds view
UpdatePositionLabel();
// play new created stream
BASS_ChannelPlay(chan,FALSE);
// set the callback bpm and beat
SendMessage(win,WM_COMMAND,IDC_CHKPERIOD,l);
SendMessage(win,WM_COMMAND,IDC_CHKBEAT,l);
// get the bpm of 30 seconds from the start
DecodingBPM(TRUE, 0.0f, 30.0f, file);
}
}
return 1;
case IDC_CHKPERIOD:
if(MESS(IDC_CHKPERIOD,BM_GETCHECK,0,0)){
GetDlgItemText(win, IDC_EPBPM, c, 5);
BASS_FX_BPM_CallbackSet(chan, (BPMPROC*)GetBPM_Callback, (double)atof(c), 0, BASS_FX_BPM_MULT2, 0);
}else
BASS_FX_BPM_Free(chan);
return 1;
case IDC_CHKBEAT:
if(MESS(IDC_CHKBEAT,BM_GETCHECK,0,0)){
BASS_FX_BPM_BeatCallbackSet(chan, (BPMBEATPROC*)GetBeatPos_Callback, 0);
}else
BASS_FX_BPM_BeatFree(chan);
return 1;
}
break;
case WM_VSCROLL:
if(GetDlgCtrlID((HWND)l) == IDC_VOL)
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_VOL, (float)(100 - MESS(IDC_VOL,TBM_GETPOS,0,0))/100.0f);
break;
case WM_HSCROLL:
{
if(!BASS_ChannelIsActive(chan)) break;
switch (GetDlgCtrlID((HWND)l)) {
case IDC_TEMPO:
// set new tempo
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_TEMPO, (float)MESS(IDC_TEMPO, TBM_GETPOS, 0, 0));
// update tempo static text
sprintf(c,"Tempo = %d%%", MESS(IDC_TEMPO, TBM_GETPOS, 0, 0));
MESS(IDC_STEMPO,WM_SETTEXT,0,c);
case IDC_RATE:
{
// set new samplerate
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_TEMPO_FREQ, (float)MESS(IDC_RATE, TBM_GETPOS, 0, 0));
sprintf(c,"Samplerate = %dHz", MESS(IDC_RATE, TBM_GETPOS, 0, 0));
MESS(IDC_SRATE,WM_SETTEXT,0,c);
// update the bpm view
if (MESS(IDC_CHKPERIOD,BM_GETCHECK,0,0))
sprintf(c,"BPM: %0.2f", GetNewBPM(chan));
else
sprintf(c,"BPM: %0.2f", GetNewBPM(hBPM));
MESS(IDC_SBPM,WM_SETTEXT,0,c);
// update the approximate time in seconds view
UpdatePositionLabel();
}
break;
case IDC_POS:
// change the position
if (LOWORD(w) == SB_ENDSCROLL) { // seek to new pos
BASS_ChannelSetPosition(chan, (QWORD)BASS_ChannelSeconds2Bytes(chan, (double)MESS(IDC_POS,TBM_GETPOS,0,0)), BASS_POS_BYTE);
// get the bpm of last IDC_EPBPM seconds
GetDlgItemText(win, IDC_EPBPM, c, 5);
DecodingBPM(FALSE, (double)MESS(IDC_POS,TBM_GETPOS,0,0) - (double)atof(c), (double)MESS(IDC_POS,TBM_GETPOS,0,0),"");
}
// update the approximate time in seconds view
UpdatePositionLabel();
break;
}
}
return 1;
break;
case WM_CLOSE:
EndDialog(h, 0);
return 1;
break;
case WM_INITDIALOG:
win=h;
GetCurrentDirectory(MAX_PATH,path);
memset(&ofn,0,sizeof(ofn));
ofn.lStructSize=sizeof(ofn);
ofn.hwndOwner=h;
ofn.hInstance=inst;
ofn.nMaxFile=MAX_PATH;
ofn.Flags=OFN_HIDEREADONLY|OFN_EXPLORER;
// setup output - default device, 44100hz, stereo, 16 bits
if (!BASS_Init(-1,44100,0,win,NULL)) {
Error("Can't initialize device");
DestroyWindow(win);
return 1;
}
// volume
MESS(IDC_VOL,TBM_SETRANGEMAX,0,100);
MESS(IDC_VOL,TBM_SETPOS,TRUE,50);
MESS(IDC_VOL,TBM_SETPAGESIZE,0,5);
// tempo
MESS(IDC_TEMPO,TBM_SETRANGEMAX,TRUE,30);
MESS(IDC_TEMPO,TBM_SETRANGEMIN,TRUE,-30);
MESS(IDC_TEMPO,TBM_SETPOS,TRUE,0);
MESS(IDC_TEMPO,TBM_SETPAGESIZE,0,1);
// rate
MESS(IDC_RATE,TBM_SETRANGEMAX,0,(long)(44100.0f * 1.3f));
MESS(IDC_RATE,TBM_SETRANGEMIN,0,(long)(44100.0f * 0.7f));
MESS(IDC_RATE,TBM_SETPOS,TRUE,44100);
MESS(IDC_RATE,TBM_SETPAGESIZE,0,(long)(44100.0f * 0.01f)); // by 1%
// bpm detection process
MESS(IDC_PRGRSBPM,PBM_SETRANGE32,0,100);
// set the bpm period edit box, as a default of 10 seconds :)
MESS(IDC_EPBPM,WM_SETTEXT,0,"10");
// set the bpm static text font
Font = CreateFont(-12,0,0,0,FW_BOLD,FALSE,FALSE,FALSE,ANSI_CHARSET,
OUT_STROKE_PRECIS,CLIP_STROKE_PRECIS,DRAFT_QUALITY,
DEFAULT_PITCH | FF_DONTCARE,"Tahoma");
MESS(IDC_SBPM, WM_SETFONT, Font, TRUE);
MESS(IDC_SBEAT, WM_SETFONT, Font, TRUE);
return 1;
}
return 0;
}
BOOL CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
DWORD a=0;
float freq;
char c[30];
BASS_BFX_PEAKEQ eq; // dsp peaking equalizer
BASS_BFX_PHASER phs; // dsp phaser
switch (m) {
case WM_COMMAND:
switch (LOWORD(w)) {
case ID_OPEN:
{
char file[MAX_PATH]="";
ofn.lpstrFilter="playable files\0*.mo3;*.xm;*.mod;*.s3m;*.it;*.mtm;*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif\0All files\0*.*\0\0";
ofn.lpstrFile=file;
if (GetOpenFileName(&ofn)) {
memcpy(path,file,ofn.nFileOffset);
path[ofn.nFileOffset-1]=0;
// free previous dsp effects & handles
BASS_StreamFree(chan); // free stream
BASS_MusicFree(chan); // free music
if(!(chan=BASS_StreamCreateFile(FALSE, file, 0, 0, BASS_SAMPLE_LOOP|floatable))&&
!(chan=BASS_MusicLoad(FALSE, file, 0, 0, BASS_MUSIC_LOOP|BASS_MUSIC_RAMP|floatable,0))){
// not a WAV/MP3 or MOD
MESS(ID_OPEN,WM_SETTEXT,0,"click here to open a file && play it...");
Error("Selected file couldnt be loaded!");
break;
}
// update the Button to show the loaded file name
MESS(ID_OPEN,WM_SETTEXT,0,GetFileName(file));
// set dsp effects
SendMessage(win,WM_COMMAND,IDC_CHKEQ,l);
SendMessage(win,WM_COMMAND,IDC_CHKPHS,l);
// get current sample rate
BASS_ChannelGetAttribute(chan, BASS_ATTRIB_FREQ, &freq);
oldfreq = freq;
// set the dx sample rate & view
MESS(IDC_DXRATE,TBM_SETRANGEMAX,0,(long)(freq * 1.3f));
MESS(IDC_DXRATE,TBM_SETRANGEMIN,0,(long)(freq * 0.7f));
MESS(IDC_DXRATE,TBM_SETPOS,TRUE,(long)freq);
MESS(IDC_DXRATE,TBM_SETPAGESIZE,0,(long)(freq * 0.01f)); // by 1%
sprintf(c,"DirectX Samplerate = %dHz", (long)freq);
MESS(IDC_SDXRATE,WM_SETTEXT,0,c);
// play it!
BASS_ChannelPlay(chan, FALSE);
}
}
return 1;
case IDC_CHKEQ:
if (MESS(IDC_CHKEQ,BM_GETCHECK,0,0))
SetDSP_EQ(0.0f, 2.5f, 0.0f, 125.0f, 1000.0f, 8000.0f);
else
BASS_ChannelRemoveFX(chan, fxEQ);
return 1;
case IDC_CHKPHS:
if(MESS(IDC_CHKPHS,BM_GETCHECK,0,0)){
fxPhaser=BASS_ChannelSetFX(chan, BASS_FX_BFX_PHASER,0);
BASS_FXGetParameters(fxPhaser, &phs);
phs.fWetMix = (float)MESS(IDC_WETMIX,TBM_GETPOS,0,0) / 1000.0f;
phs.fDryMix = (float)MESS(IDC_DRYMIX,TBM_GETPOS,0,0) / 1000.0f;
phs.fFeedback = (float)MESS(IDC_FEEDBACK,TBM_GETPOS,0,0) / 1000.0f;
phs.fRate = (float)MESS(IDC_RATE,TBM_GETPOS,0,0) / 10.0f;
phs.fRange = (float)MESS(IDC_RANGE,TBM_GETPOS,0,0) / 10.0f;
phs.fFreq = (float)MESS(IDC_FREQ,TBM_GETPOS,0,0) / 10.0f;
BASS_FXSetParameters(fxPhaser, &phs);
}else
BASS_ChannelRemoveFX(chan, fxPhaser);
return 1;
}
return 1;
case WM_VSCROLL:
if(l){
UpdateFX(GetDlgCtrlID((HWND)l)-IDC_SLDEQ1);
}
return 1;
case WM_HSCROLL:
if(!BASS_ChannelIsActive(chan)) break;
switch (GetDlgCtrlID((HWND)l)) {
case IDC_DXRATE:
BASS_ChannelSetAttribute(chan, BASS_ATTRIB_FREQ, (float)MESS(IDC_DXRATE, TBM_GETPOS, 0, 0));
sprintf(c,"DirectX Samplerate = %dHz", MESS(IDC_DXRATE, TBM_GETPOS, 0, 0));
MESS(IDC_SDXRATE,WM_SETTEXT,0,c);
// update all bands fCenters after changing samplerate
{
int i;
for(i=0;i<3;i++){
eq.lBand = i;
BASS_FXGetParameters(fxEQ, &eq);
eq.fCenter = eq.fCenter * (float)MESS(IDC_DXRATE, TBM_GETPOS, 0, 0) / oldfreq;
BASS_FXSetParameters(fxEQ, &eq);
}
oldfreq = (float)MESS(IDC_DXRATE, TBM_GETPOS, 0, 0);
}
break;
case IDC_DRYMIX:
case IDC_WETMIX:
case IDC_FEEDBACK:
case IDC_RATE:
case IDC_RANGE:
case IDC_FREQ:
BASS_FXGetParameters(fxPhaser, &phs);
phs.fWetMix = (float)MESS(IDC_WETMIX,TBM_GETPOS,0,0) / 1000.0f;
phs.fDryMix = (float)MESS(IDC_DRYMIX,TBM_GETPOS,0,0) / 1000.0f;
phs.fFeedback = (float)MESS(IDC_FEEDBACK,TBM_GETPOS,0,0) / 1000.0f;
phs.fRate = (float)MESS(IDC_RATE,TBM_GETPOS,0,0) / 10.0f;
phs.fRange = (float)MESS(IDC_RANGE,TBM_GETPOS,0,0) / 10.0f;
phs.fFreq = (float)MESS(IDC_FREQ,TBM_GETPOS,0,0) / 10.0f;
BASS_FXSetParameters(fxPhaser, &phs);
}
return 1;
case WM_INITDIALOG:
win=h;
GetCurrentDirectory(MAX_PATH,path);
memset(&ofn,0,sizeof(ofn));
ofn.lStructSize=sizeof(ofn);
ofn.hwndOwner=h;
ofn.hInstance=inst;
ofn.nMaxFile=MAX_PATH;
ofn.Flags=OFN_HIDEREADONLY|OFN_EXPLORER;
// enable floating-point DSP
BASS_SetConfig(BASS_CONFIG_FLOATDSP, TRUE);
// setup output - default device, 44100hz, stereo, 16 bits
if (!BASS_Init(-1,44100,0,win,NULL)) {
Error("Can't initialize device");
DestroyWindow(win);
return 1;
}
// check for floating-point capability
floatable = BASS_StreamCreate(44100, 2, BASS_SAMPLE_FLOAT, 0, 0);
if (floatable) {
BASS_StreamFree(floatable); //woohoo!
floatable = BASS_SAMPLE_FLOAT;
}
// initialize dsp eq sliders
MESS(IDC_SLDEQ1,TBM_SETRANGE,FALSE,MAKELONG(0,20));
MESS(IDC_SLDEQ1,TBM_SETPOS,TRUE,10);
MESS(IDC_SLDEQ2,TBM_SETRANGE,FALSE,MAKELONG(0,20));
MESS(IDC_SLDEQ2,TBM_SETPOS,TRUE,10);
MESS(IDC_SLDEQ3,TBM_SETRANGE,FALSE,MAKELONG(0,20));
MESS(IDC_SLDEQ3,TBM_SETPOS,TRUE,10);
// dx rate
MESS(IDC_DXRATE,TBM_SETRANGEMAX,0,(long)(44100.0f*1.3f));
MESS(IDC_DXRATE,TBM_SETRANGEMIN,0,(long)(44100.0f*0.7f));
MESS(IDC_DXRATE,TBM_SETPOS,TRUE,44100);
MESS(IDC_DXRATE,TBM_SETPAGESIZE,0,(long)(44100.0f*0.01f)); // by 1%
// DryMix
MESS(IDC_DRYMIX,TBM_SETRANGE,0,MAKELONG(-2000,2000));
MESS(IDC_DRYMIX,TBM_SETPOS,TRUE,-999);
// WetMix
MESS(IDC_WETMIX,TBM_SETRANGE,0,MAKELONG(-2000,2000));
MESS(IDC_WETMIX,TBM_SETPOS,TRUE,999);
// Feedback
MESS(IDC_FEEDBACK,TBM_SETRANGE,0,MAKELONG(-1000,1000));
MESS(IDC_FEEDBACK,TBM_SETPOS,TRUE,-60);
// Rate
MESS(IDC_RATE,TBM_SETRANGE,0,MAKELONG(0,100));
MESS(IDC_RATE,TBM_SETPOS,TRUE,2);
// Range
MESS(IDC_RANGE,TBM_SETRANGE,0,MAKELONG(0,100));
MESS(IDC_RANGE,TBM_SETPOS,TRUE,60);
// Freq
MESS(IDC_FREQ,TBM_SETRANGE,0,MAKELONG(0,10000));
MESS(IDC_FREQ,TBM_SETPOS,TRUE,1000);
Font=CreateFont(-12,0,0,0,FW_BOLD,FALSE,FALSE,FALSE,ANSI_CHARSET,OUT_STRING_PRECIS,
CLIP_STROKE_PRECIS,DRAFT_QUALITY,DEFAULT_PITCH | FF_DONTCARE,
"MS Sans Serif");
// set the font for check boxes
MESS(IDC_CHKEQ, WM_SETFONT, Font, TRUE);
MESS(IDC_CHKPHS,WM_SETFONT, Font, TRUE);
return 1;
case WM_CLOSE:
EndDialog(h,0);
return 0;
break;
}
return 0;
}
INT_PTR CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_TIMER:
{ // update the recording/playback counter
char text[30]="";
if (rchan) // recording
sprintf(text,"%d",reclen-44);
else if (chan) {
if (BASS_ChannelIsActive(chan)) // playing
sprintf(text,"%I64d / %I64d",BASS_ChannelGetPosition(chan,BASS_POS_BYTE),BASS_ChannelGetLength(chan,BASS_POS_BYTE));
else
sprintf(text,"%I64d",BASS_ChannelGetLength(chan,BASS_POS_BYTE));
}
MESS(20,WM_SETTEXT,0,text);
}
break;
case WM_COMMAND:
switch (LOWORD(w)) {
case IDCANCEL:
DestroyWindow(h);
break;
case 10:
if (!rchan)
StartRecording();
else
StopRecording();
break;
case 11:
BASS_ChannelPlay(chan,TRUE); // play the recorded data
break;
case 12:
WriteToDisk();
break;
case 13:
if (HIWORD(w)==CBN_SELCHANGE) { // input selection changed
int i;
input=MESS(13,CB_GETCURSEL,0,0); // get the selection
// enable the selected input
for (i=0;BASS_RecordSetInput(i,BASS_INPUT_OFF,-1);i++) ; // 1st disable all inputs, then...
BASS_RecordSetInput(input,BASS_INPUT_ON,-1); // enable the selected
UpdateInputInfo();
}
break;
case 16:
if (HIWORD(w)==CBN_SELCHANGE) { // device selection changed
int i=MESS(16,CB_GETCURSEL,0,0); // get the selection
// initialize the selected device
if (InitDevice(i)) {
if (rchan) { // continue recording on the new device...
HRECORD newrchan=BASS_RecordStart(FREQ,CHANS,0,RecordingCallback,0);
if (!newrchan)
Error("Couldn't start recording");
else
rchan=newrchan;
}
}
}
break;
}
break;
case WM_HSCROLL:
if (l) { // set input source level
float level=SendMessage((HWND)l,TBM_GETPOS,0,0)/100.f;
if (!BASS_RecordSetInput(input,0,level)) // failed to set input level
BASS_RecordSetInput(-1,0,level); // try master level instead
}
break;
case WM_INITDIALOG:
win=h;
MESS(14,TBM_SETRANGE,FALSE,MAKELONG(0,100));
{ // get list of recording devices
int c,def;
BASS_DEVICEINFO di;
for (c=0;BASS_RecordGetDeviceInfo(c,&di);c++) {
MESS(16,CB_ADDSTRING,0,di.name);
if (di.flags&BASS_DEVICE_DEFAULT) { // got the default device
MESS(16,CB_SETCURSEL,c,0);
def=c;
}
}
InitDevice(def); // initialize default recording device
}
SetTimer(h,0,200,0); // timer to update the position display
return 1;
case WM_DESTROY:
// release all BASS stuff
BASS_RecordFree();
BASS_Free();
break;
}
return 0;
}
BOOL CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_COMMAND:
switch (LOWORD(w)) {
case IDCANCEL:
DestroyWindow(h);
break;
case 10:
{
BASS_CHANNELINFO info;
char file[MAX_PATH]="";
ofn.lpstrFilter="playable files\0*.mo3;*.xm;*.mod;*.s3m;*.it;*.mtm;*.umx;*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif\0All files\0*.*\0\0";
ofn.lpstrFile=file;
if (GetOpenFileName(&ofn)) {
// free both MOD and stream, it must be one of them! :)
BASS_MusicFree(chan);
BASS_StreamFree(chan);
if (!(chan=BASS_StreamCreateFile(FALSE,file,0,0,BASS_SAMPLE_LOOP|floatable))
&& !(chan=BASS_MusicLoad(FALSE,file,0,0,BASS_SAMPLE_LOOP|BASS_MUSIC_RAMPS|floatable,1))) {
// whatever it is, it ain't playable
MESS(10,WM_SETTEXT,0,"click here to open a file...");
Error("Can't play the file");
break;
}
BASS_ChannelGetInfo(chan,&info);
if (info.chans!=2) { // only stereo is allowed
MESS(10,WM_SETTEXT,0,"click here to open a file...");
BASS_MusicFree(chan);
BASS_StreamFree(chan);
Error("only stereo sources are supported");
break;
}
MESS(10,WM_SETTEXT,0,file);
// setup DSPs on new channel and play it
SendMessage(win,WM_COMMAND,11,0);
SendMessage(win,WM_COMMAND,12,0);
SendMessage(win,WM_COMMAND,13,0);
BASS_ChannelPlay(chan,FALSE);
}
}
break;
case 11: // toggle "rotate"
if (MESS(11,BM_GETCHECK,0,0)) {
rotpos=0.7853981f;
rotdsp=BASS_ChannelSetDSP(chan,&Rotate,0,2);
} else
BASS_ChannelRemoveDSP(chan,rotdsp);
break;
case 12: // toggle "echo"
if (MESS(12,BM_GETCHECK,0,0)) {
memset(echbuf,0,sizeof(echbuf));
echpos=0;
echdsp=BASS_ChannelSetDSP(chan,&Echo,0,1);
} else
BASS_ChannelRemoveDSP(chan,echdsp);
break;
case 13: // toggle "flanger"
if (MESS(13,BM_GETCHECK,0,0)) {
memset(flabuf,0,sizeof(flabuf));
flapos=0;
flas=FLABUFLEN/2;
flasinc=0.002f;
fladsp=BASS_ChannelSetDSP(chan,&Flange,0,0);
} else
BASS_ChannelRemoveDSP(chan,fladsp);
break;
}
break;
case WM_INITDIALOG:
win=h;
memset(&ofn,0,sizeof(ofn));
ofn.lStructSize=sizeof(ofn);
ofn.hwndOwner=h;
ofn.nMaxFile=MAX_PATH;
ofn.Flags=OFN_HIDEREADONLY|OFN_EXPLORER;
// enable floating-point DSP
BASS_SetConfig(BASS_CONFIG_FLOATDSP,TRUE);
// initialize - default device
if (!BASS_Init(-1,44100,0,win,NULL)) {
Error("Can't initialize device");
DestroyWindow(win);
break;
}
// check for floating-point capability
floatable=BASS_StreamCreate(44100,2,BASS_SAMPLE_FLOAT,NULL,0);
if (floatable) { // woohoo!
BASS_StreamFree(floatable);
floatable=BASS_SAMPLE_FLOAT;
}
return 1;
case WM_DESTROY:
BASS_Free();
break;
}
return 0;
}
INT_PTR CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_COMMAND:
switch (LOWORD(w)) {
case IDCANCEL:
DestroyWindow(h);
break;
case 10:
{
char file[MAX_PATH]="";
ofn.lpstrFile=file;
ofn.nMaxFile=MAX_PATH;
if (GetOpenFileName(&ofn)) {
BASS_StreamFree(chan); // free the old stream
if (!(chan=BASS_StreamCreateFile(FALSE,file,0,0,BASS_SAMPLE_LOOP))) {
// it ain't playable
MESS(10,WM_SETTEXT,0,"click here to open a file...");
MESS(11,WM_SETTEXT,0,"");
Error("Can't play the file");
break;
}
MESS(10,WM_SETTEXT,0,file);
{ // display the file type and length
QWORD bytes=BASS_ChannelGetLength(chan,BASS_POS_BYTE);
DWORD time=BASS_ChannelBytes2Seconds(chan,bytes);
BASS_CHANNELINFO info;
BASS_ChannelGetInfo(chan,&info);
sprintf(file,"channel type = %x (%s)\nlength = %I64u (%u:%02u)",
info.ctype,GetCTypeString(info.ctype,info.plugin),bytes,time/60,time%60);
MESS(11,WM_SETTEXT,0,file);
MESS(12,TBM_SETRANGE,1,MAKELONG(0,time)); // update scroller range
}
BASS_ChannelPlay(chan,FALSE);
}
}
break;
}
break;
case WM_HSCROLL:
if (l && LOWORD(w)!=SB_THUMBPOSITION && LOWORD(w)!=SB_ENDSCROLL) { // set the position
int pos=SendMessage((HWND)l,TBM_GETPOS,0,0);
BASS_ChannelSetPosition(chan,BASS_ChannelSeconds2Bytes(chan,pos),BASS_POS_BYTE);
}
break;
case WM_TIMER:
MESS(12,TBM_SETPOS,1,(DWORD)BASS_ChannelBytes2Seconds(chan,BASS_ChannelGetPosition(chan,BASS_POS_BYTE))); // update position
break;
case WM_INITDIALOG:
win=h;
// initialize default output device
if (!BASS_Init(-1,44100,0,win,NULL)) {
Error("Can't initialize device");
DestroyWindow(win);
break;
}
// initialize file selector
memset(&ofn,0,sizeof(ofn));
ofn.lStructSize=sizeof(ofn);
ofn.hwndOwner=h;
ofn.Flags=OFN_HIDEREADONLY|OFN_EXPLORER;
ofn.lpstrFilter=filter;
memcpy(filter,"BASS built-in (*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif)\0*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif\0",88);
{ // look for plugins (in the executable's directory)
WIN32_FIND_DATA fd;
HANDLE fh;
char path[MAX_PATH],*fp=filter+88;
GetModuleFileName(0,path,sizeof(path));
strcpy(strrchr(path,'\\')+1,"bass*.dll");
fh=FindFirstFile(path,&fd);
if (fh!=INVALID_HANDLE_VALUE) {
do {
HPLUGIN plug;
if (plug=BASS_PluginLoad(fd.cFileName,0)) { // plugin loaded...
const BASS_PLUGININFO *pinfo=BASS_PluginGetInfo(plug); // get plugin info to add to the file selector filter...
int a;
for (a=0;a<pinfo->formatc;a++) {
fp+=sprintf(fp,"%s (%s) - %s",pinfo->formats[a].name,pinfo->formats[a].exts,fd.cFileName)+1; // format description
fp+=sprintf(fp,"%s",pinfo->formats[a].exts)+1; // extension filter
}
// add plugin to the list
MESS(20,LB_ADDSTRING,0,fd.cFileName);
}
} while (FindNextFile(fh,&fd));
FindClose(fh);
}
if (!MESS(20,LB_GETCOUNT,0,0)) // no plugins...
MESS(20,LB_ADDSTRING,0,"no plugins - visit the BASS webpage to get some");
memcpy(fp,"All files\0*.*\0\0",15);
}
SetTimer(h,0,500,0); // timer to update the position
return 1;
case WM_DESTROY:
// "free" the output device and all plugins
BASS_Free();
BASS_PluginFree(0);
break;
}
return 0;
}
extern "C" LRESULT CALLBACK __export WLLWndProc(HWND hWnd,UINT message,WPARAM wParam,LPARAM lParam)
{
switch (message)
{
case WM_ERASEBKGND:
return(TRUE);
break;
case WM_CREATE:
{
LinkedListWindow * ll =new LinkedListWindow(hWnd);
if (ll)
{
SetWindowLong(hWnd,0,(LPARAM) (LinkedListWindow FAR *) ll);
return (ll->ON_CREATE (wParam,lParam));
}
return -1;
}
break;
case WM_PAINT:
MESS(PAINT);
break;
case WM_KEYDOWN:
MESS(KEYDOWN);
break;
case WM_USER:
MESS(USER);
break;
case LM_GETSTRING:
MESS(GETSTRING);
break;
case LM_SETSTRING:
MESS(SETSTRING);
break;
case WM_GETMINMAXINFO:
MESS(GETMINMAXINFOS);
break;
case WM_CHAR:
MESS(CHAR);
break;
case LM_SETFONT:
MESS(SETFONT);
break;
case WM_COMMAND:
MESS(COMMAND);
break;
case LM_GETFONT:
MESS(GETFONT);
break;
case WM_MOUSEMOVE:
MESS(MOUSEMOVE);
break;
case WM_TIMER:
MESS(TIMER);
break;
case WM_RBUTTONDOWN:
if (GetCapture()!=hWnd)
MESS(RBUTTONDOWN);
break;
case WM_RBUTTONDBLCLK:
if (GetCapture()!=hWnd)
MESS(RBUTTONDBLCLK);
break;
case WM_LBUTTONDOWN:
if (GetCapture()!=hWnd)
{
SetCapture(hWnd);
SetFocus(hWnd); // Added Emb 3/2/95 because of controls in nanbar
MESS(LBUTTONDOWN);
}
break;
case WM_LBUTTONDBLCLK:
if (GetCapture()!=hWnd)
MESS(LBUTTONDBLCLK);
break;
case WM_LBUTTONUP:
ReleaseCapture();
MESS(LBUTTONUP);
break;
case WM_SETFOCUS:
MESS(SETFOCUS);
break;
case WM_KILLFOCUS:
MESS(KILLFOCUS);
break;
case WM_HSCROLL:
MESS(HSCROLL);
break;
case WM_VSCROLL:
MESS(VSCROLL);
break;
case WM_DESTROY:
{
// UKS adds this line
LinkedListWindow * ll=(LinkedListWindow *)GetWindowLong(hWnd,0);
MESS(DESTROY);
// UKS adds this line, and use delete operator
// Do not use <delete this> in the destructor !!!
if (ll)
delete ll;
}
break;
case WM_SIZE:
MESS(SIZE);
break;
case LM_ADDRECORD:
MESS(ADDRECORD);
break;
case LM_GETFIRSTCHILD:
MESS(GETFIRSTCHILD);
break;
case LM_DELETEALL:
MESS(DELETEALL);
break;
case LM_DELETERECORD:
MESS(DELETERECORD);
break;
case LM_SETSEL:
MESS(SETSEL);
break;
case LM_GETSEL:
MESS(GETSEL);
break;
case LM_EXPAND:
MESS(EXPAND);
break;
case LM_GETITEMDATA:
MESS(GETITEMDATA);
break;
case LM_SETITEMDATA:
MESS(SETITEMDATA);
break;
case LM_GETEDITHANDLE:
MESS(GETEDITHANDLE);
break;
case LM_ITEMFROMPOINT:
MESS(ITEMFROMPOINT);
break;
case LM_COLLAPSE:
MESS(COLLAPSE);
break;
case LM_EXPANDBRANCH:
MESS(EXPANDBRANCH);
break;
case LM_COLLAPSEBRANCH:
MESS(COLLAPSEBRANCH);
break;
case LM_GETFIRST:
MESS(GETFIRST);
break;
case LM_GETNEXT:
MESS(GETNEXT);
break;
case LM_GETFIRSTPRESENT:
MESS(GETFIRSTPRESENT);
break;
case LM_GETNEXTPRESENT:
MESS(GETNEXTPRESENT);
break;
case LM_GETPARENT:
MESS(GETPARENT);
break;
case LM_GETLEVEL:
MESS(GETLEVEL);
break;
case LM_EXPANDALL:
MESS(EXPANDALL);
break;
case LM_COLLAPSEALL:
MESS(COLLAPSEALL);
break;
case LM_EXISTSTRING:
MESS(EXISTSTRING);
break;
case LM_GETMAXEXTENT:
MESS(GETMAXEXTENT);
break;
case LM_FINDFROMITEMDATA :
MESS(FINDFROMITEMDATA);
break;
case LM_GETSTATE:
MESS(GETSTATE);
break;
// Emb 13/2/95
case LM_GETVISSTATE:
MESS(GETVISSTATE);
break;
case LM_GETTOPITEM:
MESS(GETTOPITEM);
break;
case LM_SETTOPITEM:
MESS(SETTOPITEM);
break;
case LM_FINDFIRST:
MESS(FINDFIRST);
break;
case LM_FINDNEXT:
MESS(FINDNEXT);
break;
case LM_SETBKCOLOR:
MESS(SETBKCOLOR);
break;
case LM_GETSEARCHSTRING:
MESS(GETSEARCHSTRING);
break;
case LM_GETITEMRECT:
MESS(GETITEMRECT);
break;
case LM_SETTABSTOP:
MESS(SETTABSTOP);
break;
case LM_GETSTYLE:
MESS(GETSTYLE);
break;
case LM_SETSTYLE:
MESS(SETSTYLE);
break;
case LM_GETPREV:
MESS(GETPREV);
break;
case LM_SETPRINTFLAGS:
MESS(SETPRINTFLAGS);
break;
case LM_GETCOUNT:
MESS(GETCOUNT);
break;
case LM_SETICONSPACING:
MESS(SETICONSPACING);
break;
case LM_ADDRECORDBEFORE:
MESS(ADDRECORDBEFORE);
break;
case LM_DISABLEEXPANDALL:
MESS(DISABLEEXPANDALL);
break;
case LM_GETEDITCHANGES:
MESS(GETEDITCHANGES);
break;
// Emb 18/4/95 for Drag/Drop :
// returns the item behind the mouse, or 0L if none
case LM_GETMOUSEITEM:
MESS(GETMOUSEITEM);
break;
// Emb 19/4/95 for Drag/Drop :
// cancels the dragdrop mode in progress
case LM_CANCELDRAGDROP:
MESS(CANCELDRAGDROP);
break;
// Debug Emb 26/6/95 : performance measurement data
case LM_RESET_DEBUG_EMBCOUNTS:
MESS(RESET_DEBUG_EMBCOUNTS);
break;
case WM_USER+500:
{
LinkedListWindow * ll=(LinkedListWindow *)GetWindowLong(hWnd,0);
if (ll)
ll->bPaintSelectOnFocus=TRUE;
}
break;
}
return (DefWindowProc(hWnd, message, wParam, lParam));
}
BOOL CALLBACK dialogproc(HWND h,UINT m,WPARAM w,LPARAM l)
{
switch (m) {
case WM_TIMER:
{ // update the recording/playback counter
char text[30]="";
if (rchan) // recording
sprintf(text,"%I64d",BASS_ChannelGetPosition(rchan,BASS_POS_BYTE));
else if (chan) {
if (BASS_ChannelIsActive(chan)) // playing
sprintf(text,"%I64d / %I64d",BASS_ChannelGetPosition(chan,BASS_POS_BYTE),BASS_ChannelGetLength(chan,BASS_POS_BYTE));
else
sprintf(text,"%I64d",BASS_ChannelGetLength(chan,BASS_POS_BYTE));
}
MESS(20,WM_SETTEXT,0,text);
}
break;
case WM_COMMAND:
switch (LOWORD(w)) {
case IDCANCEL:
DestroyWindow(h);
break;
case 10:
if (!rchan)
StartRecording();
else
StopRecording();
break;
case 11:
BASS_ChannelPlay(chan,TRUE); // play the recorded data
break;
case 12:
WriteToDisk();
break;
case 13:
if (HIWORD(w)==CBN_SELCHANGE) { // input selection changed
int i;
input=MESS(13,CB_GETCURSEL,0,0); // get the selection
// enable the selected input
for (i=0;BASS_RecordSetInput(i,BASS_INPUT_OFF,-1);i++) ; // 1st disable all inputs, then...
BASS_RecordSetInput(input,BASS_INPUT_ON,-1); // enable the selected
UpdateInputInfo(); // update info
}
break;
}
break;
case WM_HSCROLL:
if (l) { // set input source level
float level=SendMessage((HWND)l,TBM_GETPOS,0,0)/100.f;
if (!BASS_RecordSetInput(input,0,level)) // failed to set input level
BASS_RecordSetInput(-1,0,level); // try master level instead
}
break;
case WM_INITDIALOG:
win=h;
// setup recording device (using default device)
if (!BASS_RecordInit(-1)) {
Error("Can't initialize recording device");
DestroyWindow(win);
} else { // get list of inputs
int c;
const char *i;
MESS(14,TBM_SETRANGE,FALSE,MAKELONG(0,100)); // initialize input level slider
for (c=0;i=BASS_RecordGetInputName(c);c++) {
MESS(13,CB_ADDSTRING,0,i);
if (!(BASS_RecordGetInput(c,NULL)&BASS_INPUT_OFF)) { // this 1 is currently "on"
input=c;
MESS(13,CB_SETCURSEL,input,0);
UpdateInputInfo(); // display info
}
}
SetTimer(h,0,200,0); // timer to update the position display
return 1;
}
break;
case WM_DESTROY:
// release all BASS stuff
BASS_RecordFree();
BASS_Free();
break;
}
return 0;
}