From 553ee1ad981964a3689e6510d5813dbff0f2119c Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 6 Dec 2007 10:46:53 +0000
Subject: 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
---
 Game/Code/Classes/UVideo.pas      | 23 +++++++++++------------
 Game/Code/Classes/UVisualizer.pas | 26 ++++++++++++--------------
 2 files changed, 23 insertions(+), 26 deletions(-)

(limited to 'Game/Code/Classes')

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);
-- 
cgit v1.2.3