1puts "============" 2puts "OCC25687" 3puts "AIS_ColoredShape should disable back-face culling for Solids with hidden Face" 4puts "============" 5puts "" 6 7pload MODELING VISUALIZATION 8box b 10 10 10 9explode b f 10 11vinit View1 12vclear 13vaxo 14vsetdispmode 1 15vdisplay b 16vviewparams -proj 0.5 0.3 0.1 17vfit 18 19vaspects b -subshapes b_1 -setcolor GREEN 20vaspects b -subshapes b_2 -setvis 0 21 22if {"[vreadpixel 200 200 rgb name]" != "GREEN"} { 23 puts "Error: back-face culling should be disabled, but seems to be not." 24} 25 26vdump $imagedir/${casename}.png 27