--- a/hedgewars/uVisualGears.pas	Thu Oct 25 13:55:55 2012 -0400
+++ b/hedgewars/uVisualGears.pas	Fri Oct 26 10:31:26 2012 -0400
@@ -987,10 +987,10 @@
         else vg:= vg^.NextGear;
     end;
 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
-    for i:= 0 to Pred(vobSDCount * cScreenSpace div LAND_WIDTH) do
+    for i:= 0 to Pred(vobSDCount * cScreenSpace div 4096) do
         AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
 else
-    for i:= 0 to Pred((vobSDCount * cScreenSpace div LAND_WIDTH) div 3) do
+    for i:= 0 to Pred((vobSDCount * cScreenSpace div 4096) div 3) do
         AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
 end;