[occt.git] / tests / bugs / moddata_1 / buc60854

puts "TODO OCC12345 ALL: BUC60854: Error"

puts "========"
puts "BUC60854"
puts "========"

pload QAcommands

plane test_plane
mkface test_face test_plane 0 1 0 1

vertex test_vertex_1 0 0.5 0
vertex test_vertex_2 1 0.5 0
edge test_edge test_vertex_1 test_vertex_2

splitshape test_shape test_face test_face test_edge

explode test_shape f

renamevar test_shape_1 test_face

vertex test_vertex_3 0.2 0.5 0
vertex test_vertex_4 0.8 0.5 0
edge test_edge_1 test_vertex_3 test_vertex_4

vertex test_vertex_5 0 1 0
edge test_edge_2 test_vertex_5 test_vertex_3

vertex test_vertex_6 1 1 0
edge test_edge_3 test_vertex_4 test_vertex_6

BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1

erase test_plane

regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num

if {${FACE_num} != 3} {
  puts "BUC60854: Error"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "TODO OCC12345 ALL: BUC60854: Error"
	2
	3	puts "========"
	4	puts "BUC60854"
	5	puts "========"
	6
	7	pload QAcommands
	8
	9	plane test_plane
	10	mkface test_face test_plane 0 1 0 1
	11
	12	vertex test_vertex_1 0 0.5 0
	13	vertex test_vertex_2 1 0.5 0
	14	edge test_edge test_vertex_1 test_vertex_2
	15
	16	splitshape test_shape test_face test_face test_edge
	17
	18	explode test_shape f
	19
	20	renamevar test_shape_1 test_face
	21
	22	vertex test_vertex_3 0.2 0.5 0
	23	vertex test_vertex_4 0.8 0.5 0
	24	edge test_edge_1 test_vertex_3 test_vertex_4
	25
	26	vertex test_vertex_5 0 1 0
	27	edge test_edge_2 test_vertex_5 test_vertex_3
	28
	29	vertex test_vertex_6 1 1 0
	30	edge test_edge_3 test_vertex_4 test_vertex_6
	31
	32	BUC60854 result test_shape test_face test_edge_2 test_edge_3 @ test_edge test_edge_1
	33
	34	erase test_plane
	35
	36	regexp {FACE +: +([-0-9.+eE]+)} [numshapes result] full FACE_num
	37
	38	if {${FACE_num} != 3} {
	39	puts "BUC60854: Error"
	40	}
	41
	42	set 2dviewer 0
	43