tests/bugs/modalg_5/bug25232_5

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