mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
76fada6839
Current state variables have been moved out from OpenGl_LineAttributes to OpenGl_Context.
24 lines
638 B
Plaintext
24 lines
638 B
Plaintext
puts "============"
|
|
puts "0031702: Visualization, TKOpenGl - hatching interior is ignored in second View within the Viewer"
|
|
puts "============"
|
|
puts ""
|
|
|
|
pload MODELING VISUALIZATION
|
|
vclear
|
|
vclose *
|
|
vinit v1/v1
|
|
box b1 100 200 300
|
|
vdisplay -dispMode 1 b1
|
|
vfit
|
|
vaspects b1 -interior hatch
|
|
if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in first view" }
|
|
vdump ${imagedir}/${casename}_v1.png
|
|
|
|
vinit v2/v1
|
|
box b2 100 200 300
|
|
vdisplay -dispMode 1 b2
|
|
vfit
|
|
vaspects b2 -interior hatch
|
|
if { [vreadpixel 201 200 -rgb -name] != "BLACK" } { puts "Error: no hatching in second view" }
|
|
vdump ${imagedir}/${casename}_v2.png
|