mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
395d00e058
- Extended command Close with an option -silent
- Extended command Close to handle */-ALL for closing ALL document
- Replaced catch {Close D} by Close D -silent in tests
35 lines
861 B
Plaintext
35 lines
861 B
Plaintext
puts "========"
|
|
puts "0025822: Visualization, TKOpenGl - front material should be used instead of back material within distinguish mode turned off"
|
|
puts "========"
|
|
|
|
pload MODELING OCAF XDE
|
|
box b 10 10 10
|
|
vclear
|
|
vinit View1
|
|
Close D -silent
|
|
NewDocument D BinXCAF
|
|
XAddShape D b
|
|
XSetColor D b BLUE
|
|
explode b f
|
|
XSetColor D b_1 RED
|
|
|
|
XDisplay D
|
|
vviewparams -proj 1 0.1 0.1
|
|
vfit
|
|
vsetdispmode 1
|
|
|
|
catch { vclipplane delete pln }
|
|
vclipplane create pln
|
|
vclipplane set pln view Driver1/Viewer1/View1
|
|
vclipplane change pln equation -1 0 0 5
|
|
|
|
# FFP on
|
|
vcaps -ffp 1
|
|
set aColorFfp [vreadpixel 200 200 rgb name]
|
|
if { "$aColorFfp" != "RED" } { puts "Error: RED color is expected at the back side (FFP)" }
|
|
|
|
# GLSL on
|
|
vcaps -ffp 0
|
|
set aColorGlsl [vreadpixel 200 200 rgb name]
|
|
if { "$aColorGlsl" != "FIREBRICK" } { puts "Error: FIREBRICK color is expected at the back side (GLSL)" }
|