tests/bugs/modalg_1/bug15036

   1 puts "============"
   2 puts "OCC15936"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Wrong shape build by revolution algorithm
   7 #######################################################################
   8
   9 vertex v1 0 725 20
  10 vertex v2 0 709 20
  11 vertex v3 0 709 230
  12 vertex v4 0 645 230
  13 vertex v5 0 645 320
  14 vertex v6 0 805 320
  15 vertex v7 0 805 230
  16 vertex v8 0 741 230
  17 vertex v9 0 741 20
  18 edge e12 v1 v2
  19 edge e23 v2 v3
  20 edge e34 v3 v4
  21 edge e45 v4 v5
  22 edge e56 v5 v6
  23 edge e67 v6 v7
  24 edge e78 v7 v8
  25 edge e89 v8 v9
  26 edge e91 v9 v1
  27 wire w e12 e23 e34 e45 e56 e67 e78 e89 e91
  28 mkplane fr w 1
  29
  30 revol result fr 0.001428571428572667 640.5285714285715 20 -1.691188905560395E-05 0.9999999998569939 0 360
  31
  32 set square 1.03597e+06
  33 checknbshapes result -vertex 9 -edge 14 -wire 13 -face 9 -shell 1 -solid 1 -compsolid 0 -compound 0 -shape 47
  34 set 2dviewer 0