<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 5.50.4134.600" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#dbdbdb>
<DIV><FONT size=2>Hi VTK'ers.</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>I'm using vtktcl 3.1.2 rev 1.675 (I've also tried 3.2 but it
doesn't resolve my problem)</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>When I create a polygon, everything works fine if the polygon
has a maximum of 60 points. If it has more than 60 points, a line between point
1 and point 60 is created !</FONT></DIV>
<DIV><FONT size=2>The strangest thing is that the polydata has only 1 cell
(polygon type) and the correct number of points and no line ! The points ids of
the polygon are correct too.</FONT></DIV>
<DIV><FONT size=2>Any ideas ?</FONT></DIV>
<DIV><FONT size=2>Here is my code:</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>Draw(point_cpt) counts the number of points from 1 to
n<BR>xcoords and ycoords are lists of points coordinates (1 to n)</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT
size=2>vtkPolyData polydata<BR>vtkPoints points<BR>vtkPolygon polygon</FONT></DIV>
<DIV><FONT size=2>points SetNumberOfPoints $Draw(point_cpt)</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> #***Adding points and ids***</FONT></DIV><FONT size=2>
<DIV><BR> for {set i 0} {$i < $Draw(point_cpt)} {incr i}
{<BR> points InsertPoint $i $xcoords([expr $i + 1])
$ycoords([expr $i + 1]) 0<BR> }<BR> <BR> [polygon GetPointIds]
SetNumberOfIds [expr $Draw(point_cpt) + 1] </DIV>
<DIV> for {set i 0} {$i < $Draw(point_cpt)} {incr i}
{<BR> [polygon GetPointIds] SetId $i $i<BR> }</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2>#to close the polygon the last point is set as the first
point. I'm not sure this is useful but with or without</FONT></DIV>
<DIV><FONT size=2># this line it bugs anyway. That's why I set the number of ids
to $Draw(points_cpt) + 1</FONT></DIV>
<DIV><FONT size=2></FONT> </DIV>
<DIV><FONT size=2> [polygon GetPointIds] SetId $Draw(point_cpt)
0</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=2> #***Create the polygon in the polydata***</FONT></DIV>
<DIV><FONT size=2><BR>polydata Allocate 1 1<BR>polydata InsertNextCell [polygon
GetCellType] [polygon GetPointIds]<BR>polydata
SetPoints points</FONT></DIV></BODY></HTML>