tests/thrusection/specific/G4

   1 puts "TODO OCC7166 ALL: Error :  is WRONG because number of  "
   2
   3 puts "============"
   4 puts "OCC7166"
   5 puts "============"
   6 puts ""
   7 #######################################################################
   8 # Improvement of API of ThruSection
   9 #######################################################################
  10
  11 set BugNumber OCC7166
  12
  13 #
  14 #
  15 #
  16 #
  17 #
  18 #                     v22                    v21
  19 #                     *----------------------*
  20 #                    /                        \
  21 #                   /                          \
  22 #                  / v12                   v11  \
  23 #                 /  *---------------------*     \
  24 #                /   |                     |      \
  25 #               /    |                     |       \
  26 #              * v23 |  * v3               |    v28 *
  27 #              |     |  | \                |        |
  28 #              |     |  |   \              |        |
  29 #              |     |  |     \            |        |
  30 #              |     |  |       \          |        |
  31 #              |     |  |       /* v2      |        |
  32 #              |     |  |     /            |        |
  33 #              |     |  |   /              |        |        * v4, v5
  34 #              |     |  | /                |        |
  35 #              |     |  *                  |        |
  36 #              |     |  v1                 |        |
  37 #              |     |                     |        |
  38 #              |     |                     |        |
  39 #              * v24 |                     |    v27 *
  40 #               \    |                     |       /
  41 #                \   *---------------------*      /
  42 #                 \  v13                   v14   /
  43 #                  \                            /
  44 #                   \                          /
  45 #                    \ v25                v26 /
  46 #                     *----------------------*
  47 #
  48 #
  49 #
  50
  51 set z1 40
  52 set z2 20
  53 set z3 0
  54 set z4 100
  55 set z5 30
  56 set z6 10
  57
  58 # beginning vertex
  59 vertex v4 55 2.5 ${z4}
  60 # ending vertex
  61 vertex v5 55 2.5 -${z4}
  62
  63 # top triangle
  64 vertex v1 0 0 ${z1}
  65 vertex v2 5 5 ${z1}
  66 vertex v3 0 10 ${z1}
  67
  68 edge e1 v1 v2
  69 edge e2 v2 v3
  70 edge e3 v3 v1
  71
  72 wire w1 e1 e2 e3
  73
  74 # top beziercurve
  75 beziercurve bzc1 5 5 5 ${z5} 5 -5 ${z5} -5 -5 ${z5} -5 5 ${z5} 5 5 ${z5}
  76 mkedge ebzc1 bzc1
  77 wire wbzc1 ebzc1
  78
  79 # top quadrangle
  80 vertex v11 15 15 ${z2}
  81 vertex v12 -15 15 ${z2}
  82 vertex v13 -15 -15 ${z2}
  83 vertex v14 15 -15 ${z2}
  84
  85 edge e11 v11 v12
  86 edge e12 v12 v13
  87 edge e13 v13 v14
  88 edge e14 v14 v11
  89
  90 wire w11 e11 e12 e13 e14
  91
  92 # top pbsplinecurve
  93 pbsplinecurve pbc1 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 ${z6} 1 -2 2 ${z6} 1 0 1 ${z6} 1 2 2 ${z6} 1 1 0 ${z6} 1 2 -2 ${z6} 1 0 -1 ${z6} 1 -2 -2 ${z6} 1
  94 mkedge epbc1 pbc1
  95 wire wpbc1 epbc1
  96
  97 # octagon
  98 vertex v21 25 25 ${z3}
  99 vertex v22 -25 25 ${z3}
 100 vertex v23 -30 10 ${z3}
 101 vertex v24 -30 -10 ${z3}
 102 vertex v25 -25 -25 ${z3}
 103 vertex v26 25 -25 ${z3}
 104 vertex v27 30 -10 ${z3}
 105 vertex v28 30 10 ${z3}
 106
 107 edge e21 v21 v22
 108 edge e22 v22 v23
 109 edge e23 v23 v24
 110 edge e24 v24 v25
 111 edge e25 v25 v26
 112 edge e26 v26 v27
 113 edge e27 v27 v28
 114 edge e28 v28 v21
 115
 116 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
 117
 118 # bottom pbsplinecurve
 119 pbsplinecurve pbc2 3 9 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 -1 0 -${z6} 1 -2 2 -${z6} 1 0 1 -${z6} 1 2 2 -${z6} 1 1 0 -${z6} 1 2 -2 -${z6} 1 0 -1 -${z6} 1 -2 -2 -${z6} 1
 120 mkedge epbc2 pbc2
 121 wire wpbc2 epbc2
 122
 123 # bottom quadrangle
 124 vertex v111 15 15 -${z2}
 125 vertex v112 -15 15 -${z2}
 126 vertex v113 -15 -15 -${z2}
 127 vertex v114 15 -15 -${z2}
 128
 129 edge e111 v111 v112
 130 edge e112 v112 v113
 131 edge e113 v113 v114
 132 edge e114 v114 v111
 133
 134 wire w111 e111 e112 e113 e114
 135
 136 # bottom beziercurve
 137 beziercurve bzc2 5 5 5 -${z5} 5 -5 -${z5} -5 -5 -${z5} -5 5 -${z5} 5 5 -${z5}
 138 mkedge ebzc2 bzc2
 139 wire wbzc2 ebzc2
 140
 141 # bottom triangle
 142 vertex v101 0 0 -${z1}
 143 vertex v102 5 5 -${z1}
 144 vertex v103 0 10 -${z1}
 145
 146 edge e101 v101 v102
 147 edge e102 v102 v103
 148 edge e103 v103 v101
 149
 150 wire w101 e101 e102 e103
 151
 152
 153 #
 154 set issolid 1
 155 set isruled 1
 156 #thrusections result ${issolid} ${isruled} v4 w1 w11 w21 w111 w101 v5
 157 thrusections result ${issolid} ${isruled} v4 w1 wbzc1 w11 wpbc1 w21 wpbc2 w111 wbzc2 w101 v5
 158
 159
 160 checkprops result -s 12786.5
 161
 162
 163 checknbshapes result -vertex 101 -edge 209 -wire 110 -face 110 -shell 1 -solid 2 -compsolid 0 -compound 0 -shape 532
 164
 165
 166 set index [lsearch [whatis result] Closed]
 167 if {$index == -1} {
 168   puts "Faulty ${BugNumber} : result is not Closed shape"
 169
 170 }
 171
 172