tests/bugs/modalg_5/bug25715_1

   1 puts "=========="
   2 puts "OCC25715"
   3 puts "=========="
   4 puts ""
   5 #############################################################
   6 # Intersection between cylinders produces excess vertices
   7 #############################################################
   8 # don't change nbshapes values according to 25715
   9
  10 pcylinder s1 0.069 0.6
  11 pcylinder s2 0.024, 0.4
  12 trotate s1 0 0 0 0 0 1 90
  13 trotate s2 0 0 0 0 1 0 90
  14 trotate s2 0 0 0 1 0 0 -45
  15 ttranslate s2 -0.2 0 0.48
  16 bcut result s1 s2
  17
  18 checknbshapes result -vertex 4 -edge 6 -wire 6 -face 4 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 23
  19 set 2dviewer 1