tests/bugs/modalg_5/bug25232_4

   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 mkvolume result fcyl fcon1 fcon2 fp fsph
  23 # 7 solids created
  24
  25 checkprops result -s 6725.11
  26 checkshape result
  27
  28 checknbshapes result -vertex 12 -edge 26 -wire 14 -face 14 -shell 7 -solid 7 -compsolid 0 -compound 1 -shape 81
  29 checkview -display result -2d -path ${imagedir}/${test_image}.png