0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / vis / bug23153
1 puts "REQUIRED All: \\*\\*\\*  Error on Record"
2 puts "============"
3 puts "OCC23153"
4 puts "============"
5 puts ""
6 #######################################################################
7 # BRepMesh can't apply a mesh for a face of attached shape
8 #######################################################################
9
10 pload XDE
11 set BugNumber OCC23153
12
13 set TheFileName OCC23153-long_furrowed_shape.stp
14
15 stepread [locate_data_file $TheFileName] a *
16
17 tpcompound result
18
19 checkprops result -s 14684.4 
20 checkshape result
21 checknbshapes result -vertex 1152 -edge 1735 -wire 635 -face 581 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 4106
22 vinit
23 vsetdispmode 1
24 vdisplay result
25 vtop
26 vfit
27
28 set status 0
29 set x1 223
30 set y1 195
31
32 if { "[vreadpixel $x1 $y1 rgb name]" == "BLACK" } {
33     set status 1
34     puts "Faulty Color1"
35 }
36
37 set x2 224
38 set y2 240
39 if { "[vreadpixel $x2 $y2 rgb name]" == "BLACK" } {
40     set status 1
41     puts "Faulty Color2"
42 }
43
44 set x3 223
45 set y3 266
46 if { "[vreadpixel $x3 $y3 rgb name]" == "BLACK" } {
47     set status 1
48     puts "Faulty Color3"
49 }
50
51 # Resume
52 puts ""
53 if { ${status} == 0 } {
54     puts "OK ${BugNumber}"
55 } else {
56     puts "Faulty ${BugNumber}"
57 }
58
59 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
60
61