tests/thrusection/specific/A1

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