Fix compilation errors in the examples.

AdaCore · Aug 3, 2016 · b441094 · b441094
1 parent c4831df
commit b441094
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/examples/train/src/tracks_display.adb b/examples/train/src/tracks_display.adb
@@ -33,7 +33,7 @@ package body Tracks_Display is
          Orange => HAL.Bitmap.Orange,
          Red    => HAL.Bitmap.Red);
 
-   Track_Color      : constant Bitmap_Color := HAL.Bitmap.Light_Gray;
+   Track_Color      : constant Bitmap_Color := HAL.Bitmap.Light_Grey;
    Track_Thickness  : constant := 4;
    Train_Thickness  : constant := 2;
    Switch_Color     : constant Bitmap_Color := HAL.Bitmap.Violet;

diff --git a/examples/wolf/src/raycaster.adb b/examples/wolf/src/raycaster.adb
@@ -189,7 +189,7 @@ package body Raycaster is
      (Pos      : Position;
       Vert_Hit : out Boolean;
       Offset   : out Float;
-      Distance : out Float;
+      Dist     : out Float;
       Tile     : out Cell)
    is
       f_Dist_X, f_Dist_Y : Float;
@@ -254,7 +254,7 @@ package body Raycaster is
       Tile := Map (Map_Y, Map_X);
 
       if Vert_Hit then
-         Distance := dist_X;
+         Dist := dist_X;
          --  Calculate the offset  (in X Coordinate) of the hit relative
          --  to the current tile (used for finding the proper column for the
          --  texture).
@@ -270,7 +270,7 @@ package body Raycaster is
             end if;
          end if;
       else
-         Distance := dist_Y;
+         Dist := dist_Y;
          --  Similar to above, but where we use the sinus: so
          --  -cos (Pos.Angle - Pi / 2), e.g. 900 in tenth of degrees
          Offset := Pos.X + Cos_Table (Pos.Angle) * dist_Y;
@@ -314,7 +314,7 @@ package body Raycaster is
         (Pos      => Col_Pos,
          Vert_Hit => Side,
          Offset   => Off,
-         Distance => Dist,
+         Dist     => Dist,
          Tile     => Tile);
 
       case Tile is