mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
42 lines
970 B
Plaintext
42 lines
970 B
Plaintext
puts "============"
|
|
puts "OCC23402"
|
|
puts "============"
|
|
puts ""
|
|
##################################################
|
|
# Issue in BRepAlgoAPI_Common - SOLID and FACE
|
|
##################################################
|
|
|
|
polyline l 0 0 0 0 5 0 0 5 5 0 3 5 0 3 3 0 2 3 0 2 5 0 0 5 0 0 0
|
|
mkplane sf l
|
|
prism s sf 5 0 0
|
|
polyline w1 -2 2.5 2 7 2.5 2 7 7 2 -2 7 2 -2 2.5 2
|
|
mkplane f1 w1
|
|
bop s f1
|
|
bopcommon c1
|
|
ttranslate c1 0 0 5
|
|
polyline w2 -2 2.5 3 7 2.5 3 7 7 3 -2 7 3 -2 2.5 3
|
|
mkplane f2 w2
|
|
bop s f2
|
|
bopcommon c2
|
|
ttranslate c2 0 0 5
|
|
polyline w3 -2 2.5 4 7 2.5 4 7 7 4 -2 7 4 -2 2.5 4
|
|
mkplane f3 w3
|
|
bop s f3
|
|
bopcommon c3
|
|
ttranslate c3 0 0 5
|
|
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops c1] full sq1
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops c2] full sq2
|
|
regexp {Mass +: +([-0-9.+eE]+)} [sprops c3] full sq3
|
|
|
|
if { $sq1 != 12.5 || $sq2 != 12.5 || $sq3 != 10 } {
|
|
puts "Error : c1 and c2 should be indeticall"
|
|
} else {
|
|
puts "OK : c1 and c2 are identicall"
|
|
}
|
|
|
|
mu4
|
|
fit
|
|
|
|
set 2dviewer 1
|