hedgewars/uGears.pas
changeset 2363 5304fa032d9b
parent 2362 ef4abaf2d5cc
child 2365 12b5373f4058
equal deleted inserted replaced
2362:ef4abaf2d5cc 2363:5304fa032d9b
  1308 
  1308 
  1309 	glColor4ub($A0, $A0, $A0, $C0);
  1309 	glColor4ub($A0, $A0, $A0, $C0);
  1310 
  1310 
  1311 	glEnableClientState(GL_VERTEX_ARRAY);
  1311 	glEnableClientState(GL_VERTEX_ARRAY);
  1312 	glVertexPointer(2, GL_INT, 0, @RopePoints.rounded[0]);
  1312 	glVertexPointer(2, GL_INT, 0, @RopePoints.rounded[0]);
  1313 	glDrawArrays(GL_LINES, 0, cnt + 1);
  1313 	glDrawArrays(GL_LINE_STRIP, 0, cnt + 1);
  1314 	glColor4f(1, 1, 1, 1);
  1314 	glColor4f(1, 1, 1, 1);
  1315 	glEnable(GL_TEXTURE_2D);
  1315 	glEnable(GL_TEXTURE_2D);
  1316 	glDisable(GL_LINE_SMOOTH);
  1316 	glDisable(GL_LINE_SMOOTH);
  1317 	end
  1317 	end
  1318 end;
  1318 end;