Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug60854
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