sugr_construct_parallel_lO_Line_2D

% Construct line parallel to line l through origin

 lp = sugr_construct_parallel_lO_Line_2D(l)

 * l, lp =  2D line struct {l.h,l.Crr}

 Wolfgang Förstner 1/2011
 wfoerstn@uni-bonn.de 

 See also sugr_Line_2D, sugr_construct_parallel_lx_Line_2D,
 sugr_construct_midline_Line_2D, sugr_construct_footpoint_Ol_Point_2D,
 sugr_construct_footpoint_xl_Point_2D,
 sugr_construct_join_Line_2D, sugr_construct_join_Line_3D

0001 %% Construct line parallel to line l through origin
0002 %
0003 % lp = sugr_construct_parallel_lO_Line_2D(l)
0004 %
0005 % * l, lp =  2D line struct {l.h,l.Crr}
0006 %
0007 % Wolfgang Förstner 1/2011
0008 % wfoerstn@uni-bonn.de
0009 %
0010 % See also sugr_Line_2D, sugr_construct_parallel_lx_Line_2D,
0011 % sugr_construct_midline_Line_2D, sugr_construct_footpoint_Ol_Point_2D,
0012 % sugr_construct_footpoint_xl_Point_2D,
0013 % sugr_construct_join_Line_2D, sugr_construct_join_Line_3D
0014 
0015 
0016 function Line_2D = sugr_construct_parallel_lO_Line_2D(l)
0017    
0018         G3 = diag([1,1,0]);
0019         h   = G3 * l.h;
0020         Clhh = sugr_get_CovM_homogeneous_Vector(l);
0021         Chh = G3 * Clhh * G3; 
0022     
0023 % generate line
0024 Line_2D = sugr_Line_2D(h,Chh);
0025