tests/thrusection/specific/A8

   1 puts "============"
   2 puts "OCC7166"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Improvement of API of ThruSection
   7 #######################################################################
   8
   9 set BugNumber OCC7166
  10
  11 #
  12 #              * v2
  13 #             / \
  14 #           /     \
  15 #         /    *    \
  16 #       /    v4, v5   \
  17 #     *----------------* v3
  18 #     v1
  19 #
  20
  21 vertex v1 0 0 0
  22 vertex v2 5 5 0
  23 vertex v3 10 0 0
  24
  25 vertex v4 5 2.5 20
  26 vertex v5 5 2.5 -20
  27
  28 edge e1 v1 v2
  29 edge e2 v2 v3
  30 edge e3 v3 v1
  31
  32 wire w1 e1 e2 e3
  33
  34 set issolid 1
  35 set isruled 0
  36 thrusections result ${issolid} ${isruled} v4 w1 v5
  37
  38
  39 set square 646.621
  40
  41
  42 set nb_v_good 2
  43 set nb_e_good 9
  44 set nb_w_good 3
  45 set nb_f_good 3
  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 19
  51
  52
  53
  54 set index [lsearch [whatis result] Closed]
  55 if {$index == -1} {
  56   puts "Faulty ${BugNumber} : result is not Closed shape"
  57
  58 }
  59
  60 set 3dviewer 0
  61