From 425ff834dbc3933475ee8f783eea6167e92ec174 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 7 Dec 2007 04:32:38 +0000
Subject: little bit of tidy up.. added command line switch, to see what media
 interfaces are being used.

moved RandomPCM Data generation to Visualizer class.
added Visualization preset change, on new line
( may be a little to much...  maybe we should do ever 4 or 16 bars or something ?)


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@697 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSing.pas | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

(limited to 'Game/Code/Screens')

diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index 75246d09..31e9f511 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -165,14 +165,14 @@ begin
 
           if fShowVisualization then
             fCurrentVideoPlaybackEngine.play;
-
+
         end;
 
       SDLK_TAB: //Change Visualization Preset
         begin
-          if fShowVisualization then
-            fCurrentVideoPlaybackEngine.MoveTo( now ); // move to a random position
-        end;
+          if fShowVisualization then
+            fCurrentVideoPlaybackEngine.MoveTo( now ); // move to a random position
+        end;
         
       SDLK_RETURN:
         begin
@@ -1144,13 +1144,18 @@ begin
   if ShowFinish and ( AktSong.VideoLoaded or fShowVisualization ) then
 //  if ShowFinish then
   begin
-    try
+//    try
 //      UpdateSmpeg; // this only draws
       // todo: find a way to determine, when a new frame is needed
       // toto: same for the need to skip frames
 
-      fCurrentVideoPlaybackEngine.GetFrame(Czas.Teraz);
-      fCurrentVideoPlaybackEngine.DrawGL(ScreenAct);
+      if assigned( fCurrentVideoPlaybackEngine ) then
+      begin
+        fCurrentVideoPlaybackEngine.GetFrame(Czas.Teraz);
+        fCurrentVideoPlaybackEngine.DrawGL(ScreenAct);
+      end;
+
+(*
     except
       on E : Exception do
       begin
@@ -1170,6 +1175,8 @@ begin
         end;
       end;
     end;
+*)
+
   end;
 
   // draw static menu (FG)
@@ -1332,6 +1339,12 @@ begin
   if Ini.EffectSing=1 then
     GoldenRec.SpawnPerfectLineTwinkle;
   //PerfectLineTwinkle Mod end
+
+
+  // if we are shoing a visualization... change to a new preset after each sentence..
+  // Maybe we should make this less often or something... just a
+  if fShowVisualization then
+    fCurrentVideoPlaybackEngine.MoveTo( now ); // move to a random position
 end;
 
 //Called on Sentence Change S= New Current Sentence
-- 
cgit v1.2.3