1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. package body Vectors_3D is 
  6.  
  7.    function "*" (V_Left, V_Right : Vector_3D) return Vector_3D is 
  8.  
  9.    begin 
  10.       return (x => (V_Left (y) * V_Right (z) - V_Left (z) * V_Right (y)), 
  11.               y => (V_Left (z) * V_Right (x) - V_Left (x) * V_Right (z)), 
  12.               z => (V_Left (x) * V_Right (y) - V_Left (y) * V_Right (x))); 
  13.    end "*"; 
  14.  
  15. end Vectors_3D;