| 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 | |
| 11 | set nf 0 |
| 12 | if { ![checkplatform -windows] } { |
| 13 | if { [string compare $group dist_dist] == 0 } { |
| 14 | set nf 2 |
| 15 | } elseif { [string compare $group equal_dist] == 0 } { |
| 16 | set nf 4 |
| 17 | } |
| 18 | } |
| 19 | |
| 20 | if { [checkplatform -windows] } { |
| 21 | if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } { |
| 22 | set nf 2 |
| 23 | } |
| 24 | } |
| 25 | |
| 26 | if { [checkplatform -osx] } { |
| 27 | if { [string compare $group dist_dist] == 0 } { |
| 28 | puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed" |
| 29 | set nf 8 |
| 30 | } |
| 31 | if { [string compare $group equal_dist] == 0 } { |
| 32 | puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed" |
| 33 | set nf 2 |
| 34 | } |
| 35 | if { [string compare $group dist_angle] == 0 } { |
| 36 | puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed" |
| 37 | } |
| 38 | } |
| 39 | |
| 40 | if { $nf != 0 } { |
| 41 | #puts "TODO OCC22909 [checkplatform]:Faulty shapes in variables faulty_1 to faulty_$nf" |
| 42 | puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_" |
| 43 | } |
| 44 | } |