# HG changeset patch
# User Wolfgang Steffens <WolfgangSteff@gmail.com>
# Date 1337026457 -7200
# Node ID a471de309dcc4ef1396d1e509a2fb49c780f616d
# Parent  17b0892ac79426e7ab2777d439d7ef9d27814a46
readded optimization for SetScale

diff -r 17b0892ac794 -r a471de309dcc hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Mon May 14 19:48:34 2012 +0200
+++ b/hedgewars/uStore.pas	Mon May 14 22:14:17 2012 +0200
@@ -761,8 +761,11 @@
 
 procedure SetScale(f: GLfloat);
 begin
-    cScaleFactor:=f;
-    UpdateProjection;
+    if cScaleFactor <> f then
+        begin
+        cScaleFactor:=f;
+        UpdateProjection;
+        end;
 end;
 
 ////////////////////////////////////////////////////////////////////////////////