mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
54 lines
1.5 KiB
Plaintext
Executable File
54 lines
1.5 KiB
Plaintext
Executable File
puts "========| OCC565 |========"
|
|
##################################
|
|
## Can not intersect two trimmed conical surfaces
|
|
##################################
|
|
|
|
restore [locate_data_file OCC565a.draw] s1
|
|
restore [locate_data_file OCC565b.draw] s2
|
|
|
|
puts "Preliminary check: intersection work with infinite cones:"
|
|
if { [catch {intersect inf s1 s2 } catch_result] } {
|
|
puts "Faulty OCC565: function intersection works wrongly with infinite cones"
|
|
} else {
|
|
set j 1
|
|
set er [lindex [whatis inf] 5]
|
|
repeat 4 {
|
|
set err [lindex [whatis inf_$j] 5]
|
|
if { $err != "curve" && $er != "curve"} {
|
|
puts " Faulty OCC565: function intersection works wrongly with infinite cones"
|
|
break
|
|
} else {
|
|
puts [format "curve inf_%s : exist " $j]
|
|
}
|
|
incr j
|
|
}
|
|
puts "Function intersection works correctly with infinite cones. Then check OCC565:"
|
|
}
|
|
|
|
trim s1x s1 0 2*pi 0 2.8
|
|
trim s2x s2 0 2*pi 0 2.8
|
|
|
|
if { [catch {intersect result s1x s2x } catch_result] } {
|
|
puts "Faulty OCC565 exception: function intersection works wrongly with trimmed cones"
|
|
} else {
|
|
set nom 0
|
|
set j 1
|
|
set er [lindex [whatis result] 5]
|
|
repeat 4 {
|
|
set err [lindex [whatis result_$j] 5]
|
|
if { $err != "curve" && $er != "curve"} {
|
|
break
|
|
} else {
|
|
set nom [expr $nom + 1]
|
|
}
|
|
incr j
|
|
}
|
|
if { $nom == 0} {
|
|
puts " Faulty OCC565: function intersection works wrongly with trimmed cones"
|
|
} else {
|
|
puts " OCC565 OK: function intersection works with trimmed cones"
|
|
}
|
|
}
|
|
|
|
|