Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug4717_2
CommitLineData
352ffd73 1puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
2
3puts "============"
4puts "OCC4717"
5puts "============"
6puts ""
7######################################################
8# A regression of new Boolean Operations
9# (cfi/002/H3)
10######################################################
11
12dset SCALE1 10
13protect SCALE1
14
15box b -20 -20 -20 40 40 20
16ellipse w1 0 0 0 15 10
17mkedge w1 w1 -pi/2 pi/2
18trotate w1 0 0 0 1 0 0 90
19wire w w1
20revol r w 0 0 0 0 0 1 360
21shape s So
22add r s
23trotate s b 0 0 0 1 1 0 -40
24trotate s b 0 0 0 0 0 1 -10
25tscale b 0 0 0 SCALE1
26tscale s 0 0 0 SCALE1
27
28bop b s
29bopfuse result
30
31set square 680565
352ffd73 32
33set nb_v_good 11
34set nb_e_good 16
35set nb_w_good 8
36set nb_f_good 7
37set nb_sh_good 1
38set nb_sol_good 1
39set nb_compsol_good 0
40set nb_compound_good 1
41set nb_shape_good 45
42
43set 2dviewer 0