tests/bugs/modalg_6/bug27552_2

   1 puts "=========="
   2 puts "OCC27552"
   3 puts "=========="
   4 puts ""
   5 #######################################
   6 # Wire creation fails depending on the order of edges
   7 #######################################
   8
   9
  10 #4 vertices in row
  11 point p1 0 0 0
  12 point p2 5 0 0
  13 point p4 10 0 0
  14 point p3 12.5 0 0
  15 point p5 20 0 0
  16
  17 vertex v1 p1
  18 vertex v2 p2
  19 vertex v3 p3
  20 vertex v4 p4
  21 vertex v5 p5
  22
  23 settolerance v1 3
  24 settolerance v2 6
  25 settolerance v3 3
  26 settolerance v4 1
  27
  28 point d 0 10 0
  29 vertex dv d
  30 edge e1 v1 dv
  31 edge e2 v2 dv
  32 edge e3 v3 dv
  33 edge e4 v4 dv
  34 edge e5 dv v5
  35
  36 wire w2 -unsorted e1 e2 e3 e4 e5
  37
  38 checkshape w2
  39 checknbshapes w2 -vertex 3 -edge 5
  40 nexplode w2 v
  41 checkmaxtol w2_2 -ref 9.875
  42
  43