equal
deleted
inserted
replaced
855 end; |
855 end; |
856 |
856 |
857 |
857 |
858 procedure DrawWorld(Lag: LongInt); |
858 procedure DrawWorld(Lag: LongInt); |
859 begin |
859 begin |
860 if not isPaused then |
860 if ZoomValue < zoom then |
861 begin |
861 begin |
|
862 zoom:= zoom - 0.002 * Lag; |
|
863 if ZoomValue > zoom then |
|
864 zoom:= ZoomValue |
|
865 end |
|
866 else |
|
867 if ZoomValue > zoom then |
|
868 begin |
|
869 zoom:= zoom + 0.002 * Lag; |
862 if ZoomValue < zoom then |
870 if ZoomValue < zoom then |
863 begin |
871 zoom:= ZoomValue |
864 zoom:= zoom - 0.002 * Lag; |
|
865 if ZoomValue > zoom then |
|
866 zoom:= ZoomValue |
|
867 end |
|
868 else |
|
869 if ZoomValue > zoom then |
|
870 begin |
|
871 zoom:= zoom + 0.002 * Lag; |
|
872 if ZoomValue < zoom then |
|
873 zoom:= ZoomValue |
|
874 end |
|
875 end |
872 end |
876 else |
873 else |
877 ZoomValue:= zoom; |
874 ZoomValue:= zoom; |
878 |
875 |
879 // Sky |
876 // Sky |