hedgewars/uGearsRender.pas
changeset 9249 7b8c82785145
parent 9080 9b42757d7e71
child 9283 76e68c136a11
equal deleted inserted replaced
9247:68bbe56badcc 9249:7b8c82785145
    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;
    42 
       
    43 const
       
    44     // hog tag mask
       
    45     //htNone        = $00;
       
    46     htTeamName    = $01;
       
    47     htName        = $02;
       
    48     htHealth      = $04;
       
    49     htTransparent = $08;
       
    50 
    42 
    51 procedure DrawRopeLinesRQ(Gear: PGear);
    43 procedure DrawRopeLinesRQ(Gear: PGear);
    52 begin
    44 begin
    53 with RopePoints do
    45 with RopePoints do
    54     begin
    46     begin