<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EstiloCorreo17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
{page:Section1;}
-->
</style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="ES-DO" link="blue" vlink="purple">
<div class="Section1">
<p class="MsoNormal"><span lang="EN-US">Hello everyone:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">We are working ITK (with a wrapper written by us and seems to be working fine) + VTK with TCL.
<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">We have a little problem in our application with an reference counting not allowing memory to be freed.
<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">I do as follow:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">1. Read an ITK image with our ITK wrapper.
<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">2. Create a vtkImageImport<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">3. Create a new image<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">4. Do a shallow copy of the vtkImageImport Output to the new image. (Reference counts "jumps" from 1 to 3 in the new image)<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">5. Delete the vtkImageImport<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">6. Delete the new imagen<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">And the memory is not being freed because of the reference counting > 1.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"> I have reproduced the situation in the following snippet of code:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#itktcl is a package developed by ourselves.
<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">package require itktcl<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">package require vtk<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">set infile "D:/data/vtks/smoothing.vtk"<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">puts "reading image file $infile"<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Read the image with our ITK wrapper.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">set reader [ Image3DReader ]<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$reader SetFileName $infile<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$reader Update<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">set img [ $reader GetOutput ]<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$img DisconnectPipeline<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Destroy the reader<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">rename $reader ""<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Create a itk exporter<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">set itkExporter [ VTKScalarImageExport ]<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$itkExporter SetInput $img<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Import to VTK<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">set vtkImporter [ vtkImageImport New ]<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$itkExporter Connect2VTK $vtkImporter<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$vtkImporter Update<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Do a shallow copy<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">set cpyImg [vtkImageData New]<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$cpyImg ShallowCopy [$vtkImporter GetOutput]<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#At this point [$cpyImg GetReferenceCount] == 3!!!<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">puts "cpyImg->RefCount is: [$cpyImg GetReferenceCount]"<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#The follwing crashes!!!:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"># $cpyImg UnRegister $ vtkImporter<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#The follwing also crashes!!!!:<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#$vtkImporter UnRegister $cpyImg<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Cleanup<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$vtkImporter Delete<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Destroy the itk exporter<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$itkExporter SetInput ""<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">rename $itkExporter ""<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#At this point [$cpyImg GetReferenceCount] is ALSO == 3!!!<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">puts "cpyImg->RefCount Should be 1 but it is: [$cpyImg GetReferenceCount]"<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">#Memory it's not being freed!!!<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">$cpyImg Delete<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
<p class="MsoNormal"><span lang="EN-US">exit<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US"><o:p> </o:p></span></p>
</div>
<br>
<hr>
<font face="Arial" color="Gray" size="1">Universidad Central "Marta Abreu" de Las Villas. http://www.uclv.edu.cu<br>
<br>
</font>
</body>
</html>