1with Aspect1_Vectors_2D; 2 3generic 4 with package Position_2d_Pkg is new Aspect1_Vectors_2D (<>); 5 with package Speed_2d_Pkg is new Aspect1_Vectors_2D (<>); 6package Aspect1_Horizontal is 7 function Theta_D(s: Position_2d_Pkg.Vect2; nzv: Speed_2d_Pkg.Nz_vect2) 8 return float; 9end Aspect1_Horizontal; 10