aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/MacOSX/Wrapper')
-rw-r--r--[-rwxr-xr-x]Game/Code/MacOSX/Wrapper/Graphics.pas380
-rw-r--r--[-rwxr-xr-x]Game/Code/MacOSX/Wrapper/JPEG.pas68
-rw-r--r--[-rwxr-xr-x]Game/Code/MacOSX/Wrapper/MacResources.pas0
-rw-r--r--[-rwxr-xr-x]Game/Code/MacOSX/Wrapper/OpenGL12.pas0
-rw-r--r--[-rwxr-xr-x]Game/Code/MacOSX/Wrapper/PseudoThread.pas0
-rw-r--r--[-rwxr-xr-x]Game/Code/MacOSX/Wrapper/Windows.pas0
6 files changed, 224 insertions, 224 deletions
diff --git a/Game/Code/MacOSX/Wrapper/Graphics.pas b/Game/Code/MacOSX/Wrapper/Graphics.pas
index 11484e21..39462607 100755..100644
--- a/Game/Code/MacOSX/Wrapper/Graphics.pas
+++ b/Game/Code/MacOSX/Wrapper/Graphics.pas
@@ -1,190 +1,190 @@
-unit Graphics;
-
-{$I switches.inc}
-
-interface
-
-uses
- Classes, SysUtils, Windows, FreeBitmap, FreeImage;
-
-type
- TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);
- TColor = -$7FFFFFFF-1..$7FFFFFFF;
-
- TCanvas = class
- private
- FImage : TFreeBitmap;
- function GetPixel(x, y: Integer): TColor;
- procedure SetPixel(x, y: Integer; const Value: TColor);
- public
- Constructor Create(const bmp : TFreeBitmap);
- property Pixels[x,y : Integer] : TColor read GetPixel write SetPixel;
- end;
-
- TBitmap = class
- private
- FCanvas : TCanvas;
- function GetHeight: Integer;
- function GetWidth: Integer;
- procedure SetHeight(const Value: Integer);
- procedure SetWidth(const Value: Integer);
- function GetPixelFormat: TPixelFormat;
- procedure SetPixelFormat(const Value: TPixelFormat);
- function GetScanLine(Line: Integer): Pointer;
- protected
- FImage : TFreeBitmap;
- public
- Constructor Create;
- Destructor Destroy; override;
- Procedure LoadFromStream(const str : TStream);
- Procedure LoadFromFile(const f : String);
- Procedure SaveToFile(const f : String); virtual;
- Procedure Assign(const src : TBitmap);
- property Width : Integer read GetWidth write SetWidth;
- property Height : Integer read GetHeight write SetHeight;
- property PixelFormat : TPixelFormat read GetPixelFormat write SetPixelFormat;
- property ScanLine[Line : Integer] : Pointer read GetScanLine;
- property Canvas : TCanvas read FCanvas;
- end;
-
-implementation
-
-{ TBitmap }
-
-type
- TRealRGB = packed record
- rgbRed: Byte;
- rgbGreen: Byte;
- rgbBlue: Byte;
- rgbReserved: Byte;
- end;
-
-procedure TBitmap.Assign(const src: TBitmap);
-begin
- FImage.Assign(src.FImage);
- FCanvas.FImage := FImage;
-end;
-
-constructor TBitmap.Create;
-begin
- FImage := TFreeBitmap.Create( FIF_BMP, 4, 4, 24);
- FCanvas := TCanvas.Create(FImage);
-end;
-
-destructor TBitmap.Destroy;
-begin
- FCanvas.Free;
- FImage.Free;
- inherited;
-end;
-
-function TBitmap.GetHeight: Integer;
-begin
- Result := FImage.GetHeight;
-end;
-
-function TBitmap.GetPixelFormat: TPixelFormat;
-begin
- Result := pf24bit;
-
- case FImage.GetBitsPerPixel of
- 1 : Result := pf1bit;
- 4 : Result := pf4bit;
- 8 : Result := pf8bit;
- 15 : Result := pf15bit;
- 16 : Result := pf16bit;
- 24 : Result := pf24bit;
- 32 : Result := pf32bit;
- end;
-end;
-
-function TBitmap.GetScanLine(Line: Integer): Pointer;
-begin
- Result := FImage.GetScanLine(Height-1-Line);
-end;
-
-function TBitmap.GetWidth: Integer;
-begin
- Result := FImage.GetWidth;
-end;
-
-procedure TBitmap.LoadFromFile(const f: String);
-begin
- FreeAndNil(FCanvas);
- FreeAndNil(FImage);
- FImage := TFreeBitmap.Create;
- FImage.Load(f);
- FCanvas := TCanvas.Create(FImage);
-end;
-
-procedure TBitmap.LoadFromStream(const str: TStream);
-begin
- FreeAndNil(FCanvas);
- FreeAndNil(FImage);
- FImage := TFreeBitmap.Create;
- FImage.LoadFromStream(str);
- FCanvas := TCanvas.Create(FImage);
-end;
-
-procedure TBitmap.SaveToFile(const f: String);
-begin
- FImage.Save(f);
-end;
-
-procedure TBitmap.SetHeight(const Value: Integer);
-begin
- if Value <> Height then begin
- FImage.Rescale( Width, Value, FILTER_BILINEAR);
- end;
-end;
-
-procedure TBitmap.SetPixelFormat(const Value: TPixelFormat);
-begin
- if Value <> PixelFormat then begin
- case Value of
- pf4bit : FImage.ConvertTo4Bits;
- pf8bit : FImage.ConvertTo8Bits;
- pf15bit : FImage.ConvertTo16Bits555;
- pf16bit : FImage.ConvertTo16Bits565;
- pf24bit : FImage.ConvertTo24Bits;
- pf32bit : FImage.ConvertTo32Bits;
- end;
- end;
-end;
-
-procedure TBitmap.SetWidth(const Value: Integer);
-begin
- if Value <> Width then begin
- FImage.Rescale( Value, Height, FILTER_BILINEAR);
- end;
-end;
-
-{ TCanvas }
-
-constructor TCanvas.Create(const bmp: TFreeBitmap);
-begin
- FImage := bmp;
-end;
-
-function TCanvas.GetPixel(x, y: Integer): TColor;
-var
- pix : TRGBQuad;
-begin
- FImage.GetPixelColor( x, FImage.GetHeight-1-y, @pix);
- Result := TColor(pix);
-end;
-
-procedure TCanvas.SetPixel(x, y: Integer; const Value: TColor);
-var
- pixRGB : TRealRGB;
- pixBGR : TRGBQuad;
-begin
- Move( Value, pixRGB, SizeOf(pixRGB));
- pixBGR.rgbRed := pixRGB.rgbRed;
- pixBGR.rgbGreen := pixRGB.rgbGreen;
- pixBGR.rgbBlue := pixRGB.rgbBlue;
- pixBGR.rgbReserved := pixRGB.rgbReserved;
- FImage.SetPixelColor( x, FImage.GetHeight-1-y, @pixBGR);
-end;
-
-end.
+unit Graphics;
+
+{$I switches.inc}
+
+interface
+
+uses
+ Classes, SysUtils, Windows, FreeBitmap, FreeImage;
+
+type
+ TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);
+ TColor = -$7FFFFFFF-1..$7FFFFFFF;
+
+ TCanvas = class
+ private
+ FImage : TFreeBitmap;
+ function GetPixel(x, y: Integer): TColor;
+ procedure SetPixel(x, y: Integer; const Value: TColor);
+ public
+ Constructor Create(const bmp : TFreeBitmap);
+ property Pixels[x,y : Integer] : TColor read GetPixel write SetPixel;
+ end;
+
+ TBitmap = class
+ private
+ FCanvas : TCanvas;
+ function GetHeight: Integer;
+ function GetWidth: Integer;
+ procedure SetHeight(const Value: Integer);
+ procedure SetWidth(const Value: Integer);
+ function GetPixelFormat: TPixelFormat;
+ procedure SetPixelFormat(const Value: TPixelFormat);
+ function GetScanLine(Line: Integer): Pointer;
+ protected
+ FImage : TFreeBitmap;
+ public
+ Constructor Create;
+ Destructor Destroy; override;
+ Procedure LoadFromStream(const str : TStream);
+ Procedure LoadFromFile(const f : String);
+ Procedure SaveToFile(const f : String); virtual;
+ Procedure Assign(const src : TBitmap);
+ property Width : Integer read GetWidth write SetWidth;
+ property Height : Integer read GetHeight write SetHeight;
+ property PixelFormat : TPixelFormat read GetPixelFormat write SetPixelFormat;
+ property ScanLine[Line : Integer] : Pointer read GetScanLine;
+ property Canvas : TCanvas read FCanvas;
+ end;
+
+implementation
+
+{ TBitmap }
+
+type
+ TRealRGB = packed record
+ rgbRed: Byte;
+ rgbGreen: Byte;
+ rgbBlue: Byte;
+ rgbReserved: Byte;
+ end;
+
+procedure TBitmap.Assign(const src: TBitmap);
+begin
+ FImage.Assign(src.FImage);
+ FCanvas.FImage := FImage;
+end;
+
+constructor TBitmap.Create;
+begin
+ FImage := TFreeBitmap.Create( FIF_BMP, 4, 4, 24);
+ FCanvas := TCanvas.Create(FImage);
+end;
+
+destructor TBitmap.Destroy;
+begin
+ FCanvas.Free;
+ FImage.Free;
+ inherited;
+end;
+
+function TBitmap.GetHeight: Integer;
+begin
+ Result := FImage.GetHeight;
+end;
+
+function TBitmap.GetPixelFormat: TPixelFormat;
+begin
+ Result := pf24bit;
+
+ case FImage.GetBitsPerPixel of
+ 1 : Result := pf1bit;
+ 4 : Result := pf4bit;
+ 8 : Result := pf8bit;
+ 15 : Result := pf15bit;
+ 16 : Result := pf16bit;
+ 24 : Result := pf24bit;
+ 32 : Result := pf32bit;
+ end;
+end;
+
+function TBitmap.GetScanLine(Line: Integer): Pointer;
+begin
+ Result := FImage.GetScanLine(Height-1-Line);
+end;
+
+function TBitmap.GetWidth: Integer;
+begin
+ Result := FImage.GetWidth;
+end;
+
+procedure TBitmap.LoadFromFile(const f: String);
+begin
+ FreeAndNil(FCanvas);
+ FreeAndNil(FImage);
+ FImage := TFreeBitmap.Create;
+ FImage.Load(f);
+ FCanvas := TCanvas.Create(FImage);
+end;
+
+procedure TBitmap.LoadFromStream(const str: TStream);
+begin
+ FreeAndNil(FCanvas);
+ FreeAndNil(FImage);
+ FImage := TFreeBitmap.Create;
+ FImage.LoadFromStream(str);
+ FCanvas := TCanvas.Create(FImage);
+end;
+
+procedure TBitmap.SaveToFile(const f: String);
+begin
+ FImage.Save(f);
+end;
+
+procedure TBitmap.SetHeight(const Value: Integer);
+begin
+ if Value <> Height then begin
+ FImage.Rescale( Width, Value, FILTER_BILINEAR);
+ end;
+end;
+
+procedure TBitmap.SetPixelFormat(const Value: TPixelFormat);
+begin
+ if Value <> PixelFormat then begin
+ case Value of
+ pf4bit : FImage.ConvertTo4Bits;
+ pf8bit : FImage.ConvertTo8Bits;
+ pf15bit : FImage.ConvertTo16Bits555;
+ pf16bit : FImage.ConvertTo16Bits565;
+ pf24bit : FImage.ConvertTo24Bits;
+ pf32bit : FImage.ConvertTo32Bits;
+ end;
+ end;
+end;
+
+procedure TBitmap.SetWidth(const Value: Integer);
+begin
+ if Value <> Width then begin
+ FImage.Rescale( Value, Height, FILTER_BILINEAR);
+ end;
+end;
+
+{ TCanvas }
+
+constructor TCanvas.Create(const bmp: TFreeBitmap);
+begin
+ FImage := bmp;
+end;
+
+function TCanvas.GetPixel(x, y: Integer): TColor;
+var
+ pix : TRGBQuad;
+begin
+ FImage.GetPixelColor( x, FImage.GetHeight-1-y, @pix);
+ Result := TColor(pix);
+end;
+
+procedure TCanvas.SetPixel(x, y: Integer; const Value: TColor);
+var
+ pixRGB : TRealRGB;
+ pixBGR : TRGBQuad;
+begin
+ Move( Value, pixRGB, SizeOf(pixRGB));
+ pixBGR.rgbRed := pixRGB.rgbRed;
+ pixBGR.rgbGreen := pixRGB.rgbGreen;
+ pixBGR.rgbBlue := pixRGB.rgbBlue;
+ pixBGR.rgbReserved := pixRGB.rgbReserved;
+ FImage.SetPixelColor( x, FImage.GetHeight-1-y, @pixBGR);
+end;
+
+end.
diff --git a/Game/Code/MacOSX/Wrapper/JPEG.pas b/Game/Code/MacOSX/Wrapper/JPEG.pas
index 7419908b..e25c193e 100755..100644
--- a/Game/Code/MacOSX/Wrapper/JPEG.pas
+++ b/Game/Code/MacOSX/Wrapper/JPEG.pas
@@ -1,34 +1,34 @@
-unit JPEG;
-
-{$I switches.inc}
-
-interface
-
-uses Graphics;
-
-type
- TJPEGImage = class(TBitmap)
- private
- FCompressionQuality : Integer;
- public
- Procedure SaveToFile(const f : String); override;
- property CompressionQuality : Integer read FCompressionQuality write FCompressionQuality;
- end;
-
-implementation
-
-uses FreeImage;
-
-{ TJPEGImage }
-
-procedure TJPEGImage.SaveToFile(const f: String);
-begin
- if CompressionQuality = 0 then begin
- CompressionQuality := 95;
- end;
-
- FImage.Save( f, CompressionQuality);
-end;
-
-end.
-
+unit JPEG;
+
+{$I switches.inc}
+
+interface
+
+uses Graphics;
+
+type
+ TJPEGImage = class(TBitmap)
+ private
+ FCompressionQuality : Integer;
+ public
+ Procedure SaveToFile(const f : String); override;
+ property CompressionQuality : Integer read FCompressionQuality write FCompressionQuality;
+ end;
+
+implementation
+
+uses FreeImage;
+
+{ TJPEGImage }
+
+procedure TJPEGImage.SaveToFile(const f: String);
+begin
+ if CompressionQuality = 0 then begin
+ CompressionQuality := 95;
+ end;
+
+ FImage.Save( f, CompressionQuality);
+end;
+
+end.
+
diff --git a/Game/Code/MacOSX/Wrapper/MacResources.pas b/Game/Code/MacOSX/Wrapper/MacResources.pas
index a97fb565..a97fb565 100755..100644
--- a/Game/Code/MacOSX/Wrapper/MacResources.pas
+++ b/Game/Code/MacOSX/Wrapper/MacResources.pas
diff --git a/Game/Code/MacOSX/Wrapper/OpenGL12.pas b/Game/Code/MacOSX/Wrapper/OpenGL12.pas
index 6afa23ab..6afa23ab 100755..100644
--- a/Game/Code/MacOSX/Wrapper/OpenGL12.pas
+++ b/Game/Code/MacOSX/Wrapper/OpenGL12.pas
diff --git a/Game/Code/MacOSX/Wrapper/PseudoThread.pas b/Game/Code/MacOSX/Wrapper/PseudoThread.pas
index d81a5cfe..d81a5cfe 100755..100644
--- a/Game/Code/MacOSX/Wrapper/PseudoThread.pas
+++ b/Game/Code/MacOSX/Wrapper/PseudoThread.pas
diff --git a/Game/Code/MacOSX/Wrapper/Windows.pas b/Game/Code/MacOSX/Wrapper/Windows.pas
index cee75591..cee75591 100755..100644
--- a/Game/Code/MacOSX/Wrapper/Windows.pas
+++ b/Game/Code/MacOSX/Wrapper/Windows.pas