NAME

Segment1.pm - first idea of segmentation

SYNOPSIS

  use Segment1;
  Segment1::setup(how_many_vectors=>5);
  @stroke=qw(x0 y0 x1 y1 x2 y2 ...);
  $vectors=Segment1::segment(\@stroke);

DESCRIPTION

This modules implements a very naif way of transforming a list of coordinates into a list of vectors.

FUNCTIONS

sub setup

Call this function to set the number of vectors that you want (default: 5)

sub segment

This function takes $Segment1::how_many_vectors points, equally spaced into the list passed as reference, and returns them.

LICENSE

This code is copyright (C) 2002 Gianni Ceccarelli Released under the GNU LGPL, version 2.1