tests/bugs/moddata_1/buc60854

   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