mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
0cbfb9f151
I ComputePurgedWLine() function: Excess points in walking line are deleted when: 1) Distance between neighboring points too small. 2) Points lie in one pipe without big jump on chord length. III Fixed problem with extremaPC with too close knot distribution to [minParam, maxParam] borders. IV ApproxInt_Approx.gxx New division criteria in intersection approximator. III Test case Test cases update to the new behavior. Test case for CR21564 Correction of test cases for issue CR21564
71 lines
1.8 KiB
Plaintext
Executable File
71 lines
1.8 KiB
Plaintext
Executable File
puts "=============="
|
|
puts "BUC60555"
|
|
puts "CUT Case 3"
|
|
puts "=============="
|
|
cpulimit 5000
|
|
restore [locate_data_file buc60555a.brep] part
|
|
checkshape part
|
|
restore [locate_data_file buc60555b.brep] trTool1
|
|
checkshape trTool1
|
|
|
|
halfspace hs1 trTool1 20000 10000 0
|
|
bcut cut1 part hs1
|
|
checkshape cut1
|
|
|
|
set che [checkshape cut1 r]
|
|
if { [regexp {OK} $che] != 1 } {
|
|
puts "Faulty : mistakes are found in checked shape by checkshape command"
|
|
} else {
|
|
puts "Checking by checkshape - OK"
|
|
}
|
|
|
|
maxtolerance cut1
|
|
|
|
restore [locate_data_file buc60555c.brep] trTool2
|
|
halfspace hs2 trTool2 10000 10000 0
|
|
bcut cut2 cut1 hs2
|
|
checkshape cut2
|
|
|
|
set che [checkshape cut2 r]
|
|
if { [regexp {OK} $che] != 1 } {
|
|
puts "Faulty : mistakes are found in checked shape by checkshape command"
|
|
} else {
|
|
puts "Checking by checkshape - OK"
|
|
}
|
|
|
|
maxtolerance cut2
|
|
|
|
restore [locate_data_file buc60555d.brep] trTool3
|
|
halfspace hs3 trTool3 20000 1000 0
|
|
bcut cut3 cut2 hs3
|
|
|
|
tcopy cut3 result
|
|
|
|
explode cut3 e
|
|
mkcurve cu1 cut3_1
|
|
mkcurve cu2 cut3_2
|
|
mkcurve cu3 cut3_3
|
|
mkcurve cu4 cut3_4
|
|
|
|
set che [checkshape cut3 r]
|
|
if { [regexp {OK} $che] != 1 } {
|
|
puts "Faulty : mistakes are found in checked shape by checkshape command"
|
|
} else {
|
|
puts "Checking by checkshape - OK"
|
|
}
|
|
|
|
checkshape cut3
|
|
|
|
set tolerance [ maxtolerance cut3 ]
|
|
regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxFaceTolerance
|
|
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
|
|
regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxVertexTolerance
|
|
|
|
if { $MaxFaceTolerance > 2 || $MaxEdgeTolerance > 2 || $MaxVertexTolerance > 2 } {
|
|
puts "Faulty : Tolerance of shape is more then 2.0"
|
|
} else {
|
|
puts "Tolerance of shape is less then 2.0"
|
|
}
|
|
set square 1.74934e+007
|
|
set 2dviewer 0
|