Commit `e759313`

Nick Faro committed on Apr 14, 2026

Individual channel export

commit e759313def6a2748062bbf67e6cf04e1b7a2d281 parent 5fc6c0a

3 changed files +130−44

Modifiedsrc/rendertowave.lfm +14−5

 object frmRenderToWave: TfrmRenderToWave
   Left = 638
-  Height = 279
+  Height = 320
   Top = 453
   Width = 601
   BorderStyle = bsSingle
   Caption = 'Render song'
-  ClientHeight = 279
+  ClientHeight = 320
   ClientWidth = 601
   DesignTimePPI = 128
   OnShow = FormShow
   object RenderButton: TButton
     Left = 19
     Height = 33
-    Top = 220
+    Top = 261
     Width = 352
     Caption = 'Render'
     Enabled = False
   object CancelButton: TButton
     Left = 380
     Height = 33
-    Top = 220
+    Top = 261
     Width = 195
     Caption = 'Cancel'
     Enabled = False
   object Panel1: TPanel
     Left = 21
     Height = 45
-    Top = 160
+    Top = 201
     Width = 556
     Caption = 'Ready'
     TabOrder = 9
   end
+  object ExportChannelsCheckBox: TCheckBox
+    Left = 19
+    Height = 27
+    Top = 160
+    Width = 450
+    Caption = 'Export each channel as a separate file'
+    ParentFont = False
+    TabOrder = 10
+  end
 end

Modifiedsrc/rendertowave.pas +61−20

   TfrmRenderToWave = class(TForm)
     ComboBox1: TComboBox;
+    ExportChannelsCheckBox: TCheckBox;
     Label2: TLabel;
     Label3: TLabel;
     Panel1: TPanel;
     function FilenameToFormatIndex: Integer;
     function GetFFMPEGFormat: String;
+    function CreateFFMPEGProcess(const DestFilename: String): TProcess;
     procedure UpdateUI;
     procedure ExportWaveToFile(Filename: String);
   CancelButton.Enabled := Rendering and not CancelRequested;
 end;
-procedure TfrmRenderToWave.ExportWaveToFile(Filename: String);
+function TfrmRenderToWave.CreateFFMPEGProcess(const DestFilename: String): TProcess;
-var
-  Proc: TProcess;
 begin
-  z80_reset;
+  Result := TProcess.Create(nil);
-  ResetSound;
+  Result.Executable := 'ffmpeg';
-  enablesound;
+  with Result.Parameters do begin
-  FCCallback := nil;
-  load(ConcatPaths([CacheDir, 'render', 'preview.gb']));
-  Proc := TProcess.Create(nil);
-  Proc.Executable := 'ffmpeg';
-  with Proc.Parameters do begin
     // HACK: to prevent ffmpeg from writing to stderr, we disable all output
     // This is needed because ffmpeg blocks unless you read what it writes
     Add('-nostats');
     Add('-');
     Add('-f');
     Add(GetFFMPEGFormat);
-    Add(Filename);
+    Add(DestFilename);
+  end;
+  Result.Options := [poUsePipes, poNoConsole];
+end;
+procedure TfrmRenderToWave.ExportWaveToFile(Filename: String);
+const
+  ChannelSuffixes: array[1..4] of String = ('_pulse1', '_pulse2', '_wave', '_noise');
+var
+  MixProc: TProcess;
+  ChanProcs: array[1..4] of TProcess;
+  ChanStreams: array[1..4] of TStream;
+  ExportChannels: Boolean;
+  Dir, Base, Ext: String;
+  I: Integer;
+begin
+  z80_reset;
+  ResetSound;
+  enablesound;
+  FCCallback := nil;
+  load(ConcatPaths([CacheDir, 'render', 'preview.gb']));
+  ExportChannels := ExportChannelsCheckBox.Checked;
+  for I := 1 to 4 do begin
+    ChanProcs[I] := nil;
+    ChanStreams[I] := nil;
+  end;
+  MixProc := CreateFFMPEGProcess(Filename);
+  MixProc.Execute;
+  if ExportChannels then begin
+    Dir := ExtractFilePath(Filename);
+    Ext := ExtractFileExt(Filename);
+    Base := ChangeFileExt(ExtractFileName(Filename), '');
+    for I := 1 to 4 do begin
+      ChanProcs[I] := CreateFFMPEGProcess(Dir + Base + ChannelSuffixes[I] + Ext);
+      ChanProcs[I].Execute;
+      ChanStreams[I] := ChanProcs[I].Input;
+    end;
   end;
-  Proc.Options := [poUsePipes, poNoConsole];
-  Proc.Execute;
   try
-    BeginWritingSoundToStream(Proc.Input);
+    if ExportChannels then
+      BeginWritingChannelsToStreams(MixProc.Input, ChanStreams[1], ChanStreams[2], ChanStreams[3], ChanStreams[4])
+    else
+      BeginWritingSoundToStream(MixProc.Input);
     if PlayEntireSongRadioButton.Checked then
       RenderEntireSong(PlayEntireSongSpinEdit.Value)
   finally
     EndWritingSoundToStream;
-    Proc.CloseInput;
+    MixProc.CloseInput;
-    Proc.WaitOnExit;
+    MixProc.WaitOnExit;
-    Proc.Free;
+    MixProc.Free;
+    for I := 1 to 4 do
+      if ChanProcs[I] <> nil then begin
+        ChanProcs[I].CloseInput;
+        ChanProcs[I].WaitOnExit;
+        ChanProcs[I].Free;
+      end;
     Panel1.Caption := 'Ready';
   end;

Modifiedsrc/sound.pas +55−19

 procedure SoundUpdate(cycles: integer);
 procedure BeginWritingSoundToStream(Stream: TStream);
+procedure BeginWritingChannelsToStreams(MixStream, Ch1Stream, Ch2Stream, Ch3Stream, Ch4Stream: TStream);
 procedure EndWritingSoundToStream;
 var
 var
   PlayStream: TSDL_AudioDeviceID;
-  bufCycles, bufLVal, bufRVal: integer;
+  bufCycles: integer;
+  bufLVals, bufRVals: array[0..4] of Integer;
   sndBuffer: ^Single;
   sndBytesWritten: Integer;
   lfsr: Cardinal = 0;
   WritingSoundToStream: Boolean;
-  SoundStream: TStream;
+  SoundStreams: array[0..4] of TStream;
 procedure ResetSound;
 var
 end;
 procedure BeginWritingSoundToStream(Stream: TStream);
+var
+  I: Integer;
+begin
+  SoundStreams[0] := Stream;
+  for I := 1 to 4 do SoundStreams[I] := nil;
+  WritingSoundToStream := True;
+end;
+procedure BeginWritingChannelsToStreams(MixStream, Ch1Stream, Ch2Stream, Ch3Stream, Ch4Stream: TStream);
 begin
+  SoundStreams[0] := MixStream;
+  SoundStreams[1] := Ch1Stream;
+  SoundStreams[2] := Ch2Stream;
+  SoundStreams[3] := Ch3Stream;
+  SoundStreams[4] := Ch4Stream;
   WritingSoundToStream := True;
-  SoundStream := Stream;
 end;
 procedure EndWritingSoundToStream;
+var
+  I: Integer;
 begin
   WritingSoundToStream := False;
+  for I := 0 to 4 do SoundStreams[I] := nil;
 end;
 procedure StartPlayback;
   soundEnable := True;
   bufCycles := 0;
-  bufLVal := 0;
+  FillChar(bufLVals, SizeOf(bufLVals), 0);
-  bufRVal := 0;
+  FillChar(bufRVals, SizeOf(bufRVals), 0);
 end;
 procedure DisableSound;
   soundEnable := False;
 end;
-procedure SoundDoOut(l, r: Integer; cycles: integer);
+procedure SoundDoOut(const ls, rs: array of Integer; cycles: integer);
 var
+  I: Integer;
   buf: array[0..1] of Single;
 begin
-  Inc(bufLVal, l * cycles);
+  for I := 0 to 4 do begin
-  Inc(bufRVal, r * cycles);
+    Inc(bufLVals[I], ls[I] * cycles);
+    Inc(bufRVals[I], rs[I] * cycles);
+  end;
   Inc(bufCycles, cycles);
   if bufCycles >= sampleCycles then
   begin
-    buf[0] := ((bufRVal div sampleCycles) / 512.0);
-    buf[1] := ((bufLVal div sampleCycles) / 512.0);
-    bufCycles := 0;
-    bufLVal := 0;
-    bufRVal := 0;
     if WritingSoundToStream then begin
-      SoundStream.Write(buf, SizeOf(Single)*2);
+      for I := 0 to 4 do begin
+        if SoundStreams[I] <> nil then begin
+          buf[0] := ((bufRVals[I] div sampleCycles) / 512.0);
+          buf[1] := ((bufLVals[I] div sampleCycles) / 512.0);
+          SoundStreams[I].Write(buf, SizeOf(Single)*2);
+        end;
+      end;
     end
     else begin
+      buf[0] := ((bufRVals[0] div sampleCycles) / 512.0);
+      buf[1] := ((bufLVals[0] div sampleCycles) / 512.0);
       sndBuffer^ := buf[0];
       Inc(sndBuffer);
       sndBuffer^ := buf[1];
       Inc(sndBuffer);
       Inc(sndBytesWritten, SampleSize);
     end;
+    bufCycles := 0;
+    for I := 0 to 4 do begin
+      bufLVals[I] := 0;
+      bufRVals[I] := 0;
+    end;
   end;
 end;
-procedure SoundOutBits(l, r: Integer; cycles: integer);
+procedure SoundOutBits(const ls, rs: array of Integer; cycles: integer);
 var
   left: integer;
 begin
   while bufCycles + cycles > sampleCycles do
   begin
     left := sampleCycles - bufCycles;
-    SoundDoOut(l, r, left);
+    SoundDoOut(ls, rs, left);
     Dec(cycles, left);
   end;
-  SoundDoOut(l, r, cycles);
+  SoundDoOut(ls, rs, cycles);
 end;
 const
   n, stage: integer;
   ls: array[1..4] of Integer = (0, 0, 0, 0);
   rs: array[1..4] of Integer = (0, 0, 0, 0);
+  chanLs, chanRs: array[0..4] of Integer;
   l, r: Integer;
   I: Integer;
 begin
   SampleBuffers[0].BufferR[SampleBuffers[0].Cursor] := r;
   SampleBuffers[0].Cursor := (SampleBuffers[0].Cursor + 1) mod SAMPLE_BUFFER_SIZE;
-  SoundOutBits(l, r, cycles);
+  chanLs[0] := l;
+  chanRs[0] := r;
+  for I := 1 to 4 do begin
+    chanLs[I] := ls[I];
+    chanRs[I] := rs[I];
+  end;
+  SoundOutBits(chanLs, chanRs, cycles);
 end;
 begin

Commit e759313

Commit `e759313`