sugr_construct_join_Line_2D

% Construct 2D line joining two points x and y 

 Line_2D = sugr_construct_join_Line_2D(x,y)

 * x,y =  2D points, struct {x.h,x.Crr}
 * Line_2D =  2D line, struct {l.h,l.Crr}

0001 %% Construct 2D line joining two points x and y
0002 %
0003 % Line_2D = sugr_construct_join_Line_2D(x,y)
0004 %
0005 % * x,y =  2D points, struct {x.h,x.Crr}
0006 % * Line_2D =  2D line, struct {l.h,l.Crr}
0007 
0008 % Wolfgang Förstner 1/2011
0009 % wfoerstn@uni-bonn.de
0010 %
0011 % See also sugr_Line_2D, sugr_construct_parallel_lx_Line_2D,
0012 % sugr_construct_parallel_lO_Line_2D, sugr_construct_midline_Line_2D,
0013 % sugr_construct_footpoint_Ol_Point_2D, sugr_construct_footpoint_xl_Point_2D,
0014 % sugr_construct_join_Line_3D
0015 
0016 
0017 function Line_2D = sugr_construct_join_Line_2D(x,y)
0018      
0019         Sx =   calc_S(x.h);
0020         Sy = - calc_S(y.h);
0021         h   = Sx * y.h;
0022         Cxhh = sugr_get_CovM_homogeneous_Vector(x);
0023         Cyhh = sugr_get_CovM_homogeneous_Vector(y);
0024         Chh = Sx * Cyhh * Sx' + Sy * Cxhh * Sy'; 
0025         
0026 % generate line
0027 Line_2D = sugr_Line_2D(h,Chh);