<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Hi,<div><span class="Apple-tab-span" style="white-space:pre"> </span>Could someone help me convert the following C++ code snippet to tcl? I want to initialize vtkImageData with zeros and I'm not sure how to use pointer variables with tcl</div><div><br></div><div>Here is the C++ code snippet</div><div><br></div><div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> for (int y=extent1[2]; y <= extent1[3]; y++)</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> {</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> unsigned char *ptr=static_cast<unsigned char *>(</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> image->GetScalarPointer(extent1[0], y, extent1[4] ));</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> for (int x=extent1[0]; x <= extent1[1]; x++)</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> {</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> *ptr = 0; ++ptr;</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> *ptr = 0; ++ptr;</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> *ptr = 0; ++ptr;</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> }</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> }</span></font></div><div><br></div><div><br></div><div>I just got this far with the tcl code and I'm not sure how to obtain the unsigned char* and manipulate it in the inner loop, not sure if I'm getting the pointer variable right. </div><div><br></div><div>Would appreciate it if someone could help me out...</div><div><br></div><div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"># Fill image with zeroes</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;">for {set y 0} {$y <= 10} {incr y 1} </span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;">{</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"> set &ptr = imageData GetScalarPointer 0 $y 0</span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;"><br></span></font></div><div><font class="Apple-style-span" face="Monaco" size="2"><span class="Apple-style-span" style="font-size: 10px;">}</span></font></div><div><br></div><div><br></div><div>Best regards,</div><div><br></div><div>Elvis Dowson</div></div></div><div><br></div><div><br><div> <br><div><div>On Nov 13, 2008, at 10:20 PM, David Cole wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">By calling SetInput on a vtkImageActor and adding that actor to your vtkRenderer...<div><br></div><div><a href="http://www.vtk.org/doc/nightly/html/classvtkImageActor.html#12bddf9fcf6e6b877116a3c552d05b39">http://www.vtk.org/doc/nightly/html/classvtkImageActor.html#12bddf9fcf6e6b877116a3c552d05b39</a></div> <div><br><br></div><div><br></div></blockquote></div></div></div></body></html>