455 	hw: LongInt;

   455 	hw: LongInt;

   456     VertexBuffer, TextureBuffer: array [0..3] of TVertex2f;

   456     VertexBuffer, TextureBuffer: array [0..3] of TVertex2f;

   457 begin

   457 begin

   458 glPushMatrix;

   458 glPushMatrix;

   459 glTranslatef(X, Y, 0);

   459 glTranslatef(X, Y, 0);

   460 

   461 

   461 if Dir < 0 then

   462 if Dir < 0 then

   462 	hw:= - 16

   463 	hw:= - 16

   463 else

   464 else

   464 	hw:= 16;

   465 	hw:= 16;