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 set nb_v_good 1
  33 set nb_e_good 0
  34 set nb_w_good 0
  35 set nb_f_good 0
  36 set nb_sh_good 0
  37 set nb_sol_good 0
  38 set nb_compsol_good 0
  39 set nb_compound_good 0
  40 set nb_shape_good 1
  41
  42 set 2dviewer 1