1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
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}"
}
set length 37.7831
set 3dviewer 0
|
