some changes to mouse eEgg

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2582 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 15 insertions, 0 deletions

diff --git a/src/screens/UScreenCredits.pas b/src/screens/UScreenCredits.pas
index e396e3be..90c0fa19 100644
--- a/src/screens/UScreenCredits.pas
+++ b/src/screens/UScreenCredits.pas
@@ -98,6 +98,9 @@ type
       MouseMoved: boolean;
       MouseX, MouseY: double;
 
+      { saves last x and y angle for easter egg }
+      LogoAngleX, LogoAngleY: single;
+
       procedure LoadNameTextures;
 
       { draw different stages }
@@ -474,10 +477,22 @@ begin
     according to mouse position }
   if (MouseMoved) then
   begin
+    // calculate destination angle
     AngleX := 30 * MouseY;
     AngleY := 30 * MouseX;
+
+    { move angle towards destination }
+    if not SameValue(LogoAngleX, AngleX, 0.001) then
+      AngleX := LogoAngleX + 0.05 * (AngleX - LogoAngleX);
+
+    if not SameValue(LogoAngleY, AngleY, 0.001) then
+      AngleY := LogoAngleY + 0.05 * (AngleY - LogoAngleY);
   end;
 
+  // save last angle
+  LogoAngleX := AngleX;
+  LogoAngleY := AngleY;
+
   DrawLayeredLogo(Separation, Scale, AngleX, AngleY, AngleZ);
 
   { do some sparkling effects }