tests/thrusection/specific/E7

   1 puts "TODO OCC7166 ALL: Error : The square of the resulting shape is"
   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
  56 # begining vertex
  57 vertex v4 55 2.5 ${z4}
  58 # ending vertex
  59 vertex v5 55 2.5 -${z4}
  60
  61 # top triangle
  62 vertex v1 0 0 ${z1}
  63 vertex v2 5 5 ${z1}
  64 vertex v3 0 10 ${z1}
  65
  66 edge e1 v1 v2
  67 edge e2 v2 v3
  68 edge e3 v3 v1
  69
  70 wire w1 e1 e2 e3
  71
  72 # top quadrangle
  73 vertex v11 15 15 ${z2}
  74 vertex v12 -15 15 ${z2}
  75 vertex v13 -15 -15 ${z2}
  76 vertex v14 15 -15 ${z2}
  77
  78 edge e11 v11 v12
  79 edge e12 v12 v13
  80 edge e13 v13 v14
  81 edge e14 v14 v11
  82
  83 wire w11 e11 e12 e13 e14
  84
  85 # top octagon
  86 vertex v21 25 25 ${z3}
  87 vertex v22 -25 25 ${z3}
  88 vertex v23 -30 10 ${z3}
  89 vertex v24 -30 -10 ${z3}
  90 vertex v25 -25 -25 ${z3}
  91 vertex v26 25 -25 ${z3}
  92 vertex v27 30 -10 ${z3}
  93 vertex v28 30 10 ${z3}
  94
  95 edge e21 v21 v22
  96 edge e22 v22 v23
  97 edge e23 v23 v24
  98 edge e24 v24 v25
  99 edge e25 v25 v26
 100 edge e26 v26 v27
 101 edge e27 v27 v28
 102 edge e28 v28 v21
 103
 104 wire w21 e21 e22 e23 e24 e25 e26 e27 e28
 105
 106 # bottom quadrangle
 107 vertex v111 15 15 -${z2}
 108 vertex v112 -15 15 -${z2}
 109 vertex v113 -15 -15 -${z2}
 110 vertex v114 15 -15 -${z2}
 111
 112 edge e111 v111 v112
 113 edge e112 v112 v113
 114 edge e113 v113 v114
 115 edge e114 v114 v111
 116
 117 wire w111 e111 e112 e113 e114
 118
 119 # bottom triangle
 120 vertex v101 0 0 -${z1}
 121 vertex v102 5 5 -${z1}
 122 vertex v103 0 10 -${z1}
 123
 124 edge e101 v101 v102
 125 edge e102 v102 v103
 126 edge e103 v103 v101
 127
 128 wire w101 e101 e102 e103
 129
 130
 131 #
 132 set issolid 0
 133 set isruled 0
 134 thrusections result ${issolid} ${isruled} v4 w1 w11 w21 w111 w101 v5
 135
 136
 137 set square 56691.9
 138
 139 set nb_v_good 2
 140 set nb_e_good 33
 141 set nb_w_good 11
 142 set nb_f_good 11
 143 set nb_sh_good 1
 144 set nb_sol_good 0
 145 set nb_compsol_good 0
 146 set nb_compound_good 0
 147 set nb_shape_good 58
 148
 149
 150
 151 set index [lsearch [whatis result] Closed]
 152 if {$index == -1} {
 153   puts "Faulty ${BugNumber} : result is not Closed shape"
 154
 155 }
 156
 157 set 3dviewer 0
 158