tests/bugs/modalg_2/bug5805_20

   1 puts "TODO OCC25925 ALL: Error : The area of result shape is"
   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 s_3} $calcul $type }
  35 # Bad result
  36
  37
  38 checkprops result -s 495.635
  39
  40 set index [lsearch [whatis s] Closed]
  41 if {$index == -1} {
  42   puts "Faulty ${BugNumber} : s is not Closed shape"
  43
  44 }
  45
  46 set index [lsearch [whatis result] Closed]
  47 if {$index == -1} {
  48   puts "Faulty ${BugNumber} : result is not Closed shape"
  49
  50 }
  51
  52 checknbshapes result -vertex 1 -edge 2 -wire 3 -face 3 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 11
  53
  54 checkview -display result -2d -path ${imagedir}/${test_image}.png