aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2016-01-04 00:19:50 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2016-01-04 00:19:50 +0000
commite2a9ad22a5dc8a14b7fa536e28628f85481e8caf (patch)
treea3db9eaf0ebf8758e69e85d8a185b9650e4b7384
parent9bbedc30d451861ccbd2348c00d7d8ae5a828c60 (diff)
downloadusdx-e2a9ad22a5dc8a14b7fa536e28628f85481e8caf.tar.gz
usdx-e2a9ad22a5dc8a14b7fa536e28628f85481e8caf.tar.xz
usdx-e2a9ad22a5dc8a14b7fa536e28628f85481e8caf.zip
fix bug introduced in 3172
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3190 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--src/base/USong.pas17
1 files changed, 14 insertions, 3 deletions
diff --git a/src/base/USong.pas b/src/base/USong.pas
index 35ce9dbd..02afcd2a 100644
--- a/src/base/USong.pas
+++ b/src/base/USong.pas
@@ -544,6 +544,8 @@ begin
end;
SetLength(Lines, 0);
+ SetLength(Lines, 2);
+{ for later Duet addition
if (CurLine[1] = 'P') then
begin
CurrentSong.isDuet := true;
@@ -552,6 +554,7 @@ begin
end
else
SetLength(Lines, 1);
+}
for Count := 0 to High(Lines) do
begin
@@ -640,6 +643,10 @@ begin
end;
// add notes
+ if not Both then
+ // P1
+ ParseNote(CP, Param0, (Param1+Rel[CP]) * Mult, Param2 * Mult, Param3, ParamLyric)
+{ for later replacement
if (CP <> 2) then
begin
// P1
@@ -650,8 +657,7 @@ begin
FileNamePath.ToNative+' Line:'+IntToStr(FileLineNo));
Break;
end;
- ParseNote(CP, Param0, (Param1+Rel[CP]) * Mult, Param2 * Mult, Param3, ParamLyric);
- end
+}
else
begin
// P1 + P2
@@ -669,8 +675,12 @@ begin
Param2 := ParseLyricIntParam(CurLine, LinePos); // read one more data for relative system
// new sentence
+ if not Both then
+ // P1
+{ for later addition
if not CurrentSong.isDuet then
// one singer
+}
NewSentence(CP, (Param1 + Rel[CP]) * Mult, Param2)
else
begin
@@ -1739,7 +1749,7 @@ begin
CurrentSong := self;
{ add with Duet
Result := Result and LoadSong(DuetChange);
-}
+
if Result then
begin
//Medley and Duet - is it possible? Perhaps later...
@@ -1748,6 +1758,7 @@ begin
else
Self.Medley.Source := msNone;
end;
+}
finally
SongFile.Free;