From 6ca1db26350a589b5bcb3e2eac35a7965d5ab448 Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 8 Nov 2007 18:51:40 +0000
Subject: Mac OS X: Added PseudoThread for debugging, because debugging of
 threaded code causes problems with Xcode and FreePascal.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@594 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/MacOSX/Wrapper/MidiFile.pas | 102 ----------------------------------
 1 file changed, 102 deletions(-)
 delete mode 100755 Game/Code/MacOSX/Wrapper/MidiFile.pas

(limited to 'Game/Code/MacOSX/Wrapper/MidiFile.pas')

diff --git a/Game/Code/MacOSX/Wrapper/MidiFile.pas b/Game/Code/MacOSX/Wrapper/MidiFile.pas
deleted file mode 100755
index c91711cc..00000000
--- a/Game/Code/MacOSX/Wrapper/MidiFile.pas
+++ /dev/null
@@ -1,102 +0,0 @@
-unit MidiFile;
-
-{$I switches.inc}
-
-interface
-
-type
-
-  TMidiEvent = record
-    event: byte;
-    data1: byte;
-    data2: byte;
-    str: string;
-    dticks: integer;
-    time: integer;
-    mtime: integer;
-    len: integer;
-  end;
-  PMidiEvent = ^TMidiEvent;
-
-  TOnMidiEvent = procedure(event: PMidiEvent) of object;
-
-
-  TMidiTrack = class
-  private
-  public
-    OnMidiEvent: TOnMidiEvent;
-    function getEventCount: integer;
-    function getEvent(index: integer): PMidiEvent;
-  end;
-
-  TMidiFile = class
-  private
-    FOnMidiEvent : TOnMidiEvent;
-  public
-    TicksPerQuarter,
-    NumberOfTracks,
-    BPM : Integer;
-    Filename : String;
-    Constructor Create(AParent : TObject);
-    procedure StartPlaying;
-    procedure StopPlaying;
-    procedure ReadFile;
-    function GetTrack(index: integer): TMidiTrack;
-    function getCurrentTime: integer;
-    function getTrackLength: integer;
-    property OnMidiEvent: TOnMidiEvent read FOnMidiEvent write FOnMidiEvent;
-  end;
-
-
-implementation
-
-{ TMidiFile }
-
-constructor TMidiFile.Create(AParent: TObject);
-begin
-
-end;
-
-function TMidiFile.getCurrentTime: integer;
-begin
-
-end;
-
-function TMidiFile.GetTrack(index: integer): TMidiTrack;
-begin
-    Result := TMidiTrack.Create;
-end;
-
-function TMidiFile.getTrackLength: integer;
-begin
-
-end;
-
-procedure TMidiFile.ReadFile;
-begin
-
-end;
-
-procedure TMidiFile.StartPlaying;
-begin
-
-end;
-
-procedure TMidiFile.StopPlaying;
-begin
-
-end;
-
-{ TMidiTrack }
-
-function TMidiTrack.getEvent(index: integer): PMidiEvent;
-begin
-
-end;
-
-function TMidiTrack.getEventCount: integer;
-begin
-
-end;
-
-end.
-- 
cgit v1.2.3