kam-mobile/port-source/kam_remake/src/utils/KromOGLUtils.pas

unit KromOGLUtils;
{$I KaM_Remake.inc}
interface

type
  TColor4 = Cardinal;
  TTexture = record Tex: Cardinal; U, V: Single; end;
  TKromPoint2 = record
    X, Y: Single;
  end;
  TKromQuadCoords = array[0..3] of TKromPoint2;

  function KromQuadCoords(Ax, Ay, Bx, By, Cx, Cy, Dx, Dy: Single): TKromQuadCoords;
  function KromRectCoords(Ax, Ay, Bx, By: Single): TKromQuadCoords;

implementation

function KromQuadCoords(Ax, Ay, Bx, By, Cx, Cy, Dx, Dy: Single): TKromQuadCoords;
begin
  Result[0].X := Ax; Result[0].Y := Ay;
  Result[1].X := Bx; Result[1].Y := By;
  Result[2].X := Cx; Result[2].Y := Cy;
  Result[3].X := Dx; Result[3].Y := Dy;
end;


function KromRectCoords(Ax, Ay, Bx, By: Single): TKromQuadCoords;
begin
  Result := KromQuadCoords(Ax, Ay, Bx, Ay, Bx, By, Ax, By);
end;


end.