tests/bugs/modalg_7/bug27711_2

   1 puts "TODO OCC27711 ALL: ERROR: OCC27711 is reproduced. Result of blend operation is WRONG."
   2 puts "TODO OCC27711 ALL: Error: tolerance"
   3 puts "TODO OCC27711 ALL: Faulty shapes in variables faulty_1 to faulty_"
   4 puts "========"
   5 puts "OCC27711"
   6 puts "========"
   7 puts ""
   8 #####################################
   9 # Blend-on-blend corrupts the shape
  10 #####################################
  11
  12 smallview
  13
  14 restore [locate_data_file bug27711.brep] s
  15
  16 clear
  17 display s
  18 fit
  19 xwd $imagedir/${casename}_step_0.png
  20
  21 explode s e
  22 blend r1 s 0.5 s_7 0.5 s_12
  23 set bug_info [string trim [checkshape r1]]
  24 if {$bug_info != "This shape seems to be valid"} {
  25   puts "ERROR: Problem of test case functionality. Should be additionally investigated."
  26 }
  27 clear
  28 display r1
  29 xwd $imagedir/${casename}_step_1.png
  30
  31 explode r1 e
  32 blend r1 r1 0.5 r1_1 0.5 r1_8
  33 set bug_info [string trim [checkshape r1]]
  34 if {$bug_info != "This shape seems to be valid"} {
  35   puts "ERROR: Problem of test case functionality. Should be additionally investigated."
  36 }
  37 clear
  38 display r1
  39 xwd $imagedir/${casename}_step_2.png
  40
  41 explode r1 e
  42 blend result r1 0.35 r1_4 0.25 r1_15 0.2 r1_27
  43 set bug_info [string trim [checkshape result]]
  44 if {$bug_info != "This shape seems to be valid"} {
  45   puts "ERROR: OCC27711 is reproduced. Result of blend operation is WRONG."
  46 }
  47 checkmaxtol result -min_tol 1.e-3
  48 clear
  49 display result
  50 xwd $imagedir/${casename}_step_3.png