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 | |