1. with Real_Type; use Real_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.      (x => Real (V (x)), 
  11.       y => Real (V (y)), 
  12.       z => Real (V (z))); 
  13.  
  14.    --------------------- 
  15.    -- To_Vector_3D_LF -- 
  16.    --------------------- 
  17.  
  18.    function To_Vector_3D_LF (V : Vector_3D) return Vector_3D_LF is 
  19.      (x => Long_Float (V (x)), 
  20.       y => Long_Float (V (y)), 
  21.       z => Long_Float (V (z))); 
  22.  
  23.    ------------------ 
  24.    -- To_Vector_2D -- 
  25.    ------------------ 
  26.  
  27.    function To_Vector_2D (V : Vector_2D_I) return Vector_2D is 
  28.      (x => Real (V (x)), 
  29.       y => Real (V (y))); 
  30.  
  31.    ------------------ 
  32.    -- To_Vector_2D -- 
  33.    ------------------ 
  34.  
  35.    function To_Vector_2D (V : Vector_2D_N) return Vector_2D is 
  36.      (x => Real (V (x)), 
  37.       y => Real (V (y))); 
  38.  
  39.    ------------------ 
  40.    -- To_Vector_2D -- 
  41.    ------------------ 
  42.  
  43.    function To_Vector_2D (V : Vector_2D_P) return Vector_2D is 
  44.      (x => Real (V (x)), 
  45.       y => Real (V (y))); 
  46.  
  47. end Vectors_Conversions;