Commit 93d95ea

Nick Faro committed on
explain mystery byte, add set envelope
commit 93d95ea67bf54ab287be6657e5d9ef08a02cab2c parent b40338d
1 changed files +5−2
Modifiedtbmimport.pas +5−2
@@ -170,7 +170,7 @@ begin
170 end; 170 end;
171 etSetEnvelope: begin 171 etSetEnvelope: begin
172 OutCode := $C; 172 OutCode := $C;
173 OutParams.Param2 := Params; 173 OutParams.Value := Params;
174 end; 174 end;
175 etSetTimbre: begin 175 etSetTimbre: begin
176 OutCode := $9; 176 OutCode := $9;
@@ -369,7 +369,10 @@ begin
369 Stream.ReadBuffer(BlockHeader, SizeOf(TTBMBlockHeader)); 369 Stream.ReadBuffer(BlockHeader, SizeOf(TTBMBlockHeader));
370 Result.Name := Stream.ReadLString; 370 Result.Name := Stream.ReadLString;
371 Stream.ReadBuffer(SongFormat, SizeOf(TTBMSongFormat)); 371 Stream.ReadBuffer(SongFormat, SizeOf(TTBMSongFormat));
372 Stream.ReadByte; // ????????????????? 372
373 // Number of visible effect columns-- undocumented currently but I asked
374 // stoneface about it.
375 Stream.ReadByte;
373 376
374 Result.TicksPerRow := SongFormat.RowsPerBeat; 377 Result.TicksPerRow := SongFormat.RowsPerBeat;
375 378