NAME

Math::Project - Perl extension for computing intersection with upright line through input point

SYNOPSIS

        use Math::Project qw/project/;

        my ($x,$y,$distance) = project ($x1, $y1, $x2, $y2, $xi, $yi);

DESCRIPTION

This module provides function project() for computing intersection with upright line through input point [xi,yi]. You must specify points [x1,y1] and [x2,y2] of straight line.

You can use list of imported functions or access functions via Math::Project::function schema.

FUNCTIONS

project (x1, y1, x2, y2, xi, yi)

Computes intersection between straight line specified with [x1,y1] and [x2,y2] and upright line through input point [xi,yi]. Return three items in list, the first two are coordinates of intersection [xc,yc] and the third is distance between intersection and input point.

        my ($x,$y,$distance) = project ($x1, $y1, $x2, $y2, $xi, $yi);

abscissa_project (x1, y1, x2, y2, xi, yi)

Same as project() but [x1,y1] and [x2,y2] determine abscissa.

        my ($x,$y,$distance) = abscissa_project ($x1, $y1, $x2, $y2,
                $xi, $yi);

VERSION

0.03

AUTHOR

(c) 2001 Milan Sorm, sorm@pef.mendelu.cz at Faculty of Economics, Mendel University of Agriculture and Forestry in Brno, Czech Republic.

This module was needed for making SchemaView Plus (svplus) for adding drag points to coord based connection method.

SEE ALSO

perl(1), svplus(1).