1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
puts "============"
puts "OCC23224"
puts "============"
puts ""
#######################################################################
# Empty result done by intersection algorithm
#######################################################################
set BugNumber OCC23224
restore [locate_data_file OCC23224-line.brep] l
restore [locate_data_file OCC23224-face.brep] f
mksurface s f
mkcurve c l
intersect result c s
set info1 [dump result]
if { [regexp {Point +: ([-0-9.+eE]+)} $info1 full] == 0 } {
puts "Faulty ${BugNumber}"
} else {
puts "OK ${BugNumber}"
}
|
