@@ -205,6 +205,8 @@ begin |
| 205 |
Writeln('Song has ', songformat.PatternCount, ' patterns ', songformat.NumberOfTracks, ' tracks'); |
205 |
Writeln('Song has ', songformat.PatternCount, ' patterns ', songformat.NumberOfTracks, ' tracks'); |
| 206 |
Stream.ReadByte; // ????????????????? |
206 |
Stream.ReadByte; // ????????????????? |
| 207 |
|
207 |
|
|
|
208 |
Result.TicksPerRow := SongFormat.RowsPerBeat - 1; |
|
|
209 |
|
| 208 |
for I := Low(Result.OrderMatrix) to High(Result.OrderMatrix) do |
210 |
for I := Low(Result.OrderMatrix) to High(Result.OrderMatrix) do |
| 209 |
SetLength(Result.OrderMatrix[I], SongFormat.PatternCount+2); // off-by-one error on my part |
211 |
SetLength(Result.OrderMatrix[I], SongFormat.PatternCount+2); // off-by-one error on my part |
| 210 |
|
212 |
|