mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-07 18:30:55 +03:00
34dd4990ed
Modifications: 1.Test cases 2. locate_data_file from DrawResources/TestCommands.tcl Fix for mesh end Adjusting testing cases for current state of master using new organization of data files
34 lines
505 B
Plaintext
34 lines
505 B
Plaintext
puts "================================="
|
|
puts "CUT of box and halfspace"
|
|
puts "Case is duplicate of chl 918 CIN001_b5.rle, bug OCC297 "
|
|
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
|
|
bopcut result
|
|
|
|
set square 81000
|