You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
60 lines
1.4 KiB
60 lines
1.4 KiB
package require vtk
|
|
|
|
vtkRenderer ren1
|
|
vtkRenderWindow renWin1
|
|
renWin1 AddRenderer ren1
|
|
|
|
vtk3DSImporter importer
|
|
importer SetRenderWindow renWin1
|
|
importer ComputeNormalsOn
|
|
importer SetFileName "$VTK_DATA_ROOT/Data/iflamigm.3ds"
|
|
importer Read
|
|
|
|
[importer GetRenderer] SetBackground 0.1 0.2 0.4
|
|
[importer GetRenderWindow] SetSize 150 150
|
|
|
|
#
|
|
# the importer created the renderer
|
|
set renCollection [renWin1 GetRenderers]
|
|
$renCollection InitTraversal
|
|
set ren [$renCollection GetNextItem]
|
|
|
|
#
|
|
# change view up to +z
|
|
#
|
|
[$ren GetActiveCamera] ParallelProjectionOn
|
|
[$ren GetActiveCamera] SetPosition 0 1 0
|
|
[$ren GetActiveCamera] SetFocalPoint 0 0 0
|
|
[$ren GetActiveCamera] SetViewUp 0 0 1
|
|
|
|
#
|
|
# let the renderer compute good position and focal point
|
|
#
|
|
$ren ResetCamera
|
|
[$ren GetActiveCamera] Zoom 1.4
|
|
ren1 ResetCameraClippingRange
|
|
|
|
# render the large image
|
|
#
|
|
wm withdraw .
|
|
|
|
vtkRenderLargeImage renderLarge
|
|
renderLarge SetInput ren1
|
|
renderLarge SetMagnification 3
|
|
renderLarge Update
|
|
|
|
vtkImageViewer viewer
|
|
viewer SetInputConnection [renderLarge GetOutputPort]
|
|
viewer SetColorWindow 255
|
|
viewer SetColorLevel 127.5
|
|
viewer Render
|
|
|
|
# on several opengl X window unix implementations
|
|
# multiple context deletes cause errors
|
|
# so we leak teh renWin1 in this test for unix
|
|
if { $tcl_platform(platform) == "unix" } {
|
|
renWin1 Register ren1
|
|
vtkDebugLeaks dl
|
|
dl SetExitError 0
|
|
dl Delete
|
|
}
|
|
|