0023709: Redesign of hlrtest command: vhlr and vhlrtype commands were added; hlr...
[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
40093367 17 if { [string compare $group equal_dist] == 0 } {
4dabfbf2 18 if {[string compare $os "Debian40"] == 0 || [string compare $os "Mandriva2008"] == 0 || [string compare $os "Mandriva2010"] == 0 } {
40093367 19 set nf 4
20 }
21 }
4dabfbf2 22 if { [string compare $group dist_dist] == 0 } {
23 if {[string compare $os "Mandriva2010"] == 0} {
24 set nf 2
25 ##set nf 0
26 }
40093367 27 }
4dabfbf2 28 }
29
30 if { [string compare ${os} "windows"] == 0} {
31 if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
32 set nf 2
40093367 33 }
34 }
4dabfbf2 35
36 if { $nf != 0 } {
37 #puts "TODO OCC22909 $os:Faulty shapes in variables faulty_1 to faulty_$nf"
38 puts "TODO OCC22909 $os:Faulty shapes in variables faulty_1 to faulty_"
39 }
40093367 40}