solar lab protected fix Body_Type -> Body_T

Author: leogermond

courses/fundamentals_of_ada/labs/solar_system/adv_240_tasking_protected_objects/src/main.adb

@@ -26,7 +26,7 @@ with Solar_System.Graphics; use Solar_System.Graphics;
 
 procedure Main is
 
-   --  declare variable Bodies which is an array of Body_Type
+   --  declare variable Bodies which is an array of Body_T
    Bodies : Bodies_Array_T;
 
    --  declare a variable Now of type Time to record current time

courses/fundamentals_of_ada/labs/solar_system/adv_240_tasking_protected_objects/src/solar_system-graphics.adb

@@ -1,6 +1,6 @@
 package body Solar_System.Graphics is
 
-   procedure Draw_Body (Object : Body_Type; Canvas : Canvas_ID) is
+   procedure Draw_Body (Object : Body_T; Canvas : Canvas_ID) is
    begin
       if Object.Visible then
          Draw_Sphere

courses/fundamentals_of_ada/labs/solar_system/adv_240_tasking_protected_objects/src/solar_system-graphics.ads

@@ -4,6 +4,6 @@ package Solar_System.Graphics is
 
 private
 
-   procedure Draw_Body (Object : Body_Type; Canvas : Canvas_ID);
+   procedure Draw_Body (Object : Body_T; Canvas : Canvas_ID);
 
 end Solar_System.Graphics;

courses/fundamentals_of_ada/labs/solar_system/adv_240_tasking_protected_objects/src/solar_system.adb

@@ -49,32 +49,32 @@ package body Solar_System is
    --  implement a function to compute the X coordinate
    --  x of the reference + distance * cos(angle)
    function Compute_X
-     (Body_To_Move : Body_Type;
-      Turns_Around : Body_Type) return Float;
+     (Body_To_Move : Body_T;
+      Turns_Around : Body_T) return Float;
 
    --  implement a function to compute the Y coordinate
    --  y of the reference + distance * sin(angle)
    function Compute_Y
-     (Body_To_Move : Body_Type;
-      Turns_Around : Body_Type) return Float;
+     (Body_To_Move : Body_T;
+      Turns_Around : Body_T) return Float;
 
    function Compute_X
-     (Body_To_Move : Body_Type;
-      Turns_Around : Body_Type) return Float
+     (Body_To_Move : Body_T;
+      Turns_Around : Body_T) return Float
    is
    begin
       return Turns_Around.X + Body_To_Move.Distance * Cos (Body_To_Move.Angle);
    end Compute_X;
 
    function Compute_Y
-     (Body_To_Move : Body_Type;
-      Turns_Around : Body_Type) return Float
+     (Body_To_Move : Body_T;
+      Turns_Around : Body_T) return Float
    is
    begin
       return Turns_Around.Y + Body_To_Move.Distance * Sin (Body_To_Move.Angle);
    end Compute_Y;
 
-   procedure Move (Body_To_Move : in out Body_Type; Bodies : Bodies_Array_T) is
+   procedure Move (Body_To_Move : in out Body_T; Bodies : Bodies_Array_T) is
    begin
 
       Body_To_Move.X :=

courses/fundamentals_of_ada/labs/solar_system/adv_240_tasking_protected_objects/src/solar_system.ads

@@ -42,9 +42,9 @@ package Solar_System is
 
 private
 
-   --  define a type Body_Type to store every information about a body
+   --  define a type Body_T to store every information about a body
    --   X, Y, Distance, Speed, Angle, Radius, Color
-   type Body_Type is record
+   type Body_T is record
       X            : Float   := 0.0;
       Y            : Float   := 0.0;
       Distance     : Float;
@@ -56,9 +56,9 @@ private
       Turns_Around : Bodies_Enum_T;
    end record;
 
-   --  define type Bodies_Array as an array of Body_Type indexed by bodies enumeration
-   type Bodies_Array_T is array (Bodies_Enum_T) of Body_Type;
+   --  define type Bodies_Array as an array of Body_T indexed by bodies enumeration
+   type Bodies_Array_T is array (Bodies_Enum_T) of Body_T;
 
-   procedure Move (Body_To_Move : in out Body_Type; Bodies : Bodies_Array_T);
+   procedure Move (Body_To_Move : in out Body_T; Bodies : Bodies_Array_T);
 
 end Solar_System;