3bea4c16 |
1 | puts "============" |
2 | puts "OCC23029" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # split shape algorithm works incorrectly in some cases |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC23029 |
10 | |
11 | catch { pload XDE } |
12 | |
13 | testreadstep [locate_data_file OCC23029-ProblemF.stp] a |
14 | restore [locate_data_file OCC23029-TempW.brep] t |
15 | |
16 | checkshape a |
17 | explode a f |
18 | splitshape result a a_1 t |
19 | |
20 | set square 215.198 |
21 | |
22 | set nb_v_good 19 |
23 | set nb_e_good 21 |
24 | set nb_w_good 2 |
25 | set nb_f_good 2 |
26 | set nb_sh_good 1 |
27 | set nb_sol_good 0 |
28 | set nb_compsol_good 0 |
29 | set nb_compound_good 0 |
30 | set nb_shape_good 45 |
31 | |
32 | set CheckShape_status 0 |
33 | |
34 | set ll [ llength [explode result f2 ] ] |
35 | |
36 | if { $ll != 2 } { |
37 | set CheckShape_status 1 |
38 | } |
39 | |
40 | # Resume |
41 | puts "" |
42 | if { ${CheckShape_status} != 0 } { |
43 | puts "Faulty ${BugNumber}" |
44 | } else { |
45 | puts "OK ${BugNumber}" |
46 | } |
47 | |
48 | vinit |
49 | vsetdispmode 1 |
50 | vdisplay result |
51 | vfit |
52 | |
53 | vmoveto 252 289 |
54 | |
55 | set only_screen 1 |
56 | |