tests/thrusection/specific/J2

   1 puts "============"
   2 puts "OCC7166"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Improvement of API of ThruSection
   7 #######################################################################
   8
   9 set BugNumber OCC7166
  10
  11 # spine
  12 polyline s1 0 0 20 0 0 -20
  13
  14 # profile
  15 circle c1 0 0 0 5
  16 mkedge ec1 c1
  17 wire s2 ec1
  18
  19 # 1 vertex
  20 vertex v1 40 0 -20
  21
  22 # 2 vertex
  23 vertex v2 40 0 20
  24
  25 mksweep s1
  26
  27 addsweep v1
  28 addsweep s2
  29 addsweep v2
  30
  31 buildsweep result
  32
  33
  34 set square 1277.32
  35
  36 set nb_v_good 2
  37 set nb_e_good 3
  38 set nb_w_good 1
  39 set nb_f_good 1
  40 set nb_sh_good 1
  41 set nb_sol_good 0
  42 set nb_compsol_good 0
  43 set nb_compound_good 0
  44 set nb_shape_good 8
  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 set 3dviewer 0
  55