tests/bugs/modalg_7/bug27711_3

   1 puts "TODO CR27711 Linux: Tcl Exception: tolerance ang : 0.01"
   2 puts "TODO CR27711 Linux: TEST INCOMPLETE"
   3
   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_12 0.5 s_11
  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 result r1 0.5 r1_7 0.5 r1_11
  33 set bug_info [string trim [checkshape result]]
  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 result
  39 xwd $imagedir/${casename}_step_2.png