mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-08-11 09:33:52 +08:00
Angelo Bartolome
cbca11e975
- Retain coincident segments only when no regular hatching domain exists. - Add synthetic tests for limiting and partial boundary overlaps. CLA: 1144
24 lines
497 B
Plaintext
Executable File
24 lines
497 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC25478"
|
|
puts "============"
|
|
puts ""
|
|
########################
|
|
# Fillets can not touch
|
|
########################
|
|
|
|
box Box001 10 10 10
|
|
box Box002 10 10 12
|
|
ttranslate Box002 5 5 -1
|
|
bcut Cut Box001 Box002
|
|
explode Cut E
|
|
|
|
catch { blend Fillet002 Cut 2.5 Cut_13 2.5 Cut_17 2.5 Cut_18 } msg
|
|
|
|
if { [info exist Fillet002] == 0 } {
|
|
puts "Error: Fillets can not touch"
|
|
} else {
|
|
puts "OK: Fillets can touch"
|
|
}
|
|
|
|
checkview -display Fillet002 -2d -path ${imagedir}/${test_image}.png
|