tests/bugs/modalg_7/bug28167

   1 puts "TODO OCC28167 ALL: Error: Fillet has strange form at its end"
   2
   3 puts "========"
   4 puts "OCC28167"
   5 puts "========"
   6 puts ""
   7 #####################################
   8 # Fillet has strange form at its end
   9 #####################################
  10
  11 restore [locate_data_file bug28167_solid.brep] s
  12
  13 explode s E
  14
  15 fillet r s 1 s_3
  16
  17 explode r F
  18 explode r_6 E
  19 renamevar r_6_1 res
  20
  21 regexp {Mass +: +([-0-9.+eE]+)} [lprops res] full length_r_6_1
  22
  23 set expected_length 1.31899
  24 set toleranse 1.e-4
  25 if {[expr abs(${length_r_6_1} - ${expected_length})] <= ${toleranse}} {
  26    puts "Error: Fillet has strange form at its end"
  27 }
  28
  29 checkview -display r_6 -2d -path ${imagedir}/${test_image}.png