aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/menu/UDrawTexture.pas4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/menu/UDrawTexture.pas b/src/menu/UDrawTexture.pas
index 92837fab..33082765 100644
--- a/src/menu/UDrawTexture.pas
+++ b/src/menu/UDrawTexture.pas
@@ -46,7 +46,6 @@ uses
gl;
procedure DrawLine(X1, Y1, X2, Y2, ColR, ColG, ColB: real);
-
begin
glColor3f(ColR, ColG, ColB);
glBegin(GL_LINES);
@@ -56,7 +55,6 @@ begin
end;
procedure DrawQuad(X, Y, W, H, ColR, ColG, ColB: real);
-
begin
glColor3f(ColR, ColG, ColB);
glBegin(GL_QUADS);
@@ -68,13 +66,11 @@ begin
end;
procedure DrawTexture(Texture: TTexture);
-
var
x1, x2, x3, x4: real;
y1, y2, y3, y4: real;
xt1, xt2, xt3, xt4: real;
yt1, yt2, yt3, yt4: real;
-
begin
with Texture do
begin