mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
f1aa2b6272
Adding procedures checkcolor and checkpoint. Modified test cases which are used QAGetPixelColor or QAAISGetPixelColor2d Allow using command QAAISGetPixelColor2d on WNT Rename test case tests/bugs/vis/bug19619 to pro19619 Added test cases to modalg and moddata
55 lines
1.0 KiB
Plaintext
Executable File
55 lines
1.0 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
|
|
|
|
set only_screen 1
|
|
|
|
|
|
|
|
|