tests/bugs/modalg_5/bug24618_3

   1 puts "========="
   2 puts "OCC24618"
   3 puts "========="
   4 puts ""
   5 ###########################################################
   6 # Embedding vertex in BOP depends on the order of arguments
   7 ###########################################################
   8
   9 # Create a cylindrical face
  10 cylinder c1 20
  11 trimv c1 c1 0 50
  12 mkface c1 c1
  13
  14 # Create a vertex
  15 vertex v1 0 20 25
  16
  17 # Build partition
  18 bclearobjects
  19 bcleartools
  20 #---------------#
  21 baddobjects v1 c1
  22 #---------------#
  23 bfillds
  24 bbuild r
  25
  26 # Explode the result compound
  27 explode r
  28
  29 # Check number of shapes
  30 renamevar r_1 result
  31
  32 checknbshapes result -vertex 1 -edge 0 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 0 -shape 1
  33 checkview -display result -2d -path ${imagedir}/${test_image}.png