6 ##############################################################################
7 ## Drawing mesh as closed object.
8 ##############################################################################
12 set anImage1 $imagedir/${casename}_Opened.png
13 set anImage2 $imagedir/${casename}_Closed.png
16 meshfromstl aMesh [locate_data_file sh1.stl]
21 vclipplane create aClipPlane
22 vclipplane change aClipPlane equation 0 1 0 0
23 vclipplane change aClipPlane capping on
24 vclipplane change aClipPlane capping color 0.9 0.9 0.9
25 vclipplane set aClipPlane object aMesh