tests/bugs/modalg_2/bug5805_18

   1 puts "TODO OCC25925 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2
   3 puts "============"
   4 puts "OCC5805"
   5 puts "============"
   6
   7 #######################################################################
   8 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
   9 #######################################################################
  10
  11 set BugNumber OCC5805
  12
  13 set z1 5
  14 set z2 -5
  15
  16 # beziercurve1
  17 beziercurve bc1 5 5 5 ${z1} 5 -5 ${z1} -5 -5 ${z1} -5 5 ${z1} 5 5 ${z1}
  18 mkedge e1 bc1
  19 wire UpCover e1
  20
  21 # beziercurve2
  22 copy e1 e2
  23 ttranslate e2 0 0 ${z2}
  24 wire BottomCover e2
  25
  26 set issolid 1
  27 set isruled 1
  28 if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
  29    puts "Faulty ${BugNumber} : thrusections is wrong"
  30
  31 }
  32
  33 set distance -0.001
  34 catch { OFFSETSHAPE $distance {s_2} $calcul $type }
  35 # Bad result
  36
  37 checkprops result -s 358.795
  38
  39 set index [lsearch [whatis s] Closed]
  40 if {$index == -1} {
  41   puts "Faulty ${BugNumber} : s is not Closed shape"
  42
  43 }
  44
  45 set index [lsearch [whatis result] Closed]
  46 if {$index == -1} {
  47   puts "Faulty ${BugNumber} : result is not Closed shape"
  48
  49 }
  50
  51 checkshape result
  52 checknbshapes result -vertex 4 -edge 5 -wire 5 -face 5 -shell 2 -solid 1 -compsolid 0 -compound 0 -shape 22
  53 checkview -display result -2d -path ${imagedir}/${test_image}.png