SOP: Workaround for NULL basic tempo

stascorp · Feb 27, 2017 · 36b7fbc · 36b7fbc
1 parent 884a2e4
commit 36b7fbc
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Main.pas b/Main.pas
@@ -2441,7 +2441,10 @@ function TMainForm.ReadSOP(var F: TMemoryStream): Boolean;
   SongData_PutInt('SOP_BeatPerMeasure', B);
   F.ReadBuffer(B, 1);
   SongData_PutInt('SOP_BasicTempo', B);
-  SongData_PutDWord('InitTempo', 60000000 div B);
+  if B = 0 then
+    SongData_PutDWord('InitTempo', 60000000 div 120)
+  else
+    SongData_PutDWord('InitTempo', 60000000 div B);
   F.ReadBuffer(fname, SizeOf(fname));
   fname[Length(fname) - 1] := #0;
   SongData_PutStr('SOP_Comment', PAnsiChar(@fname[0]));