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