hedgewars/uVisualGears.pas
changeset 945 4ead9cde4e14
parent 938 0c8d2085fa71
child 1041 362b95d49cf4
equal deleted inserted replaced
944:9299c0ebfdbc 945:4ead9cde4e14
    30              FrameTicks: Longword;
    30              FrameTicks: Longword;
    31              X : hwFloat;
    31              X : hwFloat;
    32              Y : hwFloat;
    32              Y : hwFloat;
    33              dX: hwFloat;
    33              dX: hwFloat;
    34              dY: hwFloat;
    34              dY: hwFloat;
       
    35              mdY: QWord;
    35              Angle, dAngle: real;
    36              Angle, dAngle: real;
    36              Kind: TVisualGearType;
    37              Kind: TVisualGearType;
    37              doStep: TVGearStepProcedure;
    38              doStep: TVGearStepProcedure;
    38              end;
    39              end;
    39 
    40 
   117                begin
   118                begin
   118                Frame:= random(4);
   119                Frame:= random(4);
   119                dx.isNegative:= random(2) = 0;
   120                dx.isNegative:= random(2) = 0;
   120                dx.QWordValue:= random(214748364);
   121                dx.QWordValue:= random(214748364);
   121                dy.isNegative:= random(2) = 0;
   122                dy.isNegative:= random(2) = 0;
   122                dy.QWordValue:= 21474836 + random(64424509)
   123                dy.QWordValue:= 21474836 + random(64424509);
       
   124                mdY:= dy.QWordValue
   123                end;
   125                end;
   124      end;
   126      end;
   125 
   127 
   126 if VisualGearsList <> nil then
   128 if VisualGearsList <> nil then
   127    begin
   129    begin