[occt.git] / tests / bugs / caf / bug350

puts "==========="
puts "OCC350"
puts "==========="

pload QAcommands

NewDocument D MDTV-Standard

vertex v1 0 0 -50
vertex v2 0 100 -50
vertex v3 100 0 -50
line l1 0 0 -50 0 1 0
line l2 0 100 -50 1 -1 0
line l3 100 0 -50 -1 0 0
mkedge e1 l1 v1 v2
mkedge e2 l2 v2 v3
mkedge e3 l3 v3 v1
wire w e1 e2 e3
plane pl 0 0 -50 0 0 1
mkface f pl w
NameImportShape D 0:1 f
NamePrism D 0:2 0:1 250 0 0 1
NameBox D 0:3 150 150 150
GetShape D 0:2 aPrism
GetShape D 0:3 aBox
NameCut D 0:4 aPrism aBox

if [catch { CheckNaming D 0:9 1 Label 0:4 1 1 1 } res] {
  puts "OCC350: Error"
}
Commit	Line	Data
a87752f3	1	puts "==========="
	2	puts "OCC350"
	3	puts "==========="
	4
	5	pload QAcommands
	6
	7	NewDocument D MDTV-Standard
	8
	9	vertex v1 0 0 -50
	10	vertex v2 0 100 -50
	11	vertex v3 100 0 -50
	12	line l1 0 0 -50 0 1 0
	13	line l2 0 100 -50 1 -1 0
	14	line l3 100 0 -50 -1 0 0
	15	mkedge e1 l1 v1 v2
	16	mkedge e2 l2 v2 v3
	17	mkedge e3 l3 v3 v1
	18	wire w e1 e2 e3
	19	plane pl 0 0 -50 0 0 1
	20	mkface f pl w
	21	NameImportShape D 0:1 f
	22	NamePrism D 0:2 0:1 250 0 0 1
	23	NameBox D 0:3 150 150 150
	24	GetShape D 0:2 aPrism
	25	GetShape D 0:3 aBox
	26	NameCut D 0:4 aPrism aBox
	27
	28	if [catch { CheckNaming D 0:9 1 Label 0:4 1 1 1 } res] {
	29	puts "OCC350: Error"
	30	}
	31