Update GUI to refresh on Frame_Rate frequency, show ignored packets o…

…n gui

eRINA_STM32F7/src/net/network.adb

@@ -21,9 +21,4 @@ package body Network is
       Receiver.Start;
    end Initialize;
 
-   function Get_ARP_Request_Count return Natural is
-   begin
-      return Receiver.ARP_Request_Count;
-   end Get_ARP_Request_Count;
-
 end Network;

eRINA_STM32F7/src/net/network.ads

@@ -14,5 +14,4 @@ package Network is
    Ifnet : aliased Net.Interfaces.STM32.STM32_Ifnet;
 
    procedure Initialize;
-   function Get_ARP_Request_Count return Natural;
 end Network;

eRINA_STM32F7/src/rina/demo.adb

@@ -1,15 +1,17 @@
 with GUI;
-with Debug;
 with Textures;
 with Textures.PSU;
 with Network;
+with STM32;
+with STM32.Board;
 
 procedure Demo is
-   Counter : Natural := 0;
 begin
-
    GUI.Initialize;
    Network.Initialize;
+   STM32.Board.Configure_User_Button_GPIO;
+   STM32.Board.Initialize_LEDs;
+   STM32.Board.All_LEDs_Off;
 
    --  Keep board from immediately terminating
    loop
@@ -18,11 +20,9 @@ begin
       GUI.Print ("eRINA Debug", (80, 15));
 
       GUI.Print
-        ("ARP Request Count: " & Network.Get_ARP_Request_Count'Image,
+        ("Ignored Packets: " & Network.Ifnet.Rx_Stats.Ignored'Image,
          (80, 30));
 
-      Debug.Print (Debug.Warning, "Blah " & Counter'Image);
-      Counter := Counter + 1;
-      delay 0.2;
+      delay Duration(1 / GUI.Frame_Rate);
    end loop;
 end Demo;

eRINA_STM32F7/src/rina/gui.ads

@@ -14,7 +14,8 @@ package GUI is
    end record;
 
    Board_Resolution : Size := (480, 272);
-
+   Frame_Rate : Natural := 60;
+
    procedure Initialize;
    procedure Update;
    procedure Print (Msg : in String; Pos : in HAL.Bitmap.Point);