mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
29 lines
938 B
Plaintext
Executable File
29 lines
938 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty OCC286: Attempt to project the point on surface gives wrong result."
|
|
puts "========================"
|
|
puts " OCC286 "
|
|
puts "========================"
|
|
puts ""
|
|
|
|
restore [locate_data_file OCC286a.draw] a
|
|
restore [locate_data_file OCC286b.draw] b
|
|
|
|
intersect i a b
|
|
cvalue i 0.31 x y z
|
|
point p x y z
|
|
proj b x y z
|
|
|
|
set err1 ""
|
|
set err2 ""
|
|
set err3 ""
|
|
regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_1] full err1
|
|
regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_2] full err2
|
|
regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_3] full err3
|
|
|
|
if { $err1 == $err2 || $err1 == $err3 || $err2 == $err3 } {
|
|
puts "Faulty OCC286: Attempt to project the point on surface gives wrong result."
|
|
} else {
|
|
puts "OCC286 OK : Attempt to project the point on surface gives correct result"
|
|
}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|