major tidy up of Umusic ...

  removes mplayer unit and dependency.

tidy up of other units in move to compile in lazarus.

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

5 files changed, 78 insertions, 247 deletions

diff --git a/Game/Code/Classes/UCovers.pas b/Game/Code/Classes/UCovers.pas
index 0740c143..4040b4d8 100644
--- a/Game/Code/Classes/UCovers.pas
+++ b/Game/Code/Classes/UCovers.pas
@@ -1,7 +1,17 @@
 unit UCovers;

 

 interface

-uses OpenGL12, Windows, Math, Classes, SysUtils, Graphics, UThemes, UTexture;

+

+uses OpenGL12,

+     Windows,

+     Math,

+     Classes,

+     SysUtils,

+     {$IFNDEF FPC}

+     Graphics,

+     {$ENDIF}

+     UThemes,

+     UTexture;

 

 type

   TCover = record

diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas
index c3b440bc..64762265 100644
--- a/Game/Code/Classes/ULyrics.pas
+++ b/Game/Code/Classes/ULyrics.pas
@@ -1,7 +1,14 @@
 unit ULyrics;

 

 interface

-uses SysUtils, OpenGL12, UMusic;

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+uses SysUtils,

+     OpenGL12,

+     UMusic;

 

 type

   TWord = record

@@ -57,6 +64,15 @@ type
       Italic:   boolean;

       Text:     string;   // LCD

 

+      procedure AddWord(Text: string);          // Moved from published, lazarus didnt like it

+      procedure AddCzesc(NrCzesci: integer);

+

+      function SelectedLetter: integer;  // LCD

+      function SelectedLength: integer;  // LCD

+

+      procedure Clear;

+      procedure Draw;

+

     published

       property X: real write SetX;

       property Y: real write SetY;

@@ -68,15 +84,6 @@ type
       property Scale: real write SetScale;

       property Style: integer write SetStyle;

       property FontStyle: integer write SetFStyle;

-      procedure AddWord(Text: string);

-      procedure AddCzesc(NrCzesci: integer);

-

-      function SelectedLetter: integer;  // LCD

-      function SelectedLength: integer;  // LCD

-

-      procedure Clear;

-      procedure Draw;

-

   end;

 

 var

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index 979ba4e5..f9c6457d 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -2,7 +2,16 @@ unit UMusic;
 

 interface

 

-uses Classes, MPlayer, Windows, Messages, SysUtils, Forms, ULog, USongs, Bass;//, DXSounds;

+uses Classes,

+     Windows,

+     Messages,

+     SysUtils,

+     {$IFNDEF FPC}

+     Forms,

+     {$ENDIF}

+     ULog,

+     USongs,

+     Bass;

 

 procedure InitializeSound;

 

@@ -22,17 +31,6 @@ type
 

   TMusic = class

     private

-//      MediaPlayer:        TMediaPlayer;       // It will be replaced by another component;

-{      MediaPlayerStart:   TMediaPlayer;       // or maybe not if done this way ;)

-      MediaPlayerBack:    TMediaPlayer;

-      MediaPlayerSwoosh:  TMediaPlayer;

-      MediaPlayerChange:  TMediaPlayer;

-      MediaPlayerOption:  TMediaPlayer;

-      MediaPlayerClick:   TMediaPlayer;

-      MediaPlayerDrum:    TMediaPlayer;

-      MediaPlayerHihat:   TMediaPlayer;

-      MediaPlayerClap:    TMediaPlayer;

-      MediaPlayerShuffle: TMediaPlayer;}

       BassStart:          hStream;            // Wait, I've replaced this with BASS

       BassBack:           hStream;            // It has almost all features we need

       BassSwoosh:         hStream;

@@ -50,12 +48,8 @@ type
 

       Loaded:   boolean;

       Loop:     boolean;

-//    DXSound:  TDXSound;

-//    Player:   TcmxMp3;

     public

       Bass:               hStream;

-      

-//      SoundCard:          array of TSoundCard;

       procedure InitializePlayback;

       procedure InitializeRecord;

       procedure SetVolume(Volume: integer);

@@ -86,7 +80,6 @@ type
       procedure CaptureStop;

       procedure CaptureCard(RecordI, PlayerLeft, PlayerRight: byte);

       procedure StopCard(Card: byte);

-      function LoadPlayerFromFile(var MediaPlayer: TMediaPlayer; Name: string): boolean;

       function LoadSoundFromFile(var hStream: hStream; Name: string): boolean;

 

       //Equalizer

@@ -105,11 +98,8 @@ type
   TMuzyka = record

     Path:   string;

     Start:  integer;        // start of song in ms

-//    BPM:    array of TBPM;

-//    Gap:    real;

     IlNut:  integer;

     DlugoscNut:   integer;

-//    WartoscNut:   integer;

   end;

 

   TCzesci = record

@@ -138,27 +128,15 @@ type
         Tekst:      string;

         FreeStyle:  boolean;

         Wartosc:    integer;    // zwykla nuta x1, zlota nuta x2

-

-

-

-

       end;

     end;

   end;

 

   TCzas = record              // wszystko, co dotyczy aktualnej klatki

-//    BajtowTotal:  integer;

-//    BajtowTeraz:  integer;

-//    BajtowNaSek:  integer;

     OldBeat:      integer;    // poprzednio wykryty beat w utworze

     AktBeat:      integer;    // aktualny beat w utworze

     MidBeat:      real;       // dokladny AktBeat

 

-    // should not be used

-//    OldHalf:      integer;    // poprzednio wykryta polowka

-//    AktHalf:      integer;    // aktualna polowka w utworze

-//    MidHalf:      real;       // dokladny AktHalf

-

     // now we use this for super synchronization!

     // only used when analyzing voice

     OldBeatD:     integer;    // poprzednio wykryty beat w utworze

@@ -178,11 +156,9 @@ type
 

     Teraz:        real;       // aktualny czas w utworze

     Razem:        real;       // caly czas utworu

-//    TerazSek:     integer;

   end;

 

 var

-  Form:     TForm;

   Music:    TMusic;

 

   // muzyka

@@ -196,6 +172,10 @@ var
 

   fHWND:        Thandle;

 

+type

+  TMPModes = (mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking,

+    mpPaused, mpOpen);

+

 const

   ModeStr:  array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

 

@@ -230,25 +210,8 @@ begin
 //  BASS_SetConfig(BASS_CONFIG_UPDATEPERIOD, 10);

 //  BASS_SetConfig(BASS_CONFIG_BUFFER, 100);

 

-{  MediaPlayer := TMediaPlayer.Create( nil );

-  MediaPlayer.ParentWindow := fHWND;

-  MediaPlayer.Wait := true;}

-

   Log.LogStatus('Loading Sounds', 'Music Initialize');

 

-{  LoadPlayerFromFile(MediaPlayerStart,  SoundPath + 'Common Start.mp3');

-  LoadPlayerFromFile(MediaPlayerBack,   SoundPath + 'Common Back.mp3');

-  LoadPlayerFromFile(MediaPlayerSwoosh, SoundPath + 'menu swoosh.mp3');

-  LoadPlayerFromFile(MediaPlayerChange, SoundPath + 'select music change music.mp3');

-  LoadPlayerFromFile(MediaPlayerOption, SoundPath + 'option change col.mp3');

-  LoadPlayerFromFile(MediaPlayerClick,  SoundPath + 'rimshot022b.mp3');

-

-  LoadPlayerFromFile(MediaPlayerDrum,   SoundPath + 'bassdrumhard076b.mp3');

-  LoadPlayerFromFile(MediaPlayerHihat,  SoundPath + 'hihatclosed068b.mp3');

-  LoadPlayerFromFile(MediaPlayerClap,   SoundPath + 'claps050b.mp3');

-

-  LoadPlayerFromFile(MediaPlayerShuffle, SoundPath + 'Shuffle.mp3');}

-

   Log.BenchmarkStart(4);

   LoadSoundFromFile(BassStart,  SoundPath + 'Common Start.mp3');

   LoadSoundFromFile(BassBack,   SoundPath + 'Common Back.mp3');

@@ -370,9 +333,6 @@ function TMusic.Open(Name: string): boolean;
 begin

   Loaded := false;

   if FileExists(Name) then begin

-{    MediaPlayer.FileName := Name;

-    MediaPlayer.Open;}

-

     Bass := Bass_StreamCreateFile(false, pchar(Name), 0, 0, 0);

     Loaded := true;

     //Set Max Volume

@@ -380,15 +340,11 @@ begin
   end;

 

   Result := Loaded;

-

-//  Player := TcmxMp3.Create(Name);

 end;

 

 procedure TMusic.Rewind;

 begin

   if Loaded then begin

-//    MediaPlayer.Position := 0;

-    

   end;

 end;

 

@@ -396,18 +352,17 @@ procedure TMusic.MoveTo(Time: real);
 var

   bytes:    integer;

 begin

-//  if Loaded then begin

-//    MediaPlayer.StartPos := Round(Time);

     bytes := BASS_ChannelSeconds2Bytes(Bass, Time);

     BASS_ChannelSetPosition(Bass, bytes);

-//  end;

 end;

 

 procedure TMusic.Play;

 begin

-  if Loaded then begin

-//    MediaPlayer.Play;

-    if Loop then BASS_ChannelPlay(Bass, True); // start from beginning... actually bass itself does not loop, nor does this TMusic Class

+  if Loaded then

+  begin

+    if Loop then

+      BASS_ChannelPlay(Bass, True); // start from beginning... actually bass itself does not loop, nor does this TMusic Class

+      

     BASS_ChannelPlay(Bass, False); // for setting position before playing

   end;

 end;

@@ -422,17 +377,11 @@ end;
 procedure TMusic.Stop;

 begin

   Bass_ChannelStop(Bass);

-//  Bass_StreamFree(Bass);

-//  if ModeStr[MediaPlayer.Mode] = 'Playing' then begin

-//    MediaPlayer.Stop;

-//  end;

 end;

 

 procedure TMusic.Close;

 begin

   Bass_StreamFree(Bass);

-//  Player.Free;

-//  MediaPlayer.Close;

 end;

 

 function TMusic.Length: real;

@@ -441,129 +390,76 @@ var
 begin

   Result := 60;

 

-  bytes := BASS_ChannelGetLength(Bass);

+  bytes  := BASS_ChannelGetLength(Bass);

   Result := BASS_ChannelBytes2Seconds(Bass, bytes);

-

-{  if Assigned(MediaPlayer) then begin

-    if Loaded then Result := MediaPlayer.Length / 1000;

-  end;}

-//  if Assigned(Player) then

-//    Result := Player.LengthInSeconds;

 end;

 

 function TMusic.Position: real;

 var

   bytes:    integer;

 begin

-  Result := 0;//MediaPlayer.Position / 1000;

-  bytes := BASS_ChannelGetPosition(BASS);

+  Result := 0;

+  bytes  := BASS_ChannelGetPosition(BASS);

   Result := BASS_ChannelBytes2Seconds(BASS, bytes);

 end;

 

 function TMusic.Finished: boolean;

 begin

   Result := false;

-//  if ModeStr[MediaPlayer.Mode] = 'Stopped' then Result := true;

-  if BASS_ChannelIsActive(BASS) = BASS_ACTIVE_STOPPED then begin

-//    beep;

+

+  if BASS_ChannelIsActive(BASS) = BASS_ACTIVE_STOPPED then

+  begin

     Result := true;

   end;

 end;

 

-{function myeffect( chan : integer; stream : Pointer; len : integer; udata : Pointer ): Pointer; cdecl;

-var

-  dane:   pwordarray;

-  pet:    integer;

-  Prev:     smallint;

-  PrevNew:  smallint;

-begin

-  dane := stream;

-  Prev := 0;

-  for pet := 0 to len div 2 -1 do begin

-    PrevNew := Dane[Pet];

-

-//    Dane[pet] := Round(PrevNew*1/8 + Prev*7/8);

-

-    Prev := Dane[Pet];

-  end;

-end;}

-

 procedure TMusic.PlayStart;

-{var

-  Music:    PMix_Chunk;}

 begin

-{  Mix_OpenAudio(44100, 16, 1, 16*1024);

-  Music := Mix_LoadWAV('D:\Rozne\UltraStar\Old\Boys - Hej Sokoly 30s.wav');

-  Mix_RegisterEffect(0, myeffect, nil, 0);

-  Mix_PlayChannel(0, Music, 0);}

-

-//  MediaPlayerStart.Rewind;

-//  MediaPlayerStart.Play;

   BASS_ChannelPlay(BassStart, True);

 end;

 

 procedure TMusic.PlayBack;

 begin

-//  MediaPlayerBack.Rewind;

-//  MediaPlayerBack.Play;

-//  if not

   BASS_ChannelPlay(BassBack, True);// then

-//    Application.MessageBox ('Error playing stream!', 'Error');

 end;

 

 procedure TMusic.PlaySwoosh;

 begin

-//  MediaPlayerSwoosh.Rewind;

-//  MediaPlayerSwoosh.Play;

   BASS_ChannelPlay(BassSwoosh, True);

 end;

 

 procedure TMusic.PlayChange;

 begin

-//  MediaPlayerChange.Rewind;

-//  MediaPlayerChange.Play;

   BASS_ChannelPlay(BassChange, True);

 end;

 

 procedure TMusic.PlayOption;

 begin

-//  MediaPlayerOption.Rewind;

-//  MediaPlayerOption.Play;

   BASS_ChannelPlay(BassOption, True);

 end;

 

 procedure TMusic.PlayClick;

 begin

-//  MediaPlayerClick.Rewind;

-//  MediaPlayerClick.Play;

   BASS_ChannelPlay(BassClick, True);

 end;

 

 procedure TMusic.PlayDrum;

 begin

-//  MediaPlayerDrum.Rewind;

-//  MediaPlayerDrum.Play;

   BASS_ChannelPlay(BassDrum, True);

 end;

 

 procedure TMusic.PlayHihat;

 begin

-//  MediaPlayerHihat.Rewind;

-//  MediaPlayerHihat.Play;

   BASS_ChannelPlay(BassHihat, True);

 end;

 

 procedure TMusic.PlayClap;

 begin

-//  MediaPlayerClap.Rewind;

-//  MediaPlayerClap.Play;

   BASS_ChannelPlay(BassClap, True);

 end;

 

 procedure TMusic.PlayShuffle;

 begin

-//  MediaPlayerShuffle.Rewind;

-//  MediaPlayerShuffle.Play;

   BASS_ChannelPlay(BassShuffle, True);

 end;

 

@@ -582,35 +478,6 @@ begin
   for S := 0 to High(Sound) do

     Sound[S].BufferLong[0].Clear;

 

-{    case PlayersPlay of

-      1:  begin

-            CaptureCard(0, 0, 1, 0);

-          end;

-      2:  begin

-            if Ini.TwoPlayerMode = 0 then begin

-              CaptureCard(0, 0, 1, 2);

-            end else begin

-              CaptureCard(0, 0, 1, 0);

-              CaptureCard(1, 1, 2, 0);

-            end;

-          end;

-      3:  begin

-            CaptureCard(0, 0, 1, 2);

-            CaptureCard(1, 1, 3, 0);

-          end;

-    end; // case}

-

-//  CaptureCard(0, 0, 0, 0);

-//  end;

-

-  {for SC := 0 to High(SoundCard) do begin

-    P1 := Ini.SoundCard[SC, 1];

-    P2 := Ini.SoundCard[SC, 2];

-    if P1 > PlayersPlay then P1 := 0;

-    if P2 > PlayersPlay then P2 := 0;

-    CaptureCard(SC, P1, P2);

-  end;       }

-  // 0.5.2: new

   for SC := 0 to High(Ini.CardList) do begin

     P1 := Ini.CardList[SC].ChannelL;

     P2 := Ini.CardList[SC].ChannelR;

@@ -627,31 +494,7 @@ var
   P1:       integer;

   P2:       integer;

 begin

-{  if RecordSystem = 1 then begin

-    case PlayersPlay of

-      1:  begin

-            StopCard(0);

-          end;

-      2:  begin

-            if Ini.TwoPlayerMode = 0 then begin

-              StopCard(0);

-            end else begin

-              StopCard(0);

-              StopCard(1);

-            end;

-          end;

-      3:  begin

-            StopCard(0);

-            StopCard(1);

-          end;

-    end;

-  end;}

-

-  {for SC := 0 to High(SoundCard) do begin

-    StopCard(SC);

-  end; }

 

-  // 0.5.2

   for SC := 0 to High(Ini.CardList) do begin

     P1 := Ini.CardList[SC].ChannelL;

     P2 := Ini.CardList[SC].ChannelR;

@@ -686,26 +529,10 @@ begin
     Log.LogError('Music -> CaptureCard: Error initializing record: ' + ErrorMsg);

 

 

-  end else begin

-

-  //SoundCard[RecordI].BassRecordStream := BASS_RecordStart(44100, 2, MakeLong(0, 20) , @GetMicrophone, PlayerLeft + PlayerRight*256);

-  Recording.SoundCard[RecordI].BassRecordStream := BASS_RecordStart(44100, 2, MakeLong(0, 20) , @GetMicrophone, PlayerLeft + PlayerRight*256);

-

-  {if SoundCard[RecordI].BassRecordStream = 0 then begin

-    Error := BASS_ErrorGetCode;

-

-    ErrorMsg := IntToStr(Error);

-    if Error = BASS_ERROR_INIT then ErrorMsg := 'Not successfully called';

-    if Error = BASS_ERROR_ALREADY then ErrorMsg := 'Recording is already in progress';

-    if Error = BASS_ERROR_NOTAVAIL then ErrorMsg := 'The recording device is not available';

-    if Error = BASS_ERROR_FORMAT then ErrorMsg := 'The specified format is not supported';

-    if Error = BASS_ERROR_MEM then ErrorMsg := 'There is insufficent memory';

-    if Error = BASS_ERROR_UNKNOWN then ErrorMsg := 'Unknown';

-

-    Log.LogError('Error creating record stream [' + IntToStr(RecordI) + ', '

-      + IntToStr(PlayerLeft) + ', '+ IntToStr(PlayerRight) + ']: '

-      + ErrorMsg);

-  end;         }

+  end

+  else

+  begin

+    Recording.SoundCard[RecordI].BassRecordStream := BASS_RecordStart(44100, 2, MakeLong(0, 20) , @GetMicrophone, PlayerLeft + PlayerRight*256);

   end;

 end;

 

@@ -715,41 +542,12 @@ begin
   BASS_RecordFree;

 end;

 

-function TMusic.LoadPlayerFromFile(var MediaPlayer: TMediaPlayer; Name: string): boolean;

-begin

-  Log.LogStatus('Loading Sound: "' + Name + '"', 'LoadPlayerFromFile');

-  if FileExists(Name) then begin

-    try

-      MediaPlayer := TMediaPlayer.Create( nil );

-    except

-      Log.LogError('Failed to create MediaPlayer', 'LoadPlayerFromFile');

-    end;

-    try

-      MediaPlayer.ParentWindow := fHWND;

-      MediaPlayer.Wait := true;

-      MediaPlayer.FileName := Name;

-      MediaPlayer.DeviceType := dtAutoSelect;

-      MediaPlayer.Display := nil;

-    except

-      Log.LogError('Failed setting MediaPlayer: ' + MediaPlayer.ErrorMessage, 'LoadPlayerFromFile');

-    end;

-    try

-      MediaPlayer.Open;

-    except

-      Log.LogError('Failed to open using MediaPlayer', 'LoadPlayerFromFile');

-    end;

-  end else begin

-    Log.LogError('Sound not found: "' + Name + '"', 'LoadPlayerFromFile');

-    exit;

-  end;

-end;

-

 function TMusic.LoadSoundFromFile(var hStream: hStream; Name: string): boolean;

 var

   L: Integer;

 begin

   if FileExists(Name) then begin

-    Log.LogStatus('Loading Sound: "' + Name + '"', 'LoadPlayerFromFile');

+    Log.LogStatus('Loading Sound: "' + Name + '"', 'LoadSoundFromFile');

     try

       hStream := BASS_StreamCreateFile(False, pchar(Name), 0, 0, 0);

       //Add CustomSound

@@ -758,10 +556,10 @@ begin
       CustomSounds[L].Filename := Name;

       CustomSounds[L].Handle := hStream;

     except

-      Log.LogError('Failed to open using BASS', 'LoadPlayerFromFile');

+      Log.LogError('Failed to open using BASS', 'LoadSoundFromFile');

     end;

   end else begin

-    Log.LogError('Sound not found: "' + Name + '"', 'LoadPlayerFromFile');

+    Log.LogError('Sound not found: "' + Name + '"', 'LoadSoundFromFile');

     exit;

   end;

 end;

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index dc1f9fc2..f79f66d6 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -11,7 +11,19 @@ unit UTexture;
 // Arrow (for arrows, white is white, gray has color, black is transparent);

 

 interface

-uses OpenGL12, Windows, Math, Classes, SysUtils, Graphics, JPEG, UThemes, PNGImage;

+

+uses OpenGL12,

+     Windows,

+     Math,

+     Classes,

+     SysUtils,

+     {$IFNDEF FPC}

+     Graphics,

+     JPEG,

+     PNGImage,

+     {$ENDIF}

+     UThemes;

+

 

 procedure glGenTextures(n: GLsizei; var textures: GLuint); stdcall; external opengl32;

 

@@ -974,4 +986,4 @@ begin
   end;

 end;

 

-end.
\ No newline at end of file
+end.

diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index b883363f..b2e2b01e 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -2,6 +2,10 @@ unit UThemes;
 

 interface

 

+{$IFDEF FPC}

+  {$MODE DELPHI}

+{$ENDIF}

+

 uses

 IniFiles, SysUtils, Classes;