aboutsummaryrefslogtreecommitdiffstats
path: root/src/base/UFiles.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/base/UFiles.pas')
-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));