From 898eb68e995d88f3e64040b7db08ab158159abe1 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 21 Apr 2010 21:38:54 +0000
Subject: - already show first video frame at sing-screen at onShow (no white
 screen) - removed some obsolete vars

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2268 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSing.pas | 62 ++++++++++++++++++++++-----------------------
 1 file changed, 31 insertions(+), 31 deletions(-)

(limited to 'src/screens/UScreenSing.pas')

diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index 5000d096..269ef201 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -60,12 +60,14 @@ type
 
 type
   TScreenSing = class(TMenu)
+  private
+    fShowVisualization: boolean;
+    fCurrentVideo: IVideo;
+    fVideoClip:    IVideo;
+    fLyricsSync: TLyricsSyncSource;
   protected
-    VideoLoaded: boolean;
     eSongLoaded: THookableEvent; //< event is called after lyrics of a song are loaded on OnShow
-  protected
     Paused:     boolean; //pause Mod
-    LyricsSync: TLyricsSyncSource;
     NumEmptySentences: integer;
   public
     // timebar fields
@@ -104,12 +106,8 @@ type
     //the song was sung to the end
     SungToEnd: boolean;
 
-    fShowVisualization: boolean;
-    fCurrentVideo: IVideo;
-    fVideoClip:    IVideo;
-
     // some settings to be set by plugins
-    settings: record
+    Settings: record
       Finish: Boolean; //< if true, screen will finish on next draw
 
       LyricsVisible: Boolean; //< shows or hides lyrics
@@ -240,8 +238,6 @@ end;
 
 // pause mod
 procedure TScreenSing.Pause;
-var
-  VideoFile: IPath;
 begin
   if (not Paused) then  // enable pause
   begin
@@ -254,8 +250,7 @@ begin
     AudioPlayback.Pause;
 
     // pause video
-    VideoFile := CurrentSong.Path.Append(CurrentSong.Video);
-    if (CurrentSong.Video.IsSet) and VideoFile.Exists then
+    if (fCurrentVideo <> nil) then
       fCurrentVideo.Pause;
 
   end
@@ -267,8 +262,7 @@ begin
     AudioPlayback.Play;
 
     // video
-    VideoFile := CurrentSong.Path.Append(CurrentSong.Video);
-    if (CurrentSong.Video.IsSet) and VideoFile.Exists then
+    if (fCurrentVideo <> nil) then
       fCurrentVideo.Pause;
 
     Paused := false;
@@ -330,7 +324,7 @@ begin
       Theme.LyricBar.UpperX, Theme.LyricBar.UpperY, Theme.LyricBar.UpperW, Theme.LyricBar.UpperH,
       Theme.LyricBar.LowerX, Theme.LyricBar.LowerY, Theme.LyricBar.LowerW, Theme.LyricBar.LowerH);
 
-  LyricsSync := TLyricsSyncSource.Create();
+  fLyricsSync := TLyricsSyncSource.Create();
 
   eSongLoaded := THookableEvent.Create('ScreenSing.SongLoaded');
 
@@ -496,7 +490,6 @@ begin
   {*
    * set background to: video
    *}
-  VideoLoaded := false;
   fShowVisualization := false;
   VideoFile := CurrentSong.Path.Append(CurrentSong.Video);
   if (CurrentSong.Video.IsSet) and VideoFile.IsFile then
@@ -508,14 +501,13 @@ begin
       fShowVisualization := false;
       fCurrentVideo.Position := CurrentSong.VideoGAP + CurrentSong.Start;
       fCurrentVideo.Play;
-      VideoLoaded := true;
     end;
   end;
 
   {*
    * set background to: picture
    *}
-  if (CurrentSong.Background.IsSet) and (VideoLoaded = false)
+  if (CurrentSong.Background.IsSet) and (fVideoClip = nil)
     and (TVisualizerOption(Ini.VisualizerOption) = voOff)  then
   begin
     BgFile := CurrentSong.Path.Append(CurrentSong.Background);
@@ -546,7 +538,7 @@ begin
    * set background to: visualization (Videos are still shown)
    *}
   if ((TVisualizerOption(Ini.VisualizerOption) in [voWhenNoVideo]) and
-     (VideoLoaded = false)) then
+     (fVideoClip = nil)) then
   begin
     fShowVisualization := true;
     fCurrentVideo := Visualization.Open(PATH_NONE);
@@ -668,7 +660,7 @@ begin
   AudioPlayback.SetVolume(1.0);
   AudioPlayback.Position := CurrentSong.Start;
   // synchronize music to the lyrics
-  AudioPlayback.SetSyncSource(LyricsSync);
+  AudioPlayback.SetSyncSource(fLyricsSync);
 
   // start lyrics
   LyricsState.Resume();
@@ -718,6 +710,7 @@ var
   Sec:   integer;
   T:     integer;
   CurLyricsTime: real;
+  VideoFrameTime: Extended;
   Line: TLyricLine;
   LastWord: TLyricWord;
 begin
@@ -815,17 +808,27 @@ begin
   end;
 
   // update and draw movie
-  if (ShowFinish and (VideoLoaded or fShowVisualization)) then
+  if Assigned(fCurrentVideo) then
   begin
-    if assigned(fCurrentVideo) then
+    // Just call this once
+    // when Screens = 2
+    if (ScreenAct = 1) then
     begin
-      // Just call this once
-      // when Screens = 2
-      if (ScreenAct = 1) then
-        fCurrentVideo.GetFrame(CurrentSong.VideoGAP + LyricsState.GetCurrentTime());
-
-      fCurrentVideo.DrawGL(ScreenAct);
+      if (ShowFinish) then
+      begin
+        // everything is setup, determine the current position 
+        VideoFrameTime := CurrentSong.VideoGAP + LyricsState.GetCurrentTime();
+      end
+      else
+      begin
+        // Important: do not yet start the triggered timer by a call to
+        // LyricsState.GetCurrentTime()
+        VideoFrameTime := CurrentSong.VideoGAP;
+      end;
+      fCurrentVideo.GetFrame(VideoFrameTime);
     end;
+
+    fCurrentVideo.DrawGL(ScreenAct);
   end;
 
   // draw static menu (FG)
@@ -904,9 +907,6 @@ begin
   AudioPlayback.Stop;
   AudioPlayback.SetSyncSource(nil);
 
-  // to prevent drawing closed video
-  VideoLoaded := false;
-
   // close video files
   fVideoClip := nil;
   fCurrentVideo := nil;
-- 
cgit v1.2.3