tests/bugs/modalg/bug5805_32

   1 puts "TODO OCC11111 ALL: Error : The square of result shape is"
   2
   3 puts "============"
   4 puts "OCC5805"
   5 puts "OCC7582"
   6 puts "============"
   7
   8 #######################################################################
   9 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
  10 #######################################################################
  11 # Bad result of offset operation
  12 #######################################################################
  13
  14 set BugNumber OCC5805
  15
  16 set z1 10
  17 set z2 -10
  18
  19 # circle1
  20 circle c1 0 0 ${z1} 5
  21 mkedge ec1 c1
  22 wire UpCover ec1
  23
  24 # circle2
  25 circle c2 0 0 ${z2} 30
  26 mkedge ec2 c2
  27 wire BottomCover ec2
  28
  29 set issolid 1
  30 set isruled 1
  31 if [catch { thrusections s ${issolid} ${isruled} UpCover BottomCover } catch_result] {
  32    puts "Faulty ${BugNumber} : thrusections is wrong"
  33
  34 }
  35
  36 set distance -0.5
  37 catch { OFFSETSHAPE $distance {s_2 s_3} $calcul $type }
  38
  39
  40 set square 1223.65
  41
  42 set nb_v_good 4
  43 set nb_e_good 6
  44 set nb_w_good 6
  45 set nb_f_good 4
  46 set nb_sh_good 1
  47 set nb_sol_good 1
  48 set nb_compsol_good 0
  49 set nb_compound_good 0
  50 set nb_shape_good 22
  51
  52
  53 set index [lsearch [whatis s] Closed]
  54 if {$index == -1} {
  55   puts "Faulty ${BugNumber} : s is not Closed shape"
  56
  57 }
  58
  59 set index [lsearch [whatis result] Closed]
  60 if {$index == -1} {
  61   puts "Faulty ${BugNumber} : result is not Closed shape"
  62
  63 }
  64
  65
  66 set 2dviewer 0