0030435: Improving performance of Approx_ComputeCLine
[occt.git] / tests / bugs / modalg_7 / bug27711_3
1 puts "========"
2 puts "OCC27711"
3 puts "========"
4 puts ""
5 #####################################
6 # Blend-on-blend corrupts the shape
7 #####################################
8
9 smallview
10
11 restore [locate_data_file bug27711.brep] s
12
13 clear
14 display s
15 fit
16 xwd $imagedir/${casename}_step_0.png
17
18 explode s e
19 blend r1 s 0.5 s_12 0.5 s_11
20 set bug_info [string trim [checkshape r1]]
21 if {$bug_info != "This shape seems to be valid"} {
22   puts "ERROR: Problem of test case functionality. Should be additionally investigated."
23 }
24 clear
25 display r1
26 xwd $imagedir/${casename}_step_1.png
27
28 explode r1 e
29 blend result r1 0.5 r1_7 0.5 r1_11
30 set bug_info [string trim [checkshape result]]
31 if {$bug_info != "This shape seems to be valid"} {
32   puts "ERROR: Problem of test case functionality. Should be additionally investigated."
33 }
34 clear
35 display result
36 xwd $imagedir/${casename}_step_2.png