tests/bugs/modalg_2/bug5805_30

   1 puts "TODO OCC25925 ALL: Error : The square 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 set square 1336.75
  38
  39 set nb_v_good 4
  40 set nb_e_good 6
  41 set nb_w_good 6
  42 set nb_f_good 5
  43 set nb_sh_good 1
  44 set nb_sol_good 1
  45 set nb_compsol_good 0
  46 set nb_compound_good 0
  47 set nb_shape_good 23
  48
  49
  50 set index [lsearch [whatis s] Closed]
  51 if {$index == -1} {
  52   puts "Faulty ${BugNumber} : s is not Closed shape"
  53
  54 }
  55
  56 set index [lsearch [whatis result] Closed]
  57 if {$index == -1} {
  58   puts "Faulty ${BugNumber} : result is not Closed shape"
  59
  60 }
  61
  62
  63 set 2dviewer 0