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 "OCC28944"
puts "========"
puts ""
#######################################################
# Cannot find section between two faces
#######################################################
restore [locate_data_file bug28944_shell.brep] sh0
plane pl0 28.0 0.0 0.0 1.0 0.0 0.0
mkface f0 pl0 -50 50 -50 50
# Incomplete section
bsection result sh0 f0
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
if { $nbv != 0 } { puts "Error : Section is incorrect" }
checknbshapes result -vertex 2 -edge 2
checkprops result -l 6.91796
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
