tests/bugs/modalg_2/bug5805_30

   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 10
  14 set z2 -10
  15
  16 # circle1
  17 circle c1 0 0 ${z1} 5
  18 mkedge ec1 c1
  19 wire UpCover ec1
  20
  21 # circle2
  22 circle c2 0 0 ${z2} 30
  23 mkedge ec2 c2
  24 wire BottomCover ec2
  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.5
  34 catch { OFFSETSHAPE $distance {s_2} $calcul $type }
  35
  36
  37 checkprops result -s 1336.75
  38 checkshape result
  39
  40 checknbshapes result -vertex 4 -edge 6 -wire 6 -face 5 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 23
  41
  42 set index [lsearch [whatis s] Closed]
  43 if {$index == -1} {
  44   puts "Faulty ${BugNumber} : s is not Closed shape"
  45
  46 }
  47
  48 set index [lsearch [whatis result] Closed]
  49 if {$index == -1} {
  50   puts "Faulty ${BugNumber} : result is not Closed shape"
  51
  52 }
  53
  54
  55 checkview -display result -2d -path ${imagedir}/${test_image}.png