0024927: Getting rid of "Persistent" functionality -- Documentation
[occt.git] / tests / chamfer / data / complex / B9
CommitLineData
34dd4990 1set chamf_shape 4_L1(hlacg03).draw
40093367 2set chamf_edge_face [list " 6 1" " 5 1" " 9 2"]
3set chamf_dist_angle [list "1.2 30" " 1 30" " 1 30"]
4set chamf_dist_dist [list "1.1 1" " 1 1.2" " 1 1.4"]
5set chamf_equal_dist [list "1 " "1.1 " "1.2 "]
6dset SCALE 100
7if { [string compare $command chamf_sequence] == 0 } {
8 puts "TODO #22909 ALL: Error: The tests should be reviewed"
9 puts "Error: The tests should be reviewed."
10 set os "ALL"
11 if {[array get env os_type] != ""} {
12 set os $env(os_type)
13 }
4dabfbf2 14
40093367 15 if { [string compare ${os} "Windows-64-VC9"] != 0 && [string compare ${os} "Windows-64-VC10"] != 0} {
64f48258 16 set nf 0
aad4bc1f 17 if {[string compare $os "Debian70-64"] == 0 } {
a520f6eb 18 if { [string compare $group dist_dist] == 0 } {
4dabfbf2 19 set nf 2
aefdc31b 20 } elseif { [string compare $group equal_dist] == 0 } {
a520f6eb 21 set nf 4
4dabfbf2 22 }
40093367 23 }
4dabfbf2 24 }
25
26 if { [string compare ${os} "windows"] == 0} {
27 if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
28 set nf 2
40093367 29 }
30 }
bcfb87eb 31
32 if { [string compare ${os} "MacOS"] == 0 } {
33 set nf 0
34 if { [string compare $group dist_dist] == 0 } {
3cdfdc9a 35 puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
bcfb87eb 36 set nf 8
37 }
38 if { [string compare $group equal_dist] == 0 } {
3cdfdc9a 39 puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
bcfb87eb 40 set nf 2
41 }
3cdfdc9a 42 if { [string compare $group dist_angle] == 0 } {
43 puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
44 }
bcfb87eb 45 }
46
4dabfbf2 47 if { $nf != 0 } {
48 #puts "TODO OCC22909 $os:Faulty shapes in variables faulty_1 to faulty_$nf"
9aa684ed 49 puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
4dabfbf2 50 }
40093367 51}