Change in libgfxinit[master]: [WIP] gfx_test: Refactor "bored" loop

[Nico Huber (Code Review)]

Nico Huber has uploaded this change for review. ( https://review.coreboot.org/23637

Change subject: [WIP] gfx_test: Refactor "bored" loop
......................................................................

[WIP] gfx_test: Refactor "bored" loop

Change-Id: I44920c35b4ea3f0a08ce306dcf8203379c15791b
Signed-off-by: Nico Huber 
---
M gfxtest/hw-gfx-gma-gfx_test.adb
1 file changed, 25 insertions(+), 21 deletions(-)

git pull ssh://review.coreboot.org:29418/libgfxinit refs/changes/37/23637/1

diff --git a/gfxtest/hw-gfx-gma-gfx_test.adb b/gfxtest/hw-gfx-gma-gfx_test.adb
index 231d5dd..0c29fbe 100644
--- a/gfxtest/hw-gfx-gma-gfx_test.adb
+++ b/gfxtest/hw-gfx-gma-gfx_test.adb
@@ -465,9 +465,11 @@
             end loop;
          end loop;

-         if Delay_S > 8 then -- getting bored?
+         if Delay_S >= 12 then -- getting bored?
+            Time.M_Delay (8_000);
+            Delay_S := Delay_S - 8;
             declare
-               New_Pipes : GMA.Pipe_Configs;
+               New_Pipes : GMA.Pipe_Configs := Pipes;

function Rand_Div (Num : Pos_Type) return Pos_Type is
                  (case Rand mod 4 is
@@ -476,30 +478,32 @@
                      when 1 => Rand mod Num,
                      when others => 0);
             begin
-               Time.M_Delay (4_000);
-               Delay_S := Delay_S - 4;
-               while Delay_S > 4 loop
-                  Time.M_Delay (4_000);
-                  Delay_S := Delay_S - 4;
+               while Delay_S >= 4 loop
                   New_Pipes := Pipes;
                   for Pipe in GMA.Pipe_Index loop
-                     New_Pipes (Pipe).Framebuffer.Start_X :=
-                        Rand_Div (Pipes (Pipe).Framebuffer.Width);
-                     New_Pipes (Pipe).Framebuffer.Start_Y :=
-                        Rand_Div (Pipes (Pipe).Framebuffer.Height);
-                     New_Pipes (Pipe).Framebuffer.Width :=
-                        Width_Type'Max (320,
-                           Pipes (Pipe).Framebuffer.Width
-                           - New_Pipes (Pipe).Framebuffer.Start_X
-                           - Rand_Div (Pipes (Pipe).Framebuffer.Width));
-                     New_Pipes (Pipe).Framebuffer.Height :=
-                        Height_Type'Max (320,
-                           Pipes (Pipe).Framebuffer.Height
-                           - New_Pipes (Pipe).Framebuffer.Start_Y
-                           - Rand_Div (Pipes (Pipe).Framebuffer.Height));
+                     exit when Pipes (Pipe).Port = Disabled;
+                     declare
+                        New_FB : Framebuffer_Type renames
+                           New_Pipes (Pipe).Framebuffer;
+                        Width : constant Width_Type :=
+                           Pipes (Pipe).Framebuffer.Width;
+                        Height : constant Height_Type :=
+                           Pipes (Pipe).Framebuffer.Height;
+                     begin
+                        New_FB.Start_X := Pos_Type'Min
+                          (Width - 320, Rand_Div (Width));
+                        New_FB.Start_Y := Pos_Type'Min
+                          (Height - 320, Rand_Div (Height));
+                        New_FB.Width := Width_Type'Max
+                          (320, Width - New_FB.Start_X - Rand_Div (Width));
+                        New_FB.Height := Height_Type'Max
+                          (320, Height - New_FB.Start_Y - Rand_Div (Height));
+                     end;
                   end loop;
                   GMA.Dump_Configs (New_Pipes);
                   GMA.Update_Outputs (New_Pipes);
+                  Time.M_Delay (4_000);
+                  Delay_S := Delay_S - 4;
                end loop;
             end;
          end if;