hedgewars/uStore.pas
changeset 2567 02ff5f9510b5
parent 2565 54296af65fe9
child 2568 e654cbfb23ba
--- a/hedgewars/uStore.pas	Tue Oct 20 11:49:10 2009 +0000
+++ b/hedgewars/uStore.pas	Tue Oct 20 17:55:11 2009 +0000
@@ -589,7 +589,7 @@
 
 procedure DrawCentered(X, Top: LongInt; Source: PTexture);
 begin
-DrawTexture(X - Source^.w div 2, Top, Source)
+DrawTexture(X - Source^.w shr 1, Top, Source)
 end;
 
 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);