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
61
62
63
64
65
|
puts "TODO OCC11111 ALL: OCC2442 Faulty"
puts "============"
puts "OCC2442"
puts "============"
puts ""
######################################################
# Error in BRepClass3d_SolidClassifier
######################################################
set IsGood 1
restore [locate_data_file OCC2442-1.brep] a
restore [locate_data_file OCC2442-2.brep] b
distmini dm1 a b
set dm1_list [dump dm1_val]
set dm1_length [llength $dm1_list]
if {$dm1_length < 6} {
puts "Faulty OCC2442"
set IsGood 0
}
explode a
explode b
distmini dm2 a_1 b_1
set dm2_list [dump dm2_val]
set dm2_length [llength $dm2_list]
if {$dm2_length < 6} {
puts "Faulty OCC2442"
set IsGood 0
}
if {$IsGood == 1} {
regexp {([-0-9.+eE]+)} $dm1_list full dist1
regexp {([-0-9.+eE]+)} $dm2_list full dist2
set good_dist 18.4816355578064
set dist1_percent [expr abs(${dist1} - ${good_dist}) / double(${good_dist}) * 100.]
set dist2_percent [expr abs(${dist1} - ${dist2}) / double(${dist2}) * 100.]
set percent_max 0.1
if {${dist1_percent} > ${percent_max}} {
puts "OCC2442 Faulty"
set IsGood 0
}
if {${dist2_percent} > ${percent_max}} {
puts "OCC2442 Faulty"
set IsGood 0
}
if {${IsGood} == 1} {
puts "OCC2442 OK"
}
}
set boundbox [boundingstr a]
set x0 [lindex $boundbox 0]
set y0 [lindex $boundbox 1]
set z0 [lindex $boundbox 2]
ttranslate a [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
ttranslate b [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
set 3dviewer 1
|
