hedgewars/uStore.pas
changeset 3523 6592fbb969da
parent 3513 f589230fa21b
child 3525 1d7b056ff866
--- a/hedgewars/uStore.pas	Sat Jun 19 00:48:47 2010 +0200
+++ b/hedgewars/uStore.pas	Sun Jun 20 18:35:59 2010 +0200
@@ -1265,19 +1265,13 @@
 end;
 
 procedure SetScale(f: GLfloat);
-var
-{$IFDEF IPHONEOS}
-scale: GLfloat = 1.5;
-{$ELSE}
-scale: GLfloat = 2.0;
-{$ENDIF}
 begin
     // leave immediately if scale factor did not change
     if f = cScaleFactor then exit;
 
-    if f = scale then
-        glPopMatrix   // "return" to default scaling
-    else                // other scaling
+    if f = cDefaultZoomLevel then
+        glPopMatrix         // "return" to default scaling
+    else                    // other scaling
     begin
         glPushMatrix;       // save default scaling
         glLoadIdentity;