Milan Sorm > SchemaView-Plus-0.16 > Math::Project

SchemaView-Plus-0.16.tar.gz

Dependencies

Annotate this POD

# CPAN RT

 New 2 Open 0
View/Report Bugs
Module Version: 0.03

# 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);```

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.