tests/thrusection/specific/M7

   1 puts "============"
   2 puts "OCC7166"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Improvement of API of ThruSection
   7 #######################################################################
   8
   9 set BugNumber OCC7166
  10
  11 set z1 40
  12 set z2 20
  13 set z3 0
  14 set z4 100
  15
  16 # spine
  17 polyline s1 0 0 ${z4} 0 0 -${z4}
  18
  19 # beginning vertex
  20 vertex v4 0 0 ${z4}
  21 # ending vertex
  22 vertex v5 0 0 -${z4}
  23
  24 # profile
  25 # top triangle
  26 vertex v1 0 0 ${z1}
  27 vertex v2 5 5 ${z1}
  28 vertex v3 0 10 ${z1}
  29
  30 edge e1 v1 v2
  31 edge e2 v2 v3
  32 edge e3 v3 v1
  33
  34 wire w1 e1 e2 e3
  35
  36 # top quadrangle
  37 vertex v11 15 15 ${z2}
  38 vertex v12 -15 15 ${z2}
  39 vertex v13 -15 -15 ${z2}
  40 vertex v14 15 -15 ${z2}
  41
  42 edge e11 v11 v12
  43 edge e12 v12 v13
  44 edge e13 v13 v14
  45 edge e14 v14 v11
  46
  47 wire w11 e11 e12 e13 e14
  48
  49 # top octagon
  50 vertex v21 25 25 ${z3}
  51 vertex v22 -25 25 ${z3}
  52 vertex v23 -30 10 ${z3}
  53 vertex v24 -30 -10 ${z3}
  54 vertex v25 -25 -25 ${z3}
  55 vertex v26 25 -25 ${z3}
  56 vertex v27 30 -10 ${z3}
  57 vertex v28 30 10 ${z3}
  58
  59 edge e21 v21 v22
  60 edge e22 v22 v23
  61 edge e23 v23 v24
  62 edge e24 v24 v25
  63 edge e25 v25 v26
  64 edge e26 v26 v27
  65 edge e27 v27 v28
  66 edge e28 v28 v21
  67
  68 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
  69
  70 # bottom quadrangle
  71 vertex v111 15 15 -${z2}
  72 vertex v112 -15 15 -${z2}
  73 vertex v113 -15 -15 -${z2}
  74 vertex v114 15 -15 -${z2}
  75
  76 edge e111 v111 v112
  77 edge e112 v112 v113
  78 edge e113 v113 v114
  79 edge e114 v114 v111
  80
  81 wire w111 e111 e112 e113 e114
  82
  83 # bottom triangle
  84 vertex v101 0 0 -${z1}
  85 vertex v102 5 5 -${z1}
  86 vertex v103 0 10 -${z1}
  87
  88 edge e101 v101 v102
  89 edge e102 v102 v103
  90 edge e103 v103 v101
  91
  92 wire w101 e101 e102 e103
  93
  94 mksweep s1
  95
  96 addsweep v4
  97 addsweep w1 -T
  98 addsweep w11 -T
  99 addsweep w21 -T
 100 addsweep w111 -T
 101 addsweep w101 -T
 102 addsweep v5
 103
 104 catch {buildsweep result}
 105
 106
 107 checkprops result -s 625461
 108
 109 checknbshapes result -vertex 2 -edge 33 -wire 11 -face 11 -shell 1 -solid 0 -compsolid 0 -compound 0 -shape 58
 110
 111
 112 set index [lsearch [whatis result] Closed]
 113 if {$index == -1} {
 114   puts "Faulty ${BugNumber} : result is not Closed shape"
 115
 116 }
 117
 118