tests/bugs/modalg_2/bug22818_1

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