1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
puts "================"
puts "OCC6502"
puts "================"
puts ""
#######################################################################################
# Failure calculation of ShrunkRange resulting to failure of boolean operation
#######################################################################################
set BugNumber OCC6502
restore [locate_data_file OCC6502.brep] a
plane pl 100 0 0 1 0 0
mkface f pl
if { [catch { bsection result a f -n2d } catch_result] } {
puts "Faulty ${BugNumber}"
}
checkprops result -l 37.7831
checkshape result
checksection result
checkview -display result -3d -path ${imagedir}/${test_image}.png
|
