hedgewars/uVisualGearsList.pas
changeset 11862 cb137eb71556
parent 11046 47a8c19ecb60
child 11885 2eac7a96b342
equal deleted inserted replaced
11861:dea8411974f9 11862:cb137eb71556
   228                 Scale:= 0.75;
   228                 Scale:= 0.75;
   229                 Timer:= 1;
   229                 Timer:= 1;
   230                 end;
   230                 end;
   231     vgtDroplet:
   231     vgtDroplet:
   232                 begin
   232                 begin
   233                 dx:= 0.001 * (random(180) - 90);
   233                 // old dx & dy calcs
   234                 dy:= -0.001 * (random(160) + 40);
   234                 // dx:= 0.001 * (random(180) - 90);
       
   235                 // dy:= -0.001 * (random(160) + 40);
       
   236                 // => min speed ~ 0.098, max speed ~ 0.218, speed range ~ 0.120
       
   237                 // => min angle(4096) ~ 129, max angle ~ 1919, angle range ~ 1790
       
   238                 dx:= 0.001 * (98 + random(121)); // speed
       
   239                 Frame:= 129 + random(1791); // angle
       
   240                 dy:= -dx * hwFloat2Float(AngleSin(Frame));
       
   241                 // divide by 2 to create an eliptic shape
       
   242                 dx:=  dx * hwFloat2Float(AngleCos(Frame)) / 2;
   235                 FrameTicks:= 250 + random(1751);
   243                 FrameTicks:= 250 + random(1751);
   236                 Frame:= random(3)
   244                 Frame:= random(3)
   237                 end;
   245                 end;
   238    vgtBeeTrace:
   246    vgtBeeTrace:
   239                 begin
   247                 begin