mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
22 lines
557 B
Plaintext
22 lines
557 B
Plaintext
puts "========"
|
|
puts "0031437: Offset surface throws e x c e p t i o n when trying to evaluate at singularity point"
|
|
puts "========"
|
|
puts ""
|
|
|
|
restore [locate_data_file bug31437.draw] s
|
|
|
|
set dist 2.5
|
|
offset result s -$dist
|
|
|
|
svalue s 0 1 x1 y1 z1
|
|
svalue result 0 1 x2 y2 z2
|
|
|
|
set curDist2 [expr ([dval x1] - [dval x2])**2 + ([dval y1] - [dval y2])**2 + ([dval z1] - [dval z2])**2]
|
|
if {abs($curDist2 - $dist**2) < 1.e-7} {
|
|
puts "OK: offset correct"
|
|
} else {
|
|
puts "Error: offset is wrong"
|
|
}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|