hedgewars/uGears.pas
changeset 2390 57fb33ab04a4
parent 2389 bc3e45a4d5fb
child 2391 f7d15d9d643c
equal deleted inserted replaced
2389:bc3e45a4d5fb 2390:57fb33ab04a4
  1278 
  1278 
  1279 	glTranslatef(WorldDx, WorldDy, 0);
  1279 	glTranslatef(WorldDx, WorldDy, 0);
  1280 
  1280 
  1281 	glLineWidth(4.0);
  1281 	glLineWidth(4.0);
  1282 
  1282 
  1283 	glColor3ub($B0, $B0, $B0);
  1283 //	glColor3ub($B0, $B0, $B0);
       
  1284 	glColor4f(176.0, 176.0, 176.0, 1.0);
  1284 
  1285 
  1285 	glEnableClientState(GL_VERTEX_ARRAY);
  1286 	glEnableClientState(GL_VERTEX_ARRAY);
  1286 	glVertexPointer(2, GL_INT, 0, @RopePoints.rounded[0]);
  1287 	glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);
  1287 	glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
  1288 	glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
  1288 	glColor4f(1, 1, 1, 1);
  1289 	glColor4f(1, 1, 1, 1);
  1289 
  1290 
  1290 	glPopMatrix;
  1291 	glPopMatrix;
  1291 
  1292