mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
27af30526d
Old vright equals new vfront, old vfront equals new vright, old vleft equals new vback, old vback equals new vleft.
32 lines
726 B
Plaintext
32 lines
726 B
Plaintext
puts "============="
|
|
puts ""
|
|
puts "============="
|
|
puts ""
|
|
|
|
##############################################################################
|
|
## Drawing mesh as closed object.
|
|
##############################################################################
|
|
|
|
pload XDE
|
|
|
|
set anImage1 $imagedir/${casename}_Opened.png
|
|
set anImage2 $imagedir/${casename}_Closed.png
|
|
|
|
vinit
|
|
meshfromstl aMesh [locate_data_file sh1.stl]
|
|
vsetdispmode aMesh 2
|
|
vfront
|
|
vfit
|
|
|
|
vclipplane create aClipPlane
|
|
vclipplane change aClipPlane equation 0 1 0 0
|
|
vclipplane change aClipPlane capping on
|
|
vclipplane change aClipPlane capping color 0.9 0.9 0.9
|
|
vclipplane set aClipPlane object aMesh
|
|
|
|
meshclosed aMesh 0
|
|
vdump ${anImage1}
|
|
|
|
meshclosed aMesh 1
|
|
vdump ${anImage2}
|