mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
39 lines
805 B
Plaintext
39 lines
805 B
Plaintext
puts "================"
|
|
puts "OCC6766"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# Invalid result of intersection of a bspline face with a plane
|
|
#######################################################################################
|
|
|
|
set BugNumber OCC6766
|
|
|
|
restore [locate_data_file OCC6766.brep] a
|
|
|
|
decho off
|
|
set che_a [checkshape a]
|
|
decho on
|
|
if { [regexp {Faulty} $che_a] } {
|
|
puts "Faulty ${BugNumber} : checkshape is wrong for s1"
|
|
}
|
|
|
|
set Y 4
|
|
plane pl 0 ${Y} 0 0 1 0
|
|
mkface f pl
|
|
bsection result a f -2d -a
|
|
|
|
|
|
|
|
set nb_v_good 4
|
|
set nb_e_good 3
|
|
set nb_w_good 0
|
|
set nb_f_good 0
|
|
set nb_sh_good 0
|
|
set nb_sol_good 0
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 1
|
|
set nb_shape_good 8
|
|
|
|
set length 138.474
|
|
set 2dviewer 0
|