hedgewars/uGears.pas
changeset 3390 1d4926d10a9e
parent 3388 ab9352a4ddcc
child 3396 e5b3e5f2818e
equal deleted inserted replaced
3389:9b97b9240c22 3390:1d4926d10a9e
   956 
   956 
   957     glTranslatef(WorldDx, WorldDy, 0);
   957     glTranslatef(WorldDx, WorldDy, 0);
   958 
   958 
   959     glLineWidth(4.0);
   959     glLineWidth(4.0);
   960 
   960 
   961     Tint($FFC0C0C0);
   961     Tint($C0, $C0, $C0, $FF);
   962 
   962 
   963     glEnableClientState(GL_VERTEX_ARRAY);
   963     glEnableClientState(GL_VERTEX_ARRAY);
   964     glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);
   964     glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);
   965     glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
   965     glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
   966     Tint($FFFFFFFF);
   966     Tint($FF, $FF, $FF, $FF);
   967 
   967 
   968     glPopMatrix;
   968     glPopMatrix;
   969 
   969 
   970     glEnable(GL_TEXTURE_2D);
   970     glEnable(GL_TEXTURE_2D);
   971     //glDisable(GL_LINE_SMOOTH)
   971     //glDisable(GL_LINE_SMOOTH)