1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
occt/tests/bugs/vis/bug6145
aba 4754e16481 0023539: QASelect and QAShiftSelect commands
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
2013-01-18 14:22:14 +04:00

48 lines
793 B
Plaintext
Executable File

puts "============"
puts "OCC6145"
puts "============"
puts ""
##################################################################
# Incorrect rendering of a transparent object
##################################################################
set BugNumber OCC6145
box b 200 100 100
plane p 20 20 50
pcylinder c1 p 10 80
tcopy c1 c2
ttranslate c2 40 0 0
tcopy c2 c3
ttranslate c3 40 0 0
tcopy c3 c4
ttranslate c4 40 0 0
tcopy c4 c5
ttranslate c5 40 0 0
compound c1 c2 c3 c4 c5 co
cut r b co
vinit
vsetdispmode 1
vdisplay r
vfit
set x_coord 270
set y_coord 230
checkcolor $x_coord $y_coord 0.78 0.55 0.09
vsettransparency r 0.5
checkcolor $x_coord $y_coord 0.8 0.56 0.1
set RED_3 0.86274498701095581
set GREEN_3 0.61176401376724243
set BLUE_3 0.10196000337600708
set only_screen 1