tests/bugs/modalg_2/bug22818_2

   1 puts "================"
   2 puts "OCC22818"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # Wrong triangulation of Revolution surface with slice angle <= 180 degree
   7 ######################################################################################
   8
   9 set BugNumber OCC22818
  10
  11 vertex v1 0 10 0
  12 vertex v2 0 10 10
  13 vertex v3 0 5 5
  14 vertex v4 0 0 -10
  15 edge e1 v1 v2
  16 edge e2 v2 v3
  17 edge e3 v3 v1
  18 wire w1 e1 e2 e3
  19 plane pln 0 5 5 1 0 0
  20 mkface f1 pln
  21 add w1 f1
  22 don f1
  23 revol result f1 0 10 0 0 0 1 180
  24 checkshape result
  25
  26 set square 161.072
  27
  28 set nb_v_good 3
  29 set nb_e_good 8
  30 set nb_w_good 4
  31 set nb_f_good 4
  32 set nb_sh_good 1
  33 set nb_sol_good 1
  34 set nb_compsol_good 0
  35 set nb_compound_good 0
  36 set nb_shape_good 21
  37
  38 vinit
  39 vdisplay result
  40 vsetdispmode 1
  41 vfit
  42 vzfit
  43
  44 # relative tolerance (%)
  45 set rel_tol 1
  46 set area_eps 0
  47
  48 set only_screen 1