mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-21 10:13:43 +03:00
80d659a5a6
Do not clean polygons that are created for different faces not connected with current shape. Remove old code producing additional points for BSpline curves due to fix #24959. Test cases fir issue CR25469 Revert changes producing additional points for BSpline curves with C1 continuity Test cases fir issue CR25469 Correction of test cases for issue CR25469
46 lines
791 B
Plaintext
Executable File
46 lines
791 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC22383"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Four and more points at least on curve
|
|
######################################################
|
|
|
|
set BugNumber OCC22383
|
|
|
|
restore [locate_data_file bug21645_Scale1_so1_f3.brep] result
|
|
|
|
vinit
|
|
tclean result
|
|
incmesh result 0.01
|
|
vdisplay result
|
|
vfit
|
|
|
|
set good_trip 16
|
|
|
|
isos result 0
|
|
trinfo result
|
|
puts ""
|
|
set ll [triepoints result]
|
|
set nbpoints [llength $ll]
|
|
puts $nbpoints
|
|
|
|
## number of discretization points (triepoints command) with fix
|
|
## must be less than number on clear occ651
|
|
|
|
set status 0
|
|
if {$nbpoints <= $good_trip} {
|
|
set status 1
|
|
}
|
|
|
|
|
|
if { $status != 0 } {
|
|
puts "$BugNumber: OK"
|
|
} else {
|
|
puts "$BugNumber: Faulty"
|
|
}
|
|
|
|
set square 2.04205e-08
|
|
set only_screen 1
|
|
|