1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/vis/bug85_2
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

55 lines
1.1 KiB
Plaintext
Executable File

puts "==========="
puts "BUC60918"
puts "OCC85"
puts "==========="
puts ""
###############################
## Shape drawn in transparency mode does not always eclipse another shapes
###############################
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
pload OCAF
restore [locate_data_file buc60918-psm1.brep] psm1
restore [locate_data_file buc60918-psm2.brep] psm2
restore [locate_data_file buc60918-shl.brep] shl
NewDocument D
SetShape D 0:1:1 shl
SetShape D 0:1:2 psm1
SetShape D 0:1:3 psm2
AISSet D 0:1:1 NS
AISSet D 0:1:2 NS
AISSet D 0:1:3 NS
AISInitViewer D
AISMaterial D 0:1:1 plastic
AISMaterial D 0:1:2 plastic
AISMaterial D 0:1:3 plastic
AISTransparency D 0:1:1 0.6
AISColor D 0:1:1 1
AISDisplay D 0:1:1
AISDisplay D 0:1:2
AISDisplay D 0:1:3
vsetdispmode 1
box b 10 10 10
SetShape D 0:1:4 b
AISSet D 0:1:4 NS
AISDisplay D 0:1:4
vfit
set x_coord 230
set y_coord 160
checkcolor $x_coord $y_coord 0.76 0.54 0.9
checkview -screenshot -3d -path ${imagedir}/${test_image}.png