0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / moddata_2 / bug3721_6
1 puts "============"
2 puts "OCC3721"
3 puts "============"
4 puts ""
5 ######################################################
6 # When using Boolean Operations exception is raised for some tolerance vals.
7 ######################################################
8 ## (new topology)
9 ## (boptuc)
10 ######################################################
11
12 restore [locate_data_file OCC3721-1.brep] b1 
13 restore [locate_data_file OCC3721-2.brep] b2 
14
15 checkshape b1
16 checkshape b2
17
18 bop b1 b2
19 if { [catch {boptuc result} catch_result] } {
20    puts "Faulty OCC3721"
21 }
22
23 checkshape result
24
25 checkprops result -s 71185
26 checkview -display result -3d -path ${imagedir}/${test_image}.png