added "V" key to sing screen to start Visualization...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@681 b956fd51-792f-4845-bead-9b4dfca2ff2c

2 files changed, 23 insertions, 26 deletions

diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index c2e42224..62351e2d 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -96,22 +96,21 @@ type
       function find_stream_ids( const aFormatCtx : PAVFormatContext; Out aFirstVideoStream, aFirstAudioStream : integer ): boolean;
     public
       constructor create();
-      function  GetName: String;
+      function    GetName: String;
+      procedure   init();
 
-      procedure init();
+      function    Open( aFileName : string): boolean; // true if succeed
+      procedure   Close;
 
-      function  Open( aFileName : string): boolean; // true if succeed
-      procedure Close;
+      procedure   Play;
+      procedure   Pause;
+      procedure   Stop;
 
-      procedure Play;
-      procedure Pause;
-      procedure Stop;
+      procedure   MoveTo(Time: real);
+      function    getPosition: real;
 
-      procedure MoveTo(Time: real);
-      function  getPosition: real;
-
-      procedure GetFrame(Time: Extended); // WANT TO RENAME THESE TO BE MORE GENERIC
-      procedure DrawGL(Screen: integer);  // WANT TO RENAME THESE TO BE MORE GENERIC
+      procedure   GetFrame(Time: Extended);
+      procedure   DrawGL(Screen: integer);  
 
     end;
 
diff --git a/Game/Code/Classes/UVisualizer.pas b/Game/Code/Classes/UVisualizer.pas
index 0f2334ba..6fb5b7a7 100644
--- a/Game/Code/Classes/UVisualizer.pas
+++ b/Game/Code/Classes/UVisualizer.pas
@@ -63,22 +63,21 @@ type
     procedure VisualizerTogglePause;

   public
     constructor create();
-    function  GetName: String;
+    procedure   init();
+    function    GetName: String;    
 
-    procedure init();
+    function    Open( aFileName : string): boolean; // true if succeed
+    procedure   Close;
 
-    function  Open( aFileName : string): boolean; // true if succeed
-    procedure Close;
+    procedure   Play;
+    procedure   Pause;
+    procedure   Stop;
 
-    procedure Play;
-    procedure Pause;
-    procedure Stop;
+    procedure   MoveTo(Time: real);
+    function    getPosition: real;
 
-    procedure MoveTo(Time: real);
-    function  getPosition: real;
-
-    procedure GetFrame(Time: Extended); // WANT TO RENAME THESE TO BE MORE GENERIC
-    procedure DrawGL(Screen: integer);  // WANT TO RENAME THESE TO BE MORE GENERIC
+    procedure   GetFrame(Time: Extended);
+    procedure   DrawGL(Screen: integer);  
   end;  
 

 

@@ -188,8 +187,7 @@ end;
 

 procedure TVideoPlayback_ProjectM.VisualizerTogglePause;

 begin

-  if VisualizerPaused then VisualizerPaused:=False

-  else VisualizerPaused:=True;

+  VisualizerPaused := not VisualizerPaused;

 end;

 

 procedure TVideoPlayback_ProjectM.GetFrame(Time: Extended);