Segment1.pm - first idea of segmentation
use Segment1; Segment1::setup(how_many_vectors=>5); @stroke=qw(x0 y0 x1 y1 x2 y2 ...); $vectors=Segment1::segment(\@stroke);
This modules implements a very naif way of transforming a list of coordinates into a list of vectors.
Call this function to set the number of vectors that you want (default: 5)
This function takes $Segment1::how_many_vectors points, equally spaced into the list passed as reference, and returns them.
This code is copyright (C) 2002 Gianni Ceccarelli Released under the GNU LGPL, version 2.1