hedgewars/uVisualGears.pas
changeset 3706 a79784328c03
parent 3704 ed2b9c7fb260
child 3751 a70c61c076ae
--- a/hedgewars/uVisualGears.pas	Mon Aug 02 00:48:15 2010 +0200
+++ b/hedgewars/uVisualGears.pas	Mon Aug 02 01:07:51 2010 +0200
@@ -307,13 +307,12 @@
                 t:= random(1024);
                 sp:= 0.001 * (random(85) + 47);
                 dx:= AngleSin(t).QWordValue/4294967296 * sp;
-                dy:= AngleCos(t).QWordValue/4294967296 * sp;
+                dy:= AngleCos(t).QWordValue/4294967296 * sp * -2;
                 if random(2) = 0 then dx := -dx;
-                (*if random(2) = 0 then*) dy := -2 * dy;
                 end;
       vgtNote: begin
                 dx:= 0.005 * (random(15) + 10);
-                dy:= 0.001 * (random(40) + 20);
+                dy:= -0.001 * (random(40) + 20);
                 if random(2) = 0 then dx := -dx;
                 Frame:= random(4);
                 FrameTicks:= random(2000) + 1500;