Merge branch 'fixup_privacy_port' into 'main'

Fix privacy lab porting error

Closes #35

See merge request services/training/labs_solar_system!7

src/110_private_types/answers/private_types_main.adb

@@ -133,15 +133,8 @@ begin
       Speed        => 0.1,
       Turns_Around => Black_Hole);
 
-   --  initialize the Next step time at the current time (Clock) + the period
    Next := Clock + Period;
 
-   --  create an infinite loop
-   --  call Move_All procedure
-   --  call Draw_All procedure
-   --  call Swap_Buffers to update the screen
-   --  wait until Next time
-   --  update the Next time
    while not Is_Killed loop
 
       Move_All (Bodies);

src/110_private_types/src/private_types_main.adb

@@ -116,15 +116,11 @@ begin
          Turns_Around => Black_Hole,
          others       => <>));
 
-   --  initialize the Next step time at the current time (Clock) + the period
+   --  Making sun larger @antho
+   Bodies (Sun).X := 150.0;
+
    Next := Clock + Period;
 
-   --  create an infinite loop
-   --  call Move_All procedure
-   --  call Draw_All procedure
-   --  call Swap_Buffers to update the screen
-   --  wait until Next time
-   --  update the Next time
    while not Is_Killed loop
 
       Move_All (Bodies);

src/110_private_types/template/private_types_main.adb

@@ -116,6 +116,9 @@ begin
          Color        => Cyan,
          Turns_Around => Black_Hole,
          others       => <>));
+
+   --  Making sun larger @antho
+   Bodies (Sun).X := 150.0;
    --$ end question
    --$ begin answer
    --  initialize Bodies using Init_Body procedure
@@ -201,15 +204,8 @@ begin
       Turns_Around => Black_Hole);
    --$ end answer
 
-   --  initialize the Next step time at the current time (Clock) + the period
    Next := Clock + Period;
 
-   --  create an infinite loop
-   --  call Move_All procedure
-   --  call Draw_All procedure
-   --  call Swap_Buffers to update the screen
-   --  wait until Next time
-   --  update the Next time
    while not Is_Killed loop
 
       Move_All (Bodies);