aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2016-01-01 21:37:09 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2016-01-01 21:37:09 +0000
commit51d6cfccb13880e19e7685f82606f9853e7f9c7a (patch)
tree8a92203c2f528714d0b7585f346ffb51e5507e7d
parentf9ba3b70263b06b3dd430e2430db4b5faea8b894 (diff)
downloadusdx-51d6cfccb13880e19e7685f82606f9853e7f9c7a.tar.gz
usdx-51d6cfccb13880e19e7685f82606f9853e7f9c7a.tar.xz
usdx-51d6cfccb13880e19e7685f82606f9853e7f9c7a.zip
add MedleyStartBeat MedleyEndBeat
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3158 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--src/base/UFiles.pas6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/base/UFiles.pas b/src/base/UFiles.pas
index 1a7ca8f8..c3079270 100644
--- a/src/base/UFiles.pas
+++ b/src/base/UFiles.pas
@@ -155,6 +155,12 @@ begin
if Song.Finish <> 0 then SongFile.WriteLine('#END:' + IntToStr(Song.Finish));
if Relative then SongFile.WriteLine('#RELATIVE:yes');
+ if (Song.Medley.Source=msTag) and not Relative and (Song.Medley.EndBeat - Song.Medley.StartBeat > 0) then
+ begin
+ SongFile.WriteLine('#MedleyStartBeat:' + IntToStr(Song.Medley.StartBeat));
+ SongFile.WriteLine('#MedleyEndBeat:' + IntToStr(Song.Medley.EndBeat));
+ end;
+
SongFile.WriteLine('#BPM:' + FloatToStr(Song.BPM[0].BPM / 4));
SongFile.WriteLine('#GAP:' + FloatToStr(Song.GAP));