diff options
-rw-r--r-- | doc/refman.tex | 27 | ||||
-rw-r--r-- | generic/Curve.c | 1 | ||||
-rw-r--r-- | patchlvl.h | 2 | ||||
-rw-r--r-- | sandbox/testshape.pl | 7 |
4 files changed, 20 insertions, 17 deletions
diff --git a/doc/refman.tex b/doc/refman.tex index 35a2784..633c658 100644 --- a/doc/refman.tex +++ b/doc/refman.tex @@ -1742,11 +1742,11 @@ false. \item{\ident{add}} to extend the surface of the curve. In this case there is a mandatory flag describing the way the contour will be added. It may take the following values: \begin{description} - \item{0} the list of points is taken unchanged. In this case, the {\tt coordListOrTagOrId} - parameter cannot be a tag and must be an explicit list of points. - \item{1} the list of points is reverted, if needed, so that the points defines + \item{0} the list of points is taken unchanged. In this case, the {\tt coordListOrTagOrId} + parameter cannot be a tag and must be an explicit list of points. + \item{1} the list of points is reverted, if needed, so that the points defines a {\bf counterclockwise} contour. - \item{-1} the list of points is reverted,if needed, so that the points defines + \item{-1} the list of points is reverted,if needed, so that the points defines a {\bf clockwise} contour. \end{description} \item{\ident{remove}} to remove an existing contour @@ -1991,11 +1991,11 @@ false. \begin{blockindent} This command fits a sequence of Bezier segments on the curve described by the vertices - in {\tt coordList} and returns a list of vertices describing the control points for the - generated segments. All the points on the fitted segments will be within {\tt error} - distance from the given curve. {\tt coordList} should be either a flat list of even - number of coordinates in x, y order or a lst of [X, Y]. The returned list can be directly used - to create or change a curve item contour. + in {\tt coordList} and returns a list of lists describing the points and control points + for the generated segments. All the points on the fitted segments will be within {\tt error} + distance from the given curve. {\tt coordList} should be either a flat list of an even + number of coordinates in x, y order or a list of lists of point coordinates X, Y. + The returned list can be directly used to create or change a curve item contour. \end{blockindent} @@ -2362,11 +2362,12 @@ false. {\tt\large @coords = \$zinc->{\bf smooth}(coordList);} \begin{blockindent} - This command computes a sequence of Bezier segments in order to smooth the curve + This command computes a sequence of Bezier segments that will smooth the polygon described by the vertices in {\tt coordList} and returns a list of lists describing - points and control points for the generated segments. {\tt coordList} should be either a - flat list of even number of coordinates in x, y order, or a list of [X, Y]. - The returned list can be used to create or change a contour of a curve item. + thr points and control points for the generated segments. {\tt coordList} should be either a + flat list of an even number of coordinates in x, y order, or a list of lists of point + coordinates X, Y. The returned list can be used to create or change the contour of a + curve item. \end{blockindent} diff --git a/generic/Curve.c b/generic/Curve.c index a881a4b..bad3de5 100644 --- a/generic/Curve.c +++ b/generic/Curve.c @@ -1915,7 +1915,6 @@ Coords(Item item, for (i = index-1; c->controls[i] && (i >= 0); i--, num_controls++); } for (i = index+1; c->controls[i] && (i < c->num_points); i++, num_controls++); - printf("******* num controls(): %d\n", num_controls); if (num_controls > 1) { control_err: Tcl_AppendResult(item->wi->interp, " too many consecutive control points in a curve", NULL); @@ -9,5 +9,5 @@ #define ZINCVER 3 #define ZINCREV 2 #define ZINCPLVL 06 -#define ZINCVERSION "zinc-version-3206g" +#define ZINCVERSION "zinc-version-3206h" #endif diff --git a/sandbox/testshape.pl b/sandbox/testshape.pl index e14d341..5897912 100644 --- a/sandbox/testshape.pl +++ b/sandbox/testshape.pl @@ -120,8 +120,11 @@ $zinc->Tk::bind('<1>', sub { my $ev = $zinc->XEvent(); my $it = $zinc->find('closest', $ev->x, $ev->y); print "Closest: $it\n"; - my @t = $zinc->vertexat($it, $ev->x, $ev->y); - print "VertexAt: ", join(', ', @t), "\n"; +# my @t = $zinc->vertexat($it, $ev->x, $ev->y); +# print "VertexAt: ", join(', ', @t), "\n"; + $zinc->bind($cv2, '<1>', sub { print "zou\n";}); + $zinc->coords($cv2, 0, [[100,0]]); + print $zinc->bind($cv2, '<1>'), "\n"; }); $zinc->focusFollowsMouse(); |