view release on metacpan or  search on metacpan

examples/old_examples/imaging/drawMesh.pl  view on Meta::CPAN

#
use Graphics::VTK;



use Tk;
use Graphics::VTK::Tk;
$MW = Tk::MainWindow->new;

# This example demonstrates how to draw 3D polydata (in world coordinates) in
# the 2D overlay plane. Useful for selection loops, etc.
$VTK_DATA = 0;
$VTK_DATA = $ENV{VTK_DATA};
# get the interactor ui
use Graphics::VTK::Tk::vtkInt;
# create the visualization pipeline
# create a sphere
$sphere = Graphics::VTK::SphereSource->new;
$sphere->SetThetaResolution(10);
$sphere->SetPhiResolution(20);
# extract a group of triangles and their boundary edges