1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
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
|
