0026106: BRepMesh - revision of data model
[occt.git] / tests / bugs / modalg_2 / bug397
1 puts "========================"
2 puts " OCC397 "
3 puts "========================"
4
5 pload QAcommands
6
7 restore [locate_data_file OCC397.brep] a 
8 checkshape a
9
10 tclean a
11 explode a f
12 renamevar a_55 result
13
14 vinit
15 vdisplay result
16 vfit
17 vsetdispmode result 1
18
19 set x_coord 235
20 set y_coord 180
21
22 checkcolor $x_coord $y_coord 0.5 0.35 0.05
23
24 if { ${stat} != 1 } {
25     puts "Error : Shading is missing in 3D Viewer"
26 }
27
28 vselect 220 170
29
30 checkprops result -s 92.9029 
31 checkshape result
32 checkview -screenshot -3d -path ${imagedir}/${test_image}.png