0014531: Boolean Operation Algorithm fails
[occt.git] / tests / bugs / demo / bug24873_2
1 puts "============"
2 puts "CR24873"
3 puts "============"
4 puts ""
5 ##########################################################################################################
6 # Draw Harness, ViewerTest - add command vbounding to show presentation bounding box
7 ##########################################################################################################
8
9 vinit View1
10 vclear
11 vaxo
12 vsetdispmode 1
13
14 psphere s 2
15 vdisplay s
16 vfit
17
18 set info [vbounding -print s]
19
20 regexp {s+\n([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} ${info} full x1 y1 z1 x2 y2 z2
21
22 set tol_abs 0.1
23 set tol_rel 0.1
24
25 set expected_x1 -2
26 set expected_y1 -2
27 set expected_z1 -2
28
29 set expected_x2 2
30 set expected_y2 2
31 set expected_z2 2
32
33 checkreal "x1" ${x1} ${expected_x1} ${tol_abs} ${tol_rel}
34 checkreal "y1" ${y1} ${expected_y1} ${tol_abs} ${tol_rel}
35 checkreal "z1" ${z1} ${expected_z1} ${tol_abs} ${tol_rel}
36 checkreal "x2" ${x2} ${expected_x2} ${tol_abs} ${tol_rel}
37 checkreal "y2" ${y2} ${expected_y2} ${tol_abs} ${tol_rel}
38 checkreal "z2" ${z2} ${expected_z2} ${tol_abs} ${tol_rel}
39
40 vdump ${imagedir}/${test_image}.png