hedgewars/uGearsRender.pas
changeset 7111 5ba5a92d74fb
parent 7098 f8c453ade379
child 7186 013deb83086b
equal deleted inserted replaced
7108:eaef11c0d039 7111:5ba5a92d74fb
    52 if (RopePoints.Count > 0) or (Gear^.Elasticity.QWordValue > 0) then
    52 if (RopePoints.Count > 0) or (Gear^.Elasticity.QWordValue > 0) then
    53     begin
    53     begin
    54     glDisable(GL_TEXTURE_2D);
    54     glDisable(GL_TEXTURE_2D);
    55     //glEnable(GL_LINE_SMOOTH);
    55     //glEnable(GL_LINE_SMOOTH);
    56 
    56 
    57     glPushMatrix;
    57     ResetRotation;
    58 
    58     SetOffset(WorldDx, WorldDy);
    59     glTranslatef(WorldDx, WorldDy, 0);
    59     UpdateModelview;
    60 
    60 
    61     glLineWidth(4.0);
    61     glLineWidth(4.0);
    62 
    62 
    63     Tint($C0, $C0, $C0, $FF);
    63     Tint($C0, $C0, $C0, $FF);
    64 
    64 
    65     glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);
    65     glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]);
    66     glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
    66     glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2);
    67     Tint($FF, $FF, $FF, $FF);
    67     Tint($FF, $FF, $FF, $FF);
    68 
       
    69     glPopMatrix;
       
    70 
    68 
    71     glEnable(GL_TEXTURE_2D);
    69     glEnable(GL_TEXTURE_2D);
    72     //glDisable(GL_LINE_SMOOTH)
    70     //glDisable(GL_LINE_SMOOTH)
    73     end
    71     end
    74 end;
    72 end;