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
|
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 env(os_type) $tcl_platform(platform)
set nf 0
if { [string compare ${env(os_type)} "windows"] != 0 } {
if { [string compare $group dist_dist] == 0 } {
set nf 2
} elseif { [string compare $group equal_dist] == 0 } {
set nf 4
}
}
if { [string compare ${env(os_type)} "windows"] == 0} {
if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
set nf 2
}
}
if { [string compare ${env(os_type)} "MacOS"] == 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 $env(os_type):Faulty shapes in variables faulty_1 to faulty_$nf"
puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
}
}
|
