347         scale:= 1.0;

   347         scale:= 1.0;

   348     DrawTexture(X - round(Source^.w * scale) div 2, Top, Source, scale)

   348     DrawTexture(X - round(Source^.w * scale) div 2, Top, Source, scale)

   349 end;

   349 end;

   350 

   350 

   351 procedure DrawLine(X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte);

   351 procedure DrawLine(X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte);

   353 begin

   353 begin

   354     glDisable(GL_TEXTURE_2D);

   354     glDisable(GL_TEXTURE_2D);

   355     glEnable(GL_LINE_SMOOTH);

   355     glEnable(GL_LINE_SMOOTH);

   356 

   356 

   357     glPushMatrix;

   357     glPushMatrix;