1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
occt/tests/bugs/vis/bug6145
kgv 67335dfc1e 0024719: Snapshots for bugs/vis/bug6145 are unstable
Use "new" Boolean operation instead of "old" one.
2014-03-13 09:36:02 +04:00

47 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
bcut 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