From 51d6cfccb13880e19e7685f82606f9853e7f9c7a Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Fri, 1 Jan 2016 21:37:09 +0000 Subject: add MedleyStartBeat MedleyEndBeat git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3158 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/UFiles.pas | 6 ++++++ 1 file changed, 6 insertions(+) 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)); -- cgit v1.2.3