Commit 73029fe

Nick committed on
Move sample songs around, add debug mode export feature
commit 73029feca3ede3d0f69f90d84ac3d67cda85b87d parent 0ceb289
30 changed files +16−9
RenamedSampleSongs/Old Release Stuff/Cognition.uge → SampleSongs/Old/Old Release Stuff/Cognition.uge +0−0
File metadata changed without textual changes.
RenamedSampleSongs/Old Release Stuff/Funkabeer's Revenge.uge → SampleSongs/Old/Old Release Stuff/Funkabeer's Revenge.uge +0−0
File metadata changed without textual changes.
RenamedSampleSongs/Old Release Stuff/Funky Stars.uge → SampleSongs/Old/Old Release Stuff/Funky Stars.uge +0−0
File metadata changed without textual changes.
RenamedSampleSongs/Old Release Stuff/Wild Pokemon Appear.uge → SampleSongs/Old/Old Release Stuff/Wild Pokemon Appear.uge +0−0
File metadata changed without textual changes.
ModifiedSound/sound.pas +1−1
@@ -220,7 +220,7 @@ procedure BeginWritingSoundToStream(Stream: TStream);
220 begin 220 begin
221 WritingSoundToStream := True; 221 WritingSoundToStream := True;
222 WaveWriter := TWavWriter.Create; 222 WaveWriter := TWavWriter.Create;
223 WaveWriter.StoreToStream(Stream); 223 {$push}{$R-}WaveWriter.StoreToStream(Stream);{$pop}
224 with WaveWriter.fmt do begin 224 with WaveWriter.fmt do begin
225 SampleRate := playbackFrequency; 225 SampleRate := playbackFrequency;
226 BitsPerSample := 16; 226 BitsPerSample := 16;
Modifiedcodegen.pas +11−4
@@ -149,6 +149,7 @@ var
149 SL: TStringList; 149 SL: TStringList;
150 begin 150 begin
151 SL := TSTringList.Create; 151 SL := TSTringList.Create;
152 SL.Add('STANDALONE_MODE EQU 1');
152 153
153 if Mode = emPreview then 154 if Mode = emPreview then
154 SL.Add('PREVIEW_MODE EQU 1') 155 SL.Add('PREVIEW_MODE EQU 1')
@@ -286,10 +287,16 @@ begin
286 Result := False; 287 Result := False;
287 goto Cleanup; 288 goto Cleanup;
288 end; 289 end;
289 290 {$ifdef DEVELOPMENT}
290 DeleteFile(Filename+'.obj'); 291 RenameFile(Filename+'.obj', FilePath+'.obj');
291 DeleteFile(Filename+'.sym'); 292 RenameFile(Filename+'.sym', FilePath+'.sym');
292 DeleteFile(Filename+'.map'); 293 RenameFile(Filename+'.map', FilePath+'.map');
294 {$endif}
295 {$ifdef PRODUCTION}
296 DeleteFile(Filename+'.obj');
297 DeleteFile(Filename+'.sym');
298 DeleteFile(Filename+'.map');
299 {$endif}
293 end; 300 end;
294 301
295 Result := True; 302 Result := True;
Modifiedrendertowave.lfm +2−2
@@ -1,7 +1,7 @@
1 object frmRenderToWave: TfrmRenderToWave 1 object frmRenderToWave: TfrmRenderToWave
2 Left = 2038 2 Left = 1085
3 Height = 313 3 Height = 313
4 Top = 144 4 Top = 103
5 Width = 451 5 Width = 451
6 BorderStyle = bsSingle 6 BorderStyle = bsSingle
7 Caption = 'Render song' 7 Caption = 'Render song'
Modifiedtracker.lfm +2−2
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1763 2 Left = 671
3 Height = 687 3 Height = 687
4 Top = 320 4 Top = 221
5 Width = 1145 5 Width = 1145
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'