3306fdd9 |
1 | puts "========" |
2 | puts "0029807: Impossible to cut cone from prism" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | puts "TODO OCC29922 ALL: Error: Degenerated edge is not found" |
3306fdd9 |
7 | |
8 | restore [locate_data_file bug29807-obj.brep] b1 |
9 | restore [locate_data_file bug29807-tool.brep] b2 |
10 | |
11 | trotate b2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 -5 |
12 | removeloc b2 b2 |
13 | |
14 | bclearobjects |
15 | bcleartools |
16 | baddobjects b1 |
17 | baddtools b2 |
18 | bfillds |
19 | |
20 | # CUT operation |
21 | bbop result 2 |
22 | |
23 | savehistory ResHist |
24 | |
25 | checkshape result |
26 | checkprops result -v 9465.07 -s 4012.74 |
27 | checknbshapes result -face 9 -wire 9 |
28 | |
29 | if {[regexp "Faulties" [bopargcheck result]]} { |
30 | puts "Error: bopargcheck has found some faulties in result" |
31 | } |
32 | |
33 | explode b2 f |
34 | modified reshm ResHist b2_2 |
35 | |
36 | checknbshapes reshm -face 2 |
37 | |
38 | foreach a [explode reshm f] { |
39 | # Every modified face must contain degenerated edge |
40 | |
41 | if { ![regexp {degenerated} [dump $a] ] } { |
42 | puts "Error: Degenerated edge is not found" |
43 | } |
44 | } |
45 | |
46 | vdisplay result |
47 | vsetdispmode 1 |
48 | vviewparams -scale 52.4803 -proj 0.285421 0.0158136 0.958272 -up -0.810772 0.537155 0.232624 -at 29.6172 13.0268 3.82234 -eye 47.7439 14.0311 64.6808 |
49 | |
50 | if { [regexp {no triangulation} [tricheck result] ] } { |
51 | puts "Error: Result contains not triangulated face" |
52 | } |
53 | |
54 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |