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
32
33
34
35
36
37
38
39
40
41
42
43
|
puts "============"
puts "OCC6366"
puts "============"
puts ""
######################################################
# FixShape does not fix an edge with invalid SameRange flag
######################################################
set BugNumber OCC6366
restore [locate_data_file BUC60393.rle] a
decho off
if {[checkshape a] != "This shape seems to be valid"} {
puts "Info: we see that the initial shape is bad"
}
decho on
puts "launching fixshape..."
fixshape result a
set err 0
decho off
if {[checkshape result] != "This shape seems to be valid"} {
puts "Info: we see that the fixed shape is bad too"
puts "launching fsameparameter..."
set err 1
fsameparameter result
if {[checkshape result] == "This shape seems to be valid"} {
puts "Info: we see that fsameparameter fixed the shape completely"
} else {
puts "Info: we see that the fixed shape after fsameparameter is bad too"
}
}
decho on
if { ${err} == 0 } {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
set 2dviewer 0
|
