mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
33 lines
449 B
Plaintext
33 lines
449 B
Plaintext
puts "================================="
|
|
puts "COMMON of box and halfspace"
|
|
puts "================================="
|
|
|
|
vertex v1 250 250 0
|
|
vertex v2 -250 250 0
|
|
vertex v3 -250 -250 0
|
|
vertex v4 250 -250 0
|
|
|
|
edge e1 v1 v2
|
|
edge e2 v2 v3
|
|
edge e3 v3 v4
|
|
edge e4 v4 v1
|
|
|
|
wire w1 e1 e2 e3 e4
|
|
|
|
mkplane f w1
|
|
|
|
set x 0
|
|
set y 0
|
|
|
|
set Zpoint 100
|
|
set Zbox -30
|
|
|
|
halfspace hs f $x $y $Zpoint
|
|
|
|
box b 0 0 $Zbox 150 200 200
|
|
|
|
bop b hs
|
|
bopcommon result
|
|
|
|
set square 179000
|