3a3a1533aa127972a37832fcc57fd1a0a0d8e6b4
[occt.git] / tests / chamfer / data / complex / B9
1 set chamf_shape 4_L1(hlacg03).draw
2 set chamf_edge_face  [list "  6  1" "  5   1" "  9   2"]
3 set chamf_dist_angle [list "1.2 30" "  1  30" "  1  30"]
4 set chamf_dist_dist  [list "1.1  1" "  1 1.2" "  1 1.4"]
5 set chamf_equal_dist [list "1     " "1.1    " "1.2    "]
6 dset SCALE 100
7 if { [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   }
14   
15   if { [string compare ${os} "Windows-64-VC9"] != 0 && [string compare ${os} "Windows-64-VC10"] != 0} {
16     set nf 0
17     if { [string compare $group equal_dist] == 0 } {
18       if {[string compare $os "Debian40"] == 0 || [string compare $os "Mandriva2008"] == 0 || [string compare $os "Mandriva2010"] == 0 } {
19         set nf 4
20       }
21     }
22     if { [string compare $group dist_dist] == 0 } {
23       if {[string compare $os "Mandriva2010"] == 0} {
24         set nf 2
25       ##set nf 0
26       }
27     }
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
33     }
34   }
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   }
40 }