1. with Float_Type; use Float_Type; 
  2.  
  3. package body Vectors_Conversions is 
  4.  
  5.    ------------------ 
  6.    -- To_Vector_3D -- 
  7.    ------------------ 
  8.  
  9.    function To_Vector_3D (V : Vector_3D_LF) return Vector_3D is 
  10.  
  11.       Convert : Vector_3D; 
  12.  
  13.    begin 
  14.       Convert (x) := Real (V (x)); 
  15.       Convert (y) := Real (V (y)); 
  16.       Convert (z) := Real (V (z)); 
  17.       return Convert; 
  18.    end To_Vector_3D; 
  19.  
  20.    --------------------- 
  21.    -- To_Vector_3D_LF -- 
  22.    --------------------- 
  23.  
  24.    function To_Vector_3D_LF (V : Vector_3D) return Vector_3D_LF is 
  25.  
  26.       Convert : Vector_3D_LF; 
  27.  
  28.    begin 
  29.       Convert (x) := Long_Float (V (x)); 
  30.       Convert (y) := Long_Float (V (y)); 
  31.       Convert (z) := Long_Float (V (z)); 
  32.       return Convert; 
  33.    end To_Vector_3D_LF; 
  34.  
  35.    ------------------ 
  36.    -- To_Vector_2D -- 
  37.    ------------------ 
  38.  
  39.    function To_Vector_2D (V : Vector_2D_I) return Vector_2D is 
  40.  
  41.       Convert : Vector_2D; 
  42.  
  43.    begin 
  44.       Convert (x) := Real (V (x)); 
  45.       Convert (y) := Real (V (y)); 
  46.       return Convert; 
  47.    end To_Vector_2D; 
  48.  
  49.    ------------------ 
  50.    -- To_Vector_2D -- 
  51.    ------------------ 
  52.  
  53.    function To_Vector_2D (V : Vector_2D_N) return Vector_2D is 
  54.  
  55.       Convert : Vector_2D; 
  56.  
  57.    begin 
  58.       Convert (x) := Real (V (x)); 
  59.       Convert (y) := Real (V (y)); 
  60.       return Convert; 
  61.    end To_Vector_2D; 
  62.  
  63.    ------------------ 
  64.    -- To_Vector_2D -- 
  65.    ------------------ 
  66.  
  67.    function To_Vector_2D (V : Vector_2D_P) return Vector_2D is 
  68.  
  69.       Convert : Vector_2D; 
  70.  
  71.    begin 
  72.       Convert (x) := Real (V (x)); 
  73.       Convert (y) := Real (V (y)); 
  74.       return Convert; 
  75.    end To_Vector_2D; 
  76.  
  77. end Vectors_Conversions;