1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-05-31 11:15:31 +03:00
occt/tests/bugs/modalg/buc60555_2
apn 352ffd7358 Adding test cases for chl grid
Test case tests/bugs/modalg/dxf906 was renamed to bug889
Adding test cases to tests/bugs/moddata
Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx
Modified test case bugs vis buc60738
Added test cases to modalg and moddata
Added test cases to caf and fclasses
Added test cases to group heal
2012-12-21 16:39:38 +04:00

55 lines
1.4 KiB
Plaintext
Executable File

puts "============="
puts "BUC60555"
puts "CUT Case2"
puts "============="
cpulimit 1400
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"
}
puts [maxtolerance cut1]
restore [locate_data_file buc60555c.brep] trTool2
halfspace hs2 trTool2 10000 10000 0
bcut cut2 cut1 hs2
tcopy cut2 result
explode cut2 e
mkcurve cu1 cut2_1
mkcurve cu2 cut2_2
mkcurve cu3 cut2_3
mkcurve cu4 cut2_4
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"
}
checkshape cut2
set tolerance [ maxtolerance cut2 ]
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 > 1 || $MaxEdgeTolerance > 1 || $MaxVertexTolerance > 1 } {
puts "Faulty : Tolerance of shape is more then 1.0"
} else {
puts "Tolerance of shape is less then 1.0"
}
set square 4.52817e+07
set 2dviewer 0