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 " OCC956 "
puts "(case 1)"
puts "========="
puts ""
###############################################
##possible regression in KAS:dev on checkshape. Fails on valid shape
###############################################
restore [locate_data_file OCC956_1.brep] result
decho off
set che [checkshape result]
decho on
if { [regexp {Faulty} $che] } {
puts "Faulty OCC956 (case 1): Checkshape says that the shape is incorrect, but it is not truth"
} else {
puts "OCC956 OK (case 1): Checkshape works properly"
}
set 2dviewer 0
|
