aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-12-06 10:46:53 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-12-06 10:46:53 +0000
commit553ee1ad981964a3689e6510d5813dbff0f2119c (patch)
tree9872d173c48d70963218f79149d215dba4f5b7f3 /Game/Code/Classes
parent3363e2079c5fee09bc65bdad9342571b7fc23dc0 (diff)
downloadusdx-553ee1ad981964a3689e6510d5813dbff0f2119c.tar.gz
usdx-553ee1ad981964a3689e6510d5813dbff0f2119c.tar.xz
usdx-553ee1ad981964a3689e6510d5813dbff0f2119c.zip
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
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UVideo.pas23
-rw-r--r--Game/Code/Classes/UVisualizer.pas26
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);