From 52eeec05d021df5334934f50dfafff981cbca33b Mon Sep 17 00:00:00 2001
From: eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 29 Oct 2007 21:40:14 +0000
Subject: Just adding first  MacOSX version. This does not compile yet.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@540 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/MacOSX/Wrapper/MidiFile.pas | 102 ++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create 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
new file mode 100755
index 00000000..9ae684f4
--- /dev/null
+++ b/Game/Code/MacOSX/Wrapper/MidiFile.pas
@@ -0,0 +1,102 @@
+unit MidiFile;
+
+{$INCLUDE ../Platform.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