bf3a0afc64fe932f4a8a4b19588191c7f90d6c14
[occt.git] / 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