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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
puts "============"
puts "OCC22296"
puts "============"
puts ""
#######################################################################
# The algorithm BRepSweep_MakeRevol produce non-licit toroidal based face.
# Appendix to the SALOME bug: IPAL22181
#######################################################################
set BugNumber OCC22296
restore [locate_data_file bug22296_ring.brep] b1
revol r b1 0.6 3 0 0 0 1 -90
set E_Length [explode r f]
if { ${E_Length} < 6} {
puts "Bad format of explode draw-command"
puts "Faulty ${BugNumber}"
} else {
copy r_2 f
set good_umin 0
set good_umax 6.28319
set good_vmin 0
set good_vmax 6.28319
set xlist [xbounds f]
set umin [lindex $xlist 0]
set umax [lindex $xlist 1]
set vmin [lindex $xlist 2]
set vmax [lindex $xlist 3]
set bad_bound 0
if {${umin} < ${good_umin}} {
puts "umin: ${umin} is wrong"
set bad_bound[expr ${bad_bound} + 1]
}
if {${umax} > ${good_umax}} {
puts "umax: ${umax} is wrong"
set bad_bound [expr ${bad_bound} + 10]
}
if {${vmin} < ${good_vmin}} {
puts "vmin: ${vmin} is wrong"
set bad_bound [expr ${bad_bound} + 100]
}
if {${vmax} > ${good_vmax}} {
puts "vmax: ${vmax} is wrong"
set bad_bound [expr ${bad_bound} + 1000]
}
if {${bad_bound} > 0 } {
puts "${BugNumber}: Faulty"
} else {
puts "OK ${BugNumber}"
}
}
|
