hedgewars/uGearsRender.pas
changeset 9285 8e8b908970c2
parent 9283 76e68c136a11
child 9505 56e0cca99e20
equal deleted inserted replaced
9283:76e68c136a11 9285:8e8b908970c2
    36                                 end;
    36                                 end;
    37                 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f;
    37                 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f;
    38                 end;
    38                 end;
    39 
    39 
    40 implementation
    40 implementation
    41 uses uRender, uUtils, uVariables, uAmmos, Math, uVisualGears, uVisualGearsList;
    41 uses uRender, uUtils, uVariables, uAmmos, Math, uVisualGearsList;
    42 
    42 
    43 procedure DrawRopeLinesRQ(Gear: PGear);
    43 procedure DrawRopeLinesRQ(Gear: PGear);
    44 begin
    44 begin
    45 with RopePoints do
    45 with RopePoints do
    46     begin
    46     begin