mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
e1c659da58
OpenGl_CappingAlgo - draw capping plane using OpenGl_PrimitiveArray. OpenGl_Trihedron - draw trihedron in wireframe mode using OpenGl_PrimitiveArray. ~OpenGl_Context() - release Delayed resources occured after deletion of Shared resources. Draw Harness, vzbufftrihedron command - redraw viewer after trihedron definition.
28 lines
679 B
Plaintext
28 lines
679 B
Plaintext
puts "============"
|
|
puts "OCC23484"
|
|
puts "============"
|
|
puts ""
|
|
############################################################################################
|
|
puts "Visualization, TKOpenGl - primitive arrays to become the only way to render geometry"
|
|
puts "Tests clipping plane rendering with primitive arrays"
|
|
############################################################################################
|
|
|
|
set anImage $imagedir/${casename}_1.png
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
vsetdispmode 1
|
|
box b 1 1 1
|
|
vdisplay b
|
|
vfit
|
|
|
|
vclipplane create pln
|
|
vclipplane set pln view Driver1/Viewer1/View1
|
|
vclipplane change pln equation 0 1 0 -0.5
|
|
vclipplane change pln capping on
|
|
|
|
vdump $anImage
|
|
|
|
vclear
|