mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
4754e16481
Replaced QAMoveTo, QASelect and QAShiftSelect draw commands with vmoveto and vselect Moved vselect and vmoveto draw commands to ViewerTest_ViewerCommands.cxx Replaced QAMoveTo and QASelect in test cases. Corrected returned error case result in vselect and vmoveto. Added commands in ViewerTest_ViewerCommands from QADraw. Edited tests. QACommands in tests were replaced with ViewerTest commands. QAxwd command was removed from QADraw. Edited command wzoom and commands from ViewerTest. Help for ViewerTest commands was edited Small corrections. Added test cases for polygonal selection. Small correction of test cases
55 lines
963 B
Plaintext
Executable File
55 lines
963 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
|
|
|
|
checkcolor $x_coord $y_coord 0.78 0.55 0.9
|
|
|
|
set only_screen 1
|
|
|
|
|
|
|