mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-20 12:45:50 +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
57 lines
979 B
Plaintext
Executable File
57 lines
979 B
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
|
|
|
|
box b2 20 20 20 5 5 5
|
|
box b3 30 30 30
|
|
box b4 10 20 25 7 7 7
|
|
explode b3 f
|
|
|
|
NewDocument D
|
|
SetShape D 0:1:1 b3_2
|
|
SetShape D 0:1:2 b2
|
|
SetShape D 0:1:3 b4
|
|
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
|
|
vfit
|
|
vsetdispmode 1
|
|
|
|
box b 10 10 10
|
|
SetShape D 0:1:4 b
|
|
AISSet D 0:1:4 NS
|
|
AISDisplay D 0:1:4
|
|
|
|
set x_coord 273
|
|
set y_coord 115
|
|
|
|
QAUpdateLights
|
|
|
|
checkcolor $x_coord $y_coord 0.78 0.55 0.9
|
|
|
|
set only_screen 1
|
|
|
|
|
|
|