mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
92d22d7d62
Correct Draw command "projface" so that it really finds only projection points belonging to the face.
31 lines
729 B
Plaintext
31 lines
729 B
Plaintext
puts "================================"
|
|
puts "OCC33080: Wrong projection point"
|
|
puts "================================"
|
|
puts ""
|
|
|
|
restore [locate_data_file bug33080.brep] a
|
|
|
|
set log [projface a -0.21115 1.17515 1.4504]
|
|
|
|
regexp {n0 1 Distance ([0-9+-.eE]*)} $log full dist
|
|
|
|
if { $dist > 0.1240364 } {
|
|
puts "Error distance: projection is wrong"
|
|
}
|
|
|
|
regexp {U = ([0-9+-.eE]*)} $log full uparam
|
|
|
|
if { $uparam < 869.174321 || $uparam > 869.174322 } {
|
|
puts "Error point: projection is wrong"
|
|
}
|
|
|
|
regexp {V = ([0-9+-.eE]*)} $log full vparam
|
|
|
|
if { $vparam < 732.602489 || $vparam > 732.602490 } {
|
|
puts "Error point: projection is wrong"
|
|
}
|
|
|
|
if {![regexp "Found 1 Points" $log]} {
|
|
puts "Error number of points: projection is wrong"
|
|
}
|