tests/bugs/modalg_7/bug29807_b3a

   1 puts "========"
   2 puts "0029807: Impossible to cut cone from prism"
   3 puts "========"
   4 puts ""
   5
   6 puts "TODO OCC29922 ALL: Error: Degenerated edge is not found"
   7 puts "TODO OCC29922 ALL: Error: Result contains not triangulated face"
   8
   9 restore [locate_data_file bug29807-obj.brep] b1
  10 restore [locate_data_file bug29807-tool.brep] b2
  11
  12 trotate b2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 -5
  13 removeloc b2 b2
  14
  15 bclearobjects
  16 bcleartools
  17 baddobjects b1
  18 baddtools b2
  19 bfillds
  20
  21 # CUT operation
  22 bbop result 2
  23
  24 savehistory ResHist
  25
  26 checkshape result
  27 checkprops result -v 9465.07 -s 4012.74
  28 checknbshapes result -face 9 -wire 9
  29
  30 if {[regexp "Faulties" [bopargcheck result]]} {
  31   puts "Error: bopargcheck has found some faulties in result"
  32 }
  33
  34 explode b2 f
  35 modified reshm ResHist b2_2
  36
  37 checknbshapes reshm -face 2
  38
  39 foreach a [explode reshm f] {
  40   # Every modified face must contain degenerated edge
  41
  42   if { ![regexp {degenerated} [dump $a] ] } {
  43     puts "Error: Degenerated edge is not found"
  44   }
  45 }
  46
  47 vdisplay result
  48 vsetdispmode 1
  49 vviewparams -scale 52.4803 -proj 0.285421 0.0158136 0.958272 -up -0.810772 0.537155 0.232624 -at 29.6172 13.0268 3.82234 -eye 47.7439 14.0311 64.6808
  50
  51 if { [regexp {no triangulation} [tricheck result] ] } {
  52   puts "Error: Result contains not triangulated face"
  53 }
  54
  55 checkview -screenshot -3d -path ${imagedir}/${test_image}.png