mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
22 lines
808 B
Plaintext
22 lines
808 B
Plaintext
set chamf_shape 8_J1.draw
|
|
set chamf_edge_face [list " 3 2" " 9 2"]
|
|
set chamf_dist_angle [list "0.1 60" "0.06 60"]
|
|
set chamf_dist_dist [list "0.1 0.08" "0.12 0.08"]
|
|
set chamf_equal_dist [list "0.1 " "0.2 "]
|
|
if { [string compare $command chamf] == 0 } {
|
|
if {[string compare $group dist_angle] == 0 || [string compare $group equal_dist] == 0} {
|
|
puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"
|
|
}
|
|
} else {
|
|
set os "ALL"
|
|
if {[array get env os_type] != ""} {
|
|
set os $env(os_type)
|
|
}
|
|
if {[string compare $group dist_angle] == 0} {
|
|
puts "TODO ?OCC22909 ${os}:Faulty shapes in variables faulty_1 to faulty_8"
|
|
}
|
|
if {[string compare $group equal_dist] == 0} {
|
|
puts "TODO ?OCC22909 ${os}:Faulty shapes in variables faulty_1 to faulty_4"
|
|
}
|
|
}
|