7 ######################################################
8 # Constructor gp_Lin2d(A, B, C) creates line with origin point in infinity
9 ######################################################
17 set OriginList [OCC15489 $A $B $C]
18 regexp {X_0 += +([-0-9.+eE]+)} $OriginList full X_0
19 regexp {Y_0 += +([-0-9.+eE]+)} $OriginList full Y_0
21 set good_X_0 -1.9999999999999999e-20
24 checkreal "X_0" ${X_0} ${good_X_0} 0 0.001
25 checkreal "Y_0" ${Y_0} ${good_Y_0} 0 0.001