tests/bugs/modalg_3/bug5805_51

   1 puts "============"
   2 puts "OCC5805"
   3 puts "============"
   4
   5 #######################################################################
   6 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
   7 #######################################################################
   8
   9 set BugNumber OCC5805
  10
  11 # pcone
  12 pcone s 30 5 20
  13 explode s sh
  14 renamevar s_1 s
  15
  16 set distance -0.5
  17 catch { OFFSETSHAPE $distance {s_3} $calcul $type }
  18
  19
  20 set square 7157.43
  21
  22 checknbshapes result -vertex 4 -edge 6 -wire 6 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 23
  23
  24 set index [lsearch [whatis s] Closed]
  25 if {$index == -1} {
  26   puts "Faulty ${BugNumber} : s is not Closed shape"
  27
  28 }
  29
  30 set index [lsearch [whatis result] Closed]
  31 if {$index == -1} {
  32   puts "Faulty ${BugNumber} : result is not Closed shape"
  33
  34 }
  35
  36
  37 set 2dviewer 0