tests/bugs/modalg_2/bug5805_21

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