tests/thrusection/specific_locked/A6

   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 setflags w1 locked
  35 setflags v4 locked
  36 setflags v5 locked
  37
  38 set issolid 1
  39 set isruled 1
  40 thrusections result ${issolid} ${isruled} v4 w1 v5 -safe
  41
  42
  43 checkprops result -s 485.502
  44
  45
  46 checknbshapes result -vertex 5 -edge 9 -wire 6 -face 6 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 28
  47
  48
  49 set index [lsearch [whatis result] Closed]
  50 if {$index == -1} {
  51   puts "Faulty ${BugNumber} : result is not Closed shape"
  52
  53 }
  54
  55