diff options
Diffstat (limited to '')
-rw-r--r-- | src/base/UNote.pas | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/base/UNote.pas b/src/base/UNote.pas index c82cc2e3..dc2c6922 100644 --- a/src/base/UNote.pas +++ b/src/base/UNote.pas @@ -44,6 +44,7 @@ uses ULyrics, URecord, UScreenSing, + UScreenJukebox, USong, UTime; @@ -135,6 +136,8 @@ procedure NewNote(Screen: TScreenSing); // detect note function GetMidBeat(Time: real): real; function GetTimeFromBeat(Beat: integer; SelfSong: TSong = nil): real; +procedure SingJukebox(Screen: TScreenJukebox); + implementation uses @@ -325,6 +328,33 @@ begin NewBeatDetect(Screen); end; +procedure SingJukebox(Screen: TScreenJukebox); +var + Count: integer; + CountGr: integer; + CP: integer; +begin + LyricsState.UpdateBeats(); + + // sentences routines + for CountGr := 0 to 0 do //High(Lines) + begin; + CP := CountGr; + // old parts + LyricsState.OldLine := Lines[CP].Current; + + // choose current parts + for Count := 0 to Lines[CP].High do + begin + if LyricsState.CurrentBeat >= Lines[CP].Line[Count].Start then + Lines[CP].Current := Count; + end; + end; // for CountGr + + // on sentence change... + Screen.onSentenceChange(Lines[0].Current); +end; + procedure NewSentence(Screen: TScreenSing); var i: integer; |