Commit 31247ec

Nick committed on
Wow, improve audio quality hugely by fixing data type error
commit 31247ec8888231eac62d1611ef4c1aa8ada3b249 parent dde3998
2 changed files +63−64
ModifiedGBEmu.lps +60−59
@@ -11,7 +11,7 @@
11 <EditorIndex Value="-1"/> 11 <EditorIndex Value="-1"/>
12 <TopLine Value="2"/> 12 <TopLine Value="2"/>
13 <CursorPos X="14" Y="7"/> 13 <CursorPos X="14" Y="7"/>
14 <UsageCount Value="67"/> 14 <UsageCount Value="68"/>
15 <DefaultSyntaxHighlighter Value="Delphi"/> 15 <DefaultSyntaxHighlighter Value="Delphi"/>
16 </Unit0> 16 </Unit0>
17 <Unit1> 17 <Unit1>
@@ -21,8 +21,9 @@
21 <HasResources Value="True"/> 21 <HasResources Value="True"/>
22 <ResourceBaseClass Value="Form"/> 22 <ResourceBaseClass Value="Form"/>
23 <EditorIndex Value="1"/> 23 <EditorIndex Value="1"/>
24 <CursorPos X="5" Y="16"/> 24 <TopLine Value="200"/>
25 <UsageCount Value="67"/> 25 <CursorPos X="10" Y="509"/>
26 <UsageCount Value="68"/>
26 <Loaded Value="True"/> 27 <Loaded Value="True"/>
27 <LoadedDesigner Value="True"/> 28 <LoadedDesigner Value="True"/>
28 <DefaultSyntaxHighlighter Value="Delphi"/> 29 <DefaultSyntaxHighlighter Value="Delphi"/>
@@ -33,7 +34,7 @@
33 <EditorIndex Value="-1"/> 34 <EditorIndex Value="-1"/>
34 <TopLine Value="1374"/> 35 <TopLine Value="1374"/>
35 <CursorPos X="22" Y="1374"/> 36 <CursorPos X="22" Y="1374"/>
36 <UsageCount Value="67"/> 37 <UsageCount Value="68"/>
37 <DefaultSyntaxHighlighter Value="Delphi"/> 38 <DefaultSyntaxHighlighter Value="Delphi"/>
38 </Unit2> 39 </Unit2>
39 <Unit3> 40 <Unit3>
@@ -43,7 +44,7 @@
43 <WindowIndex Value="-1"/> 44 <WindowIndex Value="-1"/>
44 <TopLine Value="-1"/> 45 <TopLine Value="-1"/>
45 <CursorPos X="-1" Y="-1"/> 46 <CursorPos X="-1" Y="-1"/>
46 <UsageCount Value="67"/> 47 <UsageCount Value="68"/>
47 <DefaultSyntaxHighlighter Value="Delphi"/> 48 <DefaultSyntaxHighlighter Value="Delphi"/>
48 </Unit3> 49 </Unit3>
49 <Unit4> 50 <Unit4>
@@ -53,7 +54,7 @@
53 <WindowIndex Value="-1"/> 54 <WindowIndex Value="-1"/>
54 <TopLine Value="-1"/> 55 <TopLine Value="-1"/>
55 <CursorPos X="-1" Y="-1"/> 56 <CursorPos X="-1" Y="-1"/>
56 <UsageCount Value="67"/> 57 <UsageCount Value="68"/>
57 <DefaultSyntaxHighlighter Value="Delphi"/> 58 <DefaultSyntaxHighlighter Value="Delphi"/>
58 </Unit4> 59 </Unit4>
59 <Unit5> 60 <Unit5>
@@ -61,7 +62,7 @@
61 <IsPartOfProject Value="True"/> 62 <IsPartOfProject Value="True"/>
62 <EditorIndex Value="-1"/> 63 <EditorIndex Value="-1"/>
63 <CursorPos X="13" Y="21"/> 64 <CursorPos X="13" Y="21"/>
64 <UsageCount Value="67"/> 65 <UsageCount Value="68"/>
65 <DefaultSyntaxHighlighter Value="Delphi"/> 66 <DefaultSyntaxHighlighter Value="Delphi"/>
66 </Unit5> 67 </Unit5>
67 <Unit6> 68 <Unit6>
@@ -70,7 +71,7 @@
70 <EditorIndex Value="-1"/> 71 <EditorIndex Value="-1"/>
71 <TopLine Value="78"/> 72 <TopLine Value="78"/>
72 <CursorPos X="17" Y="92"/> 73 <CursorPos X="17" Y="92"/>
73 <UsageCount Value="67"/> 74 <UsageCount Value="68"/>
74 <DefaultSyntaxHighlighter Value="Delphi"/> 75 <DefaultSyntaxHighlighter Value="Delphi"/>
75 </Unit6> 76 </Unit6>
76 <Unit7> 77 <Unit7>
@@ -79,7 +80,7 @@
79 <EditorIndex Value="-1"/> 80 <EditorIndex Value="-1"/>
80 <TopLine Value="332"/> 81 <TopLine Value="332"/>
81 <CursorPos Y="332"/> 82 <CursorPos Y="332"/>
82 <UsageCount Value="67"/> 83 <UsageCount Value="68"/>
83 <DefaultSyntaxHighlighter Value="Delphi"/> 84 <DefaultSyntaxHighlighter Value="Delphi"/>
84 </Unit7> 85 </Unit7>
85 <Unit8> 86 <Unit8>
@@ -88,7 +89,7 @@
88 <EditorIndex Value="-1"/> 89 <EditorIndex Value="-1"/>
89 <TopLine Value="284"/> 90 <TopLine Value="284"/>
90 <CursorPos X="10" Y="297"/> 91 <CursorPos X="10" Y="297"/>
91 <UsageCount Value="67"/> 92 <UsageCount Value="68"/>
92 <DefaultSyntaxHighlighter Value="Delphi"/> 93 <DefaultSyntaxHighlighter Value="Delphi"/>
93 </Unit8> 94 </Unit8>
94 <Unit9> 95 <Unit9>
@@ -98,7 +99,7 @@
98 <EditorIndex Value="-1"/> 99 <EditorIndex Value="-1"/>
99 <TopLine Value="3329"/> 100 <TopLine Value="3329"/>
100 <CursorPos X="7" Y="5932"/> 101 <CursorPos X="7" Y="5932"/>
101 <UsageCount Value="67"/> 102 <UsageCount Value="68"/>
102 <DefaultSyntaxHighlighter Value="Delphi"/> 103 <DefaultSyntaxHighlighter Value="Delphi"/>
103 </Unit9> 104 </Unit9>
104 <Unit10> 105 <Unit10>
@@ -106,9 +107,9 @@
106 <IsPartOfProject Value="True"/> 107 <IsPartOfProject Value="True"/>
107 <IsVisibleTab Value="True"/> 108 <IsVisibleTab Value="True"/>
108 <EditorIndex Value="2"/> 109 <EditorIndex Value="2"/>
109 <TopLine Value="148"/> 110 <TopLine Value="131"/>
110 <CursorPos X="31" Y="164"/> 111 <CursorPos X="19" Y="143"/>
111 <UsageCount Value="67"/> 112 <UsageCount Value="68"/>
112 <Loaded Value="True"/> 113 <Loaded Value="True"/>
113 <DefaultSyntaxHighlighter Value="Delphi"/> 114 <DefaultSyntaxHighlighter Value="Delphi"/>
114 </Unit10> 115 </Unit10>
@@ -116,8 +117,8 @@
116 <Filename Value="Global\vars.pas"/> 117 <Filename Value="Global\vars.pas"/>
117 <IsPartOfProject Value="True"/> 118 <IsPartOfProject Value="True"/>
118 <TopLine Value="144"/> 119 <TopLine Value="144"/>
119 <CursorPos X="31" Y="157"/> 120 <CursorPos X="10" Y="144"/>
120 <UsageCount Value="67"/> 121 <UsageCount Value="68"/>
121 <Loaded Value="True"/> 122 <Loaded Value="True"/>
122 <DefaultSyntaxHighlighter Value="Delphi"/> 123 <DefaultSyntaxHighlighter Value="Delphi"/>
123 </Unit11> 124 </Unit11>
@@ -125,9 +126,9 @@
125 <Filename Value="mainloop.pas"/> 126 <Filename Value="mainloop.pas"/>
126 <IsPartOfProject Value="True"/> 127 <IsPartOfProject Value="True"/>
127 <EditorIndex Value="3"/> 128 <EditorIndex Value="3"/>
128 <TopLine Value="215"/> 129 <TopLine Value="32"/>
129 <CursorPos X="28" Y="231"/> 130 <CursorPos X="6" Y="39"/>
130 <UsageCount Value="67"/> 131 <UsageCount Value="68"/>
131 <Loaded Value="True"/> 132 <Loaded Value="True"/>
132 <DefaultSyntaxHighlighter Value="Delphi"/> 133 <DefaultSyntaxHighlighter Value="Delphi"/>
133 </Unit12> 134 </Unit12>
@@ -136,22 +137,22 @@
136 <IsPartOfProject Value="True"/> 137 <IsPartOfProject Value="True"/>
137 <HasResources Value="True"/> 138 <HasResources Value="True"/>
138 <EditorIndex Value="-1"/> 139 <EditorIndex Value="-1"/>
139 <CursorPos Y="21"/> 140 <CursorPos X="33" Y="10"/>
140 <UsageCount Value="67"/> 141 <UsageCount Value="68"/>
141 <DefaultSyntaxHighlighter Value="Delphi"/> 142 <DefaultSyntaxHighlighter Value="Delphi"/>
142 </Unit13> 143 </Unit13>
143 <Unit14> 144 <Unit14>
144 <Filename Value="DirectX\Direct3DRM.pas"/> 145 <Filename Value="DirectX\Direct3DRM.pas"/>
145 <IsPartOfProject Value="True"/> 146 <IsPartOfProject Value="True"/>
146 <EditorIndex Value="-1"/> 147 <EditorIndex Value="-1"/>
147 <UsageCount Value="67"/> 148 <UsageCount Value="68"/>
148 <DefaultSyntaxHighlighter Value="Delphi"/> 149 <DefaultSyntaxHighlighter Value="Delphi"/>
149 </Unit14> 150 </Unit14>
150 <Unit15> 151 <Unit15>
151 <Filename Value="DirectX\DirectInput.pas"/> 152 <Filename Value="DirectX\DirectInput.pas"/>
152 <IsPartOfProject Value="True"/> 153 <IsPartOfProject Value="True"/>
153 <EditorIndex Value="-1"/> 154 <EditorIndex Value="-1"/>
154 <UsageCount Value="67"/> 155 <UsageCount Value="68"/>
155 <DefaultSyntaxHighlighter Value="Delphi"/> 156 <DefaultSyntaxHighlighter Value="Delphi"/>
156 </Unit15> 157 </Unit15>
157 <Unit16> 158 <Unit16>
@@ -159,35 +160,35 @@
159 <IsPartOfProject Value="True"/> 160 <IsPartOfProject Value="True"/>
160 <EditorIndex Value="-1"/> 161 <EditorIndex Value="-1"/>
161 <CursorPos X="3" Y="15"/> 162 <CursorPos X="3" Y="15"/>
162 <UsageCount Value="67"/> 163 <UsageCount Value="68"/>
163 <DefaultSyntaxHighlighter Value="Delphi"/> 164 <DefaultSyntaxHighlighter Value="Delphi"/>
164 </Unit16> 165 </Unit16>
165 <Unit17> 166 <Unit17>
166 <Filename Value="DirectX\DirectPlay.pas"/> 167 <Filename Value="DirectX\DirectPlay.pas"/>
167 <IsPartOfProject Value="True"/> 168 <IsPartOfProject Value="True"/>
168 <EditorIndex Value="-1"/> 169 <EditorIndex Value="-1"/>
169 <UsageCount Value="67"/> 170 <UsageCount Value="68"/>
170 <DefaultSyntaxHighlighter Value="Delphi"/> 171 <DefaultSyntaxHighlighter Value="Delphi"/>
171 </Unit17> 172 </Unit17>
172 <Unit18> 173 <Unit18>
173 <Filename Value="DirectX\DirectSetup.pas"/> 174 <Filename Value="DirectX\DirectSetup.pas"/>
174 <IsPartOfProject Value="True"/> 175 <IsPartOfProject Value="True"/>
175 <EditorIndex Value="-1"/> 176 <EditorIndex Value="-1"/>
176 <UsageCount Value="67"/> 177 <UsageCount Value="68"/>
177 <DefaultSyntaxHighlighter Value="Delphi"/> 178 <DefaultSyntaxHighlighter Value="Delphi"/>
178 </Unit18> 179 </Unit18>
179 <Unit19> 180 <Unit19>
180 <Filename Value="DirectX\DirectSound.pas"/> 181 <Filename Value="DirectX\DirectSound.pas"/>
181 <IsPartOfProject Value="True"/> 182 <IsPartOfProject Value="True"/>
182 <EditorIndex Value="-1"/> 183 <EditorIndex Value="-1"/>
183 <UsageCount Value="67"/> 184 <UsageCount Value="68"/>
184 <DefaultSyntaxHighlighter Value="Delphi"/> 185 <DefaultSyntaxHighlighter Value="Delphi"/>
185 </Unit19> 186 </Unit19>
186 <Unit20> 187 <Unit20>
187 <Filename Value="DirectX\Direct3D.pas"/> 188 <Filename Value="DirectX\Direct3D.pas"/>
188 <IsPartOfProject Value="True"/> 189 <IsPartOfProject Value="True"/>
189 <EditorIndex Value="-1"/> 190 <EditorIndex Value="-1"/>
190 <UsageCount Value="67"/> 191 <UsageCount Value="68"/>
191 <DefaultSyntaxHighlighter Value="Delphi"/> 192 <DefaultSyntaxHighlighter Value="Delphi"/>
192 </Unit20> 193 </Unit20>
193 <Unit21> 194 <Unit21>
@@ -197,7 +198,7 @@
197 <EditorIndex Value="-1"/> 198 <EditorIndex Value="-1"/>
198 <TopLine Value="372"/> 199 <TopLine Value="372"/>
199 <CursorPos X="33" Y="405"/> 200 <CursorPos X="33" Y="405"/>
200 <UsageCount Value="67"/> 201 <UsageCount Value="68"/>
201 <DefaultSyntaxHighlighter Value="Delphi"/> 202 <DefaultSyntaxHighlighter Value="Delphi"/>
202 </Unit21> 203 </Unit21>
203 <Unit22> 204 <Unit22>
@@ -281,123 +282,123 @@
281 <JumpHistory Count="30" HistoryIndex="29"> 282 <JumpHistory Count="30" HistoryIndex="29">
282 <Position1> 283 <Position1>
283 <Filename Value="Sound\sound.pas"/> 284 <Filename Value="Sound\sound.pas"/>
284 <Caret Line="191" Column="24" TopLine="173"/> 285 <Caret Line="364" Column="51" TopLine="348"/>
285 </Position1> 286 </Position1>
286 <Position2> 287 <Position2>
287 <Filename Value="Sound\sound.pas"/> 288 <Filename Value="Sound\sound.pas"/>
288 <Caret Line="228" TopLine="201"/> 289 <Caret Line="349" Column="51" TopLine="333"/>
289 </Position2> 290 </Position2>
290 <Position3> 291 <Position3>
291 <Filename Value="Sound\sound.pas"/> 292 <Filename Value="Sound\sound.pas"/>
292 <Caret Line="230" Column="33" TopLine="202"/> 293 <Caret Line="364" Column="51" TopLine="348"/>
293 </Position3> 294 </Position3>
294 <Position4> 295 <Position4>
295 <Filename Value="Sound\sound.pas"/> 296 <Filename Value="Sound\sound.pas"/>
296 <Caret Line="165" Column="5" TopLine="153"/> 297 <Caret Line="349" Column="51" TopLine="333"/>
297 </Position4> 298 </Position4>
298 <Position5> 299 <Position5>
299 <Filename Value="Sound\sound.pas"/> 300 <Filename Value="Sound\sound.pas"/>
300 <Caret Line="213" Column="93" TopLine="204"/> 301 <Caret Line="364" Column="51" TopLine="348"/>
301 </Position5> 302 </Position5>
302 <Position6> 303 <Position6>
303 <Filename Value="Sound\sound.pas"/> 304 <Filename Value="Sound\sound.pas"/>
304 <Caret Line="216" Column="42" TopLine="196"/> 305 <Caret Line="349" Column="51" TopLine="333"/>
305 </Position6> 306 </Position6>
306 <Position7> 307 <Position7>
307 <Filename Value="Sound\sound.pas"/> 308 <Filename Value="Sound\sound.pas"/>
308 <Caret Line="211" Column="8" TopLine="199"/> 309 <Caret Line="364" Column="51" TopLine="348"/>
309 </Position7> 310 </Position7>
310 <Position8> 311 <Position8>
311 <Filename Value="Sound\sound.pas"/> 312 <Filename Value="Sound\sound.pas"/>
312 <Caret Line="216" Column="42" TopLine="201"/> 313 <Caret Line="349" Column="51" TopLine="333"/>
313 </Position8> 314 </Position8>
314 <Position9> 315 <Position9>
315 <Filename Value="Sound\sound.pas"/> 316 <Filename Value="Sound\sound.pas"/>
316 <Caret Line="214" Column="11" TopLine="199"/> 317 <Caret Line="364" Column="51" TopLine="348"/>
317 </Position9> 318 </Position9>
318 <Position10> 319 <Position10>
319 <Filename Value="Sound\sound.pas"/> 320 <Filename Value="Sound\sound.pas"/>
320 <Caret Line="205" Column="21" TopLine="197"/> 321 <Caret Line="349" Column="51" TopLine="333"/>
321 </Position10> 322 </Position10>
322 <Position11> 323 <Position11>
323 <Filename Value="Sound\sound.pas"/> 324 <Filename Value="Sound\sound.pas"/>
324 <Caret Line="297" Column="49" TopLine="276"/> 325 <Caret Line="364" Column="51" TopLine="348"/>
325 </Position11> 326 </Position11>
326 <Position12> 327 <Position12>
327 <Filename Value="Sound\sound.pas"/> 328 <Filename Value="Sound\sound.pas"/>
328 <Caret Line="286" TopLine="280"/> 329 <Caret Line="349" Column="51" TopLine="333"/>
329 </Position12> 330 </Position12>
330 <Position13> 331 <Position13>
331 <Filename Value="Sound\sound.pas"/> 332 <Filename Value="Sound\sound.pas"/>
332 <Caret Line="16" Column="6"/> 333 <Caret Line="364" Column="51" TopLine="348"/>
333 </Position13> 334 </Position13>
334 <Position14> 335 <Position14>
335 <Filename Value="Sound\sound.pas"/> 336 <Filename Value="Sound\sound.pas"/>
336 <Caret Line="222" Column="7" TopLine="209"/> 337 <Caret Line="349" Column="51" TopLine="333"/>
337 </Position14> 338 </Position14>
338 <Position15> 339 <Position15>
339 <Filename Value="Sound\sound.pas"/> 340 <Filename Value="Sound\sound.pas"/>
340 <Caret Line="165" Column="34" TopLine="151"/> 341 <Caret Line="370" Column="13" TopLine="354"/>
341 </Position15> 342 </Position15>
342 <Position16> 343 <Position16>
343 <Filename Value="Sound\sound.pas"/> 344 <Filename Value="Sound\sound.pas"/>
344 <Caret Line="161" Column="4" TopLine="150"/> 345 <Caret Line="347" Column="17" TopLine="333"/>
345 </Position16> 346 </Position16>
346 <Position17> 347 <Position17>
347 <Filename Value="Sound\sound.pas"/> 348 <Filename Value="Sound\sound.pas"/>
348 <Caret Line="181" Column="16" TopLine="157"/> 349 <Caret Line="348" Column="13" TopLine="332"/>
349 </Position17> 350 </Position17>
350 <Position18> 351 <Position18>
351 <Filename Value="Sound\sound.pas"/> 352 <Filename Value="Sound\sound.pas"/>
352 <Caret Line="210" Column="18" TopLine="194"/> 353 <Caret Line="347" Column="26" TopLine="331"/>
353 </Position18> 354 </Position18>
354 <Position19> 355 <Position19>
355 <Filename Value="Sound\sound.pas"/> 356 <Filename Value="Sound\sound.pas"/>
356 <Caret Line="209" Column="39" TopLine="192"/> 357 <Caret Line="348" Column="13" TopLine="332"/>
357 </Position19> 358 </Position19>
358 <Position20> 359 <Position20>
359 <Filename Value="Sound\sound.pas"/> 360 <Filename Value="Sound\sound.pas"/>
360 <Caret Line="240" Column="13" TopLine="157"/> 361 <Caret Line="347" Column="26" TopLine="331"/>
361 </Position20> 362 </Position20>
362 <Position21> 363 <Position21>
363 <Filename Value="Sound\sound.pas"/> 364 <Filename Value="Sound\sound.pas"/>
364 <Caret Line="571" Column="5" TopLine="33"/> 365 <Caret Line="348" Column="13" TopLine="332"/>
365 </Position21> 366 </Position21>
366 <Position22> 367 <Position22>
367 <Filename Value="Sound\sound.pas"/> 368 <Filename Value="Sound\sound.pas"/>
368 <Caret Line="203" Column="51" TopLine="212"/> 369 <Caret Line="349" Column="51" TopLine="333"/>
369 </Position22> 370 </Position22>
370 <Position23> 371 <Position23>
371 <Filename Value="Sound\sound.pas"/> 372 <Filename Value="Sound\sound.pas"/>
372 <Caret Line="377" Column="13" TopLine="360"/> 373 <Caret Line="364" Column="51" TopLine="348"/>
373 </Position23> 374 </Position23>
374 <Position24> 375 <Position24>
375 <Filename Value="Sound\sound.pas"/> 376 <Filename Value="Sound\sound.pas"/>
376 <Caret Line="169" Column="23" TopLine="155"/> 377 <Caret Line="349" Column="51" TopLine="333"/>
377 </Position24> 378 </Position24>
378 <Position25> 379 <Position25>
379 <Filename Value="Sound\sound.pas"/> 380 <Filename Value="Sound\sound.pas"/>
380 <Caret Line="352" Column="26" TopLine="335"/> 381 <Caret Line="348" Column="13" TopLine="332"/>
381 </Position25> 382 </Position25>
382 <Position26> 383 <Position26>
383 <Filename Value="Sound\sound.pas"/> 384 <Filename Value="Sound\sound.pas"/>
384 <Caret Line="353" Column="13" TopLine="337"/> 385 <Caret Line="347" Column="26" TopLine="331"/>
385 </Position26> 386 </Position26>
386 <Position27> 387 <Position27>
387 <Filename Value="Sound\sound.pas"/> 388 <Filename Value="Sound\sound.pas"/>
388 <Caret Line="352" Column="26" TopLine="336"/> 389 <Caret Line="330" Column="37" TopLine="316"/>
389 </Position27> 390 </Position27>
390 <Position28> 391 <Position28>
391 <Filename Value="Sound\sound.pas"/> 392 <Filename Value="Sound\sound.pas"/>
392 <Caret Line="374" Column="26" TopLine="358"/> 393 <Caret Line="143" Column="18" TopLine="131"/>
393 </Position28> 394 </Position28>
394 <Position29> 395 <Position29>
395 <Filename Value="Sound\sound.pas"/> 396 <Filename Value="Sound\sound.pas"/>
396 <Caret Line="375" Column="13" TopLine="359"/> 397 <Caret Line="348" Column="13" TopLine="332"/>
397 </Position29> 398 </Position29>
398 <Position30> 399 <Position30>
399 <Filename Value="Sound\sound.pas"/> 400 <Filename Value="Sound\sound.pas"/>
400 <Caret Line="374" Column="26" TopLine="358"/> 401 <Caret Line="370" Column="13" TopLine="354"/>
401 </Position30> 402 </Position30>
402 </JumpHistory> 403 </JumpHistory>
403 </ProjectSession> 404 </ProjectSession>
ModifiedSound/sound.pas +3−5
@@ -13,8 +13,6 @@ unit sound;
13 13
14 interface 14 interface
15 15
16 uses bass;
17
18 (* 16 (*
19 17
20 FF10 -- SNDREG10 [RW] Sweep [Sound Mode #1] 18 FF10 -- SNDREG10 [RW] Sweep [Sound Mode #1]
@@ -134,7 +132,6 @@ procedure SoundUpdate(cycles: integer);
134 procedure SoundSetCycles(n: integer); 132 procedure SoundSetCycles(n: integer);
135 133
136 var 134 var
137 playStream: HStream;
138 soundEnable: boolean; 135 soundEnable: boolean;
139 sndRegChange: boolean; 136 sndRegChange: boolean;
140 snd: array[1..4] of record 137 snd: array[1..4] of record
@@ -143,7 +140,7 @@ var
143 // private: 140 // private:
144 enable: boolean; 141 enable: boolean;
145 Freq: integer; 142 Freq: integer;
146 Vol: byte; 143 Vol: shortint;
147 Len: integer; 144 Len: integer;
148 swpCnt: byte; 145 swpCnt: byte;
149 EnvCnt: byte; 146 EnvCnt: byte;
@@ -153,12 +150,13 @@ var
153 150
154 implementation 151 implementation
155 152
156 uses vars; 153 uses vars, bass;
157 154
158 const 155 const
159 sampleCycles: longint = (8192 * 1024) div 22050; 156 sampleCycles: longint = (8192 * 1024) div 22050;
160 157
161 var 158 var
159 playStream: HStream;
162 ready: integer; 160 ready: integer;
163 bufPos, bufCycles, bufLVal, bufRVal: integer; 161 bufPos, bufCycles, bufLVal, bufRVal: integer;
164 buf: array[0..2047] of byte; 162 buf: array[0..2047] of byte;