win32 Pico work nearly done
[picodrive.git] / platform / win32 / GenaDrive / DSound.cpp
CommitLineData
cc68a136 1\r
2#include "app.h"\r
3\r
4#ifndef _XBOX\r
5#pragma warning (disable:4201)\r
6#include <mmsystem.h>\r
7#include <dsound.h>\r
8#endif\r
9\r
10static IDirectSound *DSound=NULL;\r
11static IDirectSoundBuffer *LoopBuffer=NULL;\r
12static int LoopLen=0,LoopWrite=0; // Next position in loop to write\r
13\r
14short *DSoundNext=NULL; // Buffer for next sound data to put in loop\r
cc68a136 15\r
16static int LoopBlank()\r
17{\r
18 void *mema=NULL,*memb=NULL;\r
19 DWORD sizea=0,sizeb=0;\r
20\r
1b0ac8ad 21 LoopBuffer->Lock(0,LoopLen<<((PicoOpt&8) ? 2 : 1), &mema,&sizea, &memb,&sizeb, 0);\r
cc68a136 22 \r
23 if (mema) memset(mema,0,sizea);\r
24\r
25 LoopBuffer->Unlock(mema,sizea, memb,sizeb);\r
26\r
27 return 0;\r
28}\r
29\r
30int DSoundInit()\r
31{\r
32 DSBUFFERDESC dsbd;\r
33 WAVEFORMATEX wfx;\r
34\r
35 memset(&dsbd,0,sizeof(dsbd));\r
36 memset(&wfx,0,sizeof(wfx));\r
37\r
38 // Make wave format:\r
39 wfx.wFormatTag=WAVE_FORMAT_PCM;\r
40 wfx.nChannels=(unsigned short)((PicoOpt&8) ? 2 : 1); // Stereo/mono\r
41 wfx.nSamplesPerSec=PsndRate;\r
42 wfx.wBitsPerSample=16;\r
43\r
44 wfx.nBlockAlign=(WORD)((wfx.nChannels*wfx.wBitsPerSample)>>3);\r
45 wfx.nAvgBytesPerSec=wfx.nBlockAlign*wfx.nSamplesPerSec;\r
46\r
47 // Make buffer for the next seg to put into the loop:\r
03a265e5 48 DSoundNext=(short *)malloc((PsndLen<<2)+64); if (DSoundNext==NULL) return 1;\r
cc68a136 49 memset(DSoundNext,0,PsndLen<<2);\r
8f7ed1b8 50// lprintf("p %p\n", DSoundNext);\r
cc68a136 51\r
52 // Create the DirectSound interface:\r
53 DirectSoundCreate(NULL,&DSound,NULL);\r
54 if (DSound==NULL) return 1;\r
55\r
56 LoopLen=PsndLen<<1; // 2 segs\r
57\r
58#ifndef _XBOX\r
59 LoopLen<<=1; // 4 segs\r
60 DSound->SetCooperativeLevel(FrameWnd,DSSCL_PRIORITY);\r
61 dsbd.dwFlags=DSBCAPS_GLOBALFOCUS; // Play in background\r
62#endif\r
63\r
64 // Create the looping buffer:\r
65 dsbd.dwSize=sizeof(dsbd);\r
66 dsbd.dwBufferBytes=LoopLen<<wfx.nChannels; // 16bit stereo?\r
67 dsbd.lpwfxFormat=&wfx;\r
68\r
69 DSound->CreateSoundBuffer(&dsbd,&LoopBuffer,NULL);\r
70 if (LoopBuffer==NULL) return 1;\r
71\r
72 LoopBlank();\r
73 LoopBuffer->Play(0,0,DSBPLAY_LOOPING);\r
74 return 0;\r
75}\r
76\r
77void DSoundExit()\r
78{\r
79 if (LoopBuffer) LoopBuffer->Stop();\r
80 RELEASE(LoopBuffer)\r
81 RELEASE(DSound)\r
1b0ac8ad 82 DSound=0;\r
83 if (DSoundNext) free(DSoundNext); DSoundNext=NULL;\r
cc68a136 84}\r
85\r
86static int WriteSeg()\r
87{\r
88 void *mema=NULL,*memb=NULL;\r
89 DWORD sizea=0,sizeb=0;\r
1b0ac8ad 90 int ret;\r
cc68a136 91\r
92 // Lock the segment at 'LoopWrite' and copy the next segment in\r
1b0ac8ad 93 ret = LoopBuffer->Lock(LoopWrite<<((PicoOpt&8) ? 2 : 1),PsndLen<<((PicoOpt&8) ? 2 : 1), &mema,&sizea, &memb,&sizeb, 0);\r
8f7ed1b8 94 if (ret) lprintf("LoopBuffer->Lock() failed: %i\n", ret);\r
1b0ac8ad 95\r
cc68a136 96 if (mema) memcpy(mema,DSoundNext,sizea);\r
03a265e5 97// if (memb) memcpy(memb,DSoundNext+sizea,sizeb);\r
8f7ed1b8 98 if (sizeb != 0) lprintf("sizeb is not 0! (%i)\n", sizeb);\r
cc68a136 99\r
1b0ac8ad 100 ret = LoopBuffer->Unlock(mema,sizea, memb,0);\r
8f7ed1b8 101 if (ret) lprintf("LoopBuffer->Unlock() failed: %i\n", ret);\r
1b0ac8ad 102\r
103 return 0;\r
104}\r
cc68a136 105\r
1b0ac8ad 106static int DSoundFake()\r
107{\r
108 static int ticks_old = 0;\r
109 int ticks = GetTickCount() * 1000;\r
110 int diff;\r
111\r
112 diff = ticks - ticks_old;\r
94fc546c 113 if (diff >= 0 && diff < 1000000/60*4)\r
1b0ac8ad 114 {\r
115 while (diff >= 0 && diff < 1000000/60)\r
116 {\r
117 Sleep(1);\r
118 diff = GetTickCount()*1000 - ticks_old;\r
119 }\r
94fc546c 120 ticks_old += 1000000/60;\r
1b0ac8ad 121 }\r
122 else\r
123 ticks_old = ticks;\r
cc68a136 124 return 0;\r
125}\r
126\r
127int DSoundUpdate()\r
128{\r
129 DWORD play=0;\r
130 int pos=0;\r
131\r
1b0ac8ad 132 if (LoopBuffer==NULL) return DSoundFake();\r
cc68a136 133\r
134 LoopBuffer->GetCurrentPosition(&play,NULL);\r
135 pos=play>>((PicoOpt&8) ? 2 : 1);\r
136\r
137 // 'LoopWrite' is the next seg in the loop that we want to write\r
138 // First check that the sound 'play' pointer has moved out of it:\r
139 if (pos>=LoopWrite && pos<LoopWrite+PsndLen) return 1; // No, it hasn't\r
140\r
141 WriteSeg();\r
142\r
143 // Advance LoopWrite to next seg:\r
144 LoopWrite+=PsndLen; if (LoopWrite+PsndLen>LoopLen) LoopWrite=0;\r
145\r
146 return 0;\r
147}\r
148\r