1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
puts "========"
puts "OCC25102"
puts "========"
puts ""
#################################################
# A part of intersection cannot be found
#################################################
restore [locate_data_file bug25102.brep] c
explode c
bsection result c_1 c_2
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
if { $nbv != 2 } {
puts "Error : Section is incorrect"
} else {
puts "Section is correct"
}
checkprops result -l 49.734
checknbshapes result -edge 44
smallview
fit
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|
