0031189: Draw Harness, ViewerTest - send messages to Message::DefaultMessenger()
[occt.git] / tests / bugs / vis / bug25687_1
1 puts "============"
2 puts "OCC25687"
3 puts "AIS_ColoredShape should activate back-face culling for valid Solids."
4 puts "============"
5 puts ""
6
7 set x_check_coord 225
8 set y_check_coord 32
9
10 box b 10 10 10
11 explode b f
12
13 vinit View1
14 vclear
15 vaxo
16 vsetdispmode 1
17
18 vdisplay b
19 vviewparams -proj 0.5 0.3 0.1
20 vfit
21
22 vaspects b -subshapes b_1 -setcolor GREEN
23
24 if {"[vreadpixel ${x_check_coord} ${y_check_coord} rgb name]" == "GREEN"} {
25   puts "Error: back-face culling should be turned ON, but back-face is still visible."
26 }
27
28 checkview -screenshot -3d -path ${imagedir}/${test_image}.png