hedgewars/uGearsRender.pas
changeset 9283 76e68c136a11
parent 9249 7b8c82785145
child 9285 8e8b908970c2
equal deleted inserted replaced
9280:c3b11f913145 9283:76e68c136a11
    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;
    41 uses uRender, uUtils, uVariables, uAmmos, Math, uVisualGears, 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