removed unecessary duplicated subprograms

Author: QuentinOchem

examples/marching/src/device_code/marching_cubes.adb

@@ -23,91 +23,6 @@ with Colors;                       use Colors;
 
 package body Marching_Cubes is
 
-   --  TODO: the following functions are copies of Colors, because ptxas
-   --  needs all symbols to compile. Need to review the behavior of the wrapper.
-
-   function Hue_To_RGB (P, Q, T : Float) return Float is
-      T_Clamped : Float := T;
-   begin
-      if T_Clamped < 0.0 then
-         T_Clamped := @ + 1.0;
-      end if;
-
-      if T_Clamped > 1.0 then
-         T_Clamped := @ - 1.0;
-      end if;
-
-      if T_Clamped < 1.0 / 6.0 then
-         return P + (Q - P) * 6.0 * T_Clamped;
-      end if;
-
-      if T_Clamped < 1.0 / 2.0 then
-         return Q;
-      end if;
-
-      if T_Clamped < 2.0 / 3.0 then
-         return P + (Q - P) * (2.0 / 3.0 - T_Clamped) * 6.0;
-      end if;
-
-      return P;
-   end Hue_To_RGB;
-
-   function HSL_To_RGB (Src : HSL_T) return RGB_T is
-      Res : RGB_T;
-   begin
-      if Src.S = 0.0 then
-         Res.R := Src.L;
-         Res.G := Src.L;
-         Res.B := Src.L;
-      else
-         declare
-            Q : Float :=
-              (if Src.L < 0.5 then Src.L * (1.0 + Src.S)
-               else Src.L + Src.S - Src.L * Src.S);
-            P : Float := 2.0 * Src.L - Q;
-         begin
-            Res.R := Hue_To_RGB (P, Q, Src.H + 1.0 / 3.0);
-            Res.G := Hue_To_RGB (P, Q, Src.H);
-            Res.B := Hue_To_RGB (P, Q, Src.H - 1.0 / 3.0);
-         end;
-      end if;
-
-      return Res;
-   end HSL_To_RGB;
-
-   function RGB_To_HSL (src : RGB_T) return HSL_T is
-      Max : Float := Float'Max (src.R, Float'Max (src.G, src.B));
-      Min : Float := Float'Min (src.R, Float'Min (src.G, src.B));
-      Res : HSL_T;
-   begin
-      Res.L := (Max + Min) / 2.0;
-
-      if Max = Min then
-         Res.H := 0.0;
-         Res.S := 0.0;
-      else
-         declare
-            D : Float := Max - Min;
-         begin
-            Res.S :=
-              (if Res.L > 0.5 then D / (2.0 - Max - Min) else D / (Max + Min));
-
-            if src.R >= src.G and src.R >= src.B then
-               Res.H :=
-                 (src.G - src.B) / D + (if src.G < src.B then 6.0 else 0.0);
-            elsif src.G >= src.B then
-               Res.H := (src.B - src.R) / D + 2.0;
-            else
-               Res.H := (src.R - src.G) / D + 4.0;
-            end if;
-
-            Res.H := @ / 6.0;
-         end;
-      end if;
-
-      return Res;
-   end RGB_To_HSL;
-
    -- TODO: replace with proper runtime function when available
    function Atomic_Compare_Exchange_4
      (Ptr           : Address; Expected : Address; Desired : Integer;