view release on metacpan or  search on metacpan

examples/old_examples/graphics/polyTexture.pl  view on Meta::CPAN

$iren->SetUserMethod(
 sub
  {
   $MW->{'.vtkInteract'}->deiconify;
  }
);
$iren->Initialize;
$MW->withdraw;
# Update the scalars in the structured points with the probe's output
#
sub updateStructuredPoints
{
 $structuredPoints->GetPointData->SetScalars($probe->GetOutput->GetPointData->GetScalars);
}
# Transform the probe and resample
#
sub resample
{
 # Transform the probe points and the quad
 $aTransform->RotateY(10);
 # Force an update on the probe since the pipeline is broken