34 lines
796 B
ObjectPascal
34 lines
796 B
ObjectPascal
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.
|