mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
26 lines
594 B
Plaintext
Executable File
26 lines
594 B
Plaintext
Executable File
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
|