tests/bugs/modalg_5/bug25232_8

   1 puts "============"
   2 puts "OCC25232"
   3 puts "============"
   4 puts ""
   5 #########################################################################
   6 # Functionality to create solids from set of shapes
   7 #########################################################################
   8
   9 cylinder cyl 10
  10 trimv cyl cyl -20 20
  11 mkface fcyl cyl
  12 cone con 45 0
  13 trimv con1 con 0 15
  14 trimv con2 con -15 0
  15 mkface fcon1 con1
  16 mkface fcon2 con2
  17 plane pl 0 0 15 0 0 1
  18 mkface fp pl -15 15 -15 15
  19 sphere sph 0 0 0 12
  20 mkface fsph sph
  21
  22 trimv con3 con 0 30
  23 mkface fcon3 con3
  24 mkvolume result fcon3 fp
  25 # 1 solid created
  26
  27 set square 1706.51
  28
  29 set nb_v_good 4
  30 set nb_e_good 5
  31 set nb_w_good 2
  32 set nb_f_good 2
  33 set nb_sh_good 1
  34 set nb_sol_good 1
  35 set nb_compsol_good 0
  36 set nb_compound_good 0
  37 set nb_shape_good 15
  38
  39 set 2dviewer 1