1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
puts "==========="
puts "OCC15489"
puts "==========="
set BugNumber OCC15489
######################################################
# Constructor gp_Lin2d(A, B, C) creates line with origin point in infinity
######################################################
pload QAcommands
set A 1e-20
set B -1.
set C 2.
set OriginList [OCC15489 $A $B $C]
regexp {X_0 += +([-0-9.+eE]+)} $OriginList full X_0
regexp {Y_0 += +([-0-9.+eE]+)} $OriginList full Y_0
set good_X_0 -1.9999999999999999e-20
set good_Y_0 2
checkreal "X_0" ${X_0} ${good_X_0} 0 0.001
checkreal "Y_0" ${Y_0} ${good_Y_0} 0 0.001
|
