137 lines
3.5 KiB
Plaintext
137 lines
3.5 KiB
Plaintext
(*
|
|
* CDDL HEADER START
|
|
*
|
|
* The contents of this file are subject to the terms of the
|
|
* Common Development and Distribution License, Version 1.0 only
|
|
* (the "License"). You may not use this file except in compliance
|
|
* with the License.
|
|
*
|
|
* You can obtain a copy of the license at
|
|
* http://www.opensource.org/licenses/cddl1.php.
|
|
* See the License for the specific language governing permissions
|
|
* and limitations under the License.
|
|
*
|
|
* When distributing Covered Code, include this CDDL HEADER in each
|
|
* file and include the License file at
|
|
* http://www.opensource.org/licenses/cddl1.php. If applicable,
|
|
* add the following below this CDDL HEADER, with the fields enclosed
|
|
* by brackets "[]" replaced with your own identifying * information:
|
|
* Portions Copyright [yyyy] [name of copyright owner]
|
|
*
|
|
* CDDL HEADER END
|
|
*
|
|
*
|
|
* Portions Copyright 2007 Andreas Schneider
|
|
*)
|
|
unit UTexture;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, Imaging, ImagingTypes, ImagingClasses, UMulBlock, UGenericIndex;
|
|
|
|
type
|
|
TTexture = class(TMulBlock)
|
|
constructor Create(AData: TStream; AIndex: TGenericIndex); overload;
|
|
constructor Create(AExtra: Integer); overload;
|
|
destructor Destroy; override;
|
|
function Clone: TTexture; override;
|
|
function GetSize: Integer; override;
|
|
procedure Write(AData: TStream); override;
|
|
procedure RefreshBuffer;
|
|
protected
|
|
FGraphic: TSingleImage;
|
|
FBuffer: TStream;
|
|
FExtra: Integer;
|
|
public
|
|
property Graphic: TSingleImage read FGraphic;
|
|
property Buffer: TStream read FBuffer;
|
|
property Extra: Integer read FExtra write FExtra;
|
|
end;
|
|
|
|
implementation
|
|
|
|
constructor TTexture.Create(AData: TStream; AIndex: TGenericIndex);
|
|
var
|
|
size: Integer;
|
|
begin
|
|
FExtra := AIndex.Various;
|
|
if FExtra = 0 then
|
|
size := 64
|
|
else
|
|
size := 128;
|
|
FGraphic := TSingleImage.CreateFromParams(size, size, ifX1R5G5B5);
|
|
if assigned(AData) then
|
|
begin
|
|
AData.Position := AIndex.Lookup;
|
|
AData.Read(FGraphic.Bits^, size * size * 2);
|
|
end;
|
|
FGraphic.Format := ifX8R8G8B8;
|
|
end;
|
|
|
|
constructor TTexture.Create(AExtra: Integer);
|
|
var
|
|
size: Integer;
|
|
begin
|
|
FExtra := AExtra;
|
|
if AExtra = 0 then
|
|
size := 64
|
|
else
|
|
size := 128;
|
|
FGraphic := TSingleImage.CreateFromParams(size, size, ifX8R8G8B8);
|
|
FBuffer := TMemoryStream.Create;
|
|
end;
|
|
|
|
destructor TTexture.Destroy;
|
|
begin
|
|
if FGraphic <> nil then FGraphic.Free;
|
|
if FBuffer <> nil then FBuffer.Free;
|
|
inherited;
|
|
end;
|
|
|
|
function TTexture.Clone: TTexture;
|
|
begin
|
|
Result := TTexture.Create(FExtra);
|
|
Result.FGraphic.Assign(Self.Graphic);
|
|
end;
|
|
|
|
procedure TTexture.Write(AData: TStream);
|
|
begin
|
|
FBuffer.Position := 0;
|
|
AData.CopyFrom(FBuffer, FBuffer.Size);
|
|
end;
|
|
|
|
function TTexture.GetSize: Integer;
|
|
begin
|
|
RefreshBuffer;
|
|
Result := FBuffer.Size
|
|
end;
|
|
|
|
procedure TTexture.RefreshBuffer;
|
|
var
|
|
argbGraphic: TSingleImage;
|
|
begin
|
|
argbGraphic := TSingleImage.CreateFromImage(FGraphic);
|
|
argbGraphic.Format := ifX1R5G5B5;
|
|
FBuffer.Size := 0;
|
|
if (argbGraphic.Height > 0) and (argbGraphic.Width > 0) then
|
|
begin
|
|
if (argbGraphic.Height < 128) or (argbGraphic.Width < 128) then
|
|
begin
|
|
FExtra := 0;
|
|
argbGraphic.Resize(64, 64, rfNearest);
|
|
end else
|
|
begin
|
|
FExtra := 1;
|
|
argbGraphic.Resize(128, 128, rfNearest);
|
|
end;
|
|
FBuffer.Write(argbGraphic.Bits^, argbGraphic.Height * argbGraphic.Width * 2);
|
|
end;
|
|
argbGraphic.Free;
|
|
end;
|
|
|
|
end.
|
|
|