0031275: Visualization, TKOpenGl - handle normal-map texture with Path-Tracing
[occt.git] / tests / bugs / modalg_7 / bug29807_b3a
CommitLineData
3306fdd9 1puts "========"
2puts "0029807: Impossible to cut cone from prism"
3puts "========"
4puts ""
5
6puts "TODO OCC29922 ALL: Error: Degenerated edge is not found"
3306fdd9 7
8restore [locate_data_file bug29807-obj.brep] b1
9restore [locate_data_file bug29807-tool.brep] b2
10
11trotate b2 +23.85857157145715500000 +12.00000000000000000000 +5.50000000000000000000 7 -7.14142842854285 0 -5
12removeloc b2 b2
13
14bclearobjects
15bcleartools
16baddobjects b1
17baddtools b2
18bfillds
19
20# CUT operation
21bbop result 2
22
23savehistory ResHist
24
25checkshape result
26checkprops result -v 9465.07 -s 4012.74
27checknbshapes result -face 9 -wire 9
28
29if {[regexp "Faulties" [bopargcheck result]]} {
30 puts "Error: bopargcheck has found some faulties in result"
31}
32
33explode b2 f
34modified reshm ResHist b2_2
35
36checknbshapes reshm -face 2
37
38foreach 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
46vdisplay result
47vsetdispmode 1
48vviewparams -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
50if { [regexp {no triangulation} [tricheck result] ] } {
51 puts "Error: Result contains not triangulated face"
52}
53
54checkview -screenshot -3d -path ${imagedir}/${test_image}.png