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
|
set chamf_shape 4_L1(hlacg03).draw
set chamf_edge_face [list " 6 1" " 5 1" " 9 2"]
set chamf_dist_angle [list "1.2 30" " 1 30" " 1 30"]
set chamf_dist_dist [list "1.1 1" " 1 1.2" " 1 1.4"]
set chamf_equal_dist [list "1 " "1.1 " "1.2 "]
dset SCALE 100
if { [string compare $command chamf_sequence] == 0 } {
puts "TODO #22909 ALL: Error: The tests should be reviewed"
puts "Error: The tests should be reviewed."
set os "ALL"
if {[array get env os_type] != ""} {
set os $env(os_type)
}
if { [string compare ${os} "Windows-64-VC9"] != 0 && [string compare ${os} "Windows-64-VC10"] != 0} {
set nf 0
if {[string compare $os "Debian60-64"] == 0 } {
if { [string compare $group dist_dist] == 0 } {
set nf 2
} elseif { [string compare $group equal_dist] == 0 } {
set nf 4
}
}
}
if { [string compare ${os} "windows"] == 0} {
if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
set nf 2
}
}
if { [string compare ${os} "MacOS"] == 0 } {
set nf 0
if { [string compare $group dist_dist] == 0 } {
puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
set nf 8
}
if { [string compare $group equal_dist] == 0 } {
puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
set nf 2
}
if { [string compare $group dist_angle] == 0 } {
puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
}
}
if { $nf != 0 } {
#puts "TODO OCC22909 $os:Faulty shapes in variables faulty_1 to faulty_$nf"
puts "TODO ?OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
}
}
|
