hedgewars/uRender.pas
changeset 4420 6be946bcd17a
parent 4385 f679ffa2dc8c
child 4451 1c342980b4aa
--- a/hedgewars/uRender.pas	Wed Nov 24 20:36:46 2010 -0500
+++ b/hedgewars/uRender.pas	Thu Nov 25 22:56:28 2010 -0500
@@ -20,7 +20,7 @@
 procedure DrawCentered(X, Top: LongInt; Source: PTexture);
 procedure DrawLine(X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte);
 procedure DrawFillRect(r: TSDL_Rect);
-procedure DrawCircle(X, Y, Radius: LongInt; Width: Single; r, g, b, a: Byte);
+procedure DrawCircle(X, Y, Radius, Width: LongInt; r, g, b, a: Byte);
 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);
 procedure Tint(r, g, b, a: Byte); inline;
 procedure Tint(c: Longword); inline;
@@ -351,7 +351,7 @@
 glEnable(GL_TEXTURE_2D)
 end;
 
-procedure DrawCircle(X, Y, Radius: LongInt; Width: Single; r, g, b, a: Byte); 
+procedure DrawCircle(X, Y, Radius, Width: LongInt; r, g, b, a: Byte); 
 var
     i: LongInt;
     CircleVertex: array [0..359] of TVertex2f;