CAD::Drawing::Calculate::Finite - Vector graphics and limited space.
This module is intended as a back-end to CAD::Drawing for methods specific to finite formats (and entities) like images and postscript.
Eric L. Wilhelm <ewilhelm at cpan dot org>
http://scratchcomputing.com
This module is copyright (C) 2004-2006 by Eric L. Wilhelm. Portions copyright (C) 2003 by Eric L. Wilhelm and A. Zahner Co.
This module is distributed under the same terms as Perl. See the Perl source package for details.
You may use this software under one of the following licenses:
(1) GNU General Public License (found at http://www.gnu.org/copyleft/gpl.html) (2) Artistic License (found at http://www.perl.com/pub/language/misc/Artistic.html)
This software is distributed with ABSOLUTELY NO WARRANTY. The author, his former employer, and any other contributors will in no way be held liable for any loss or damages resulting from its use.
The source code of this module is made freely available and distributable under the GPL or Artistic License. Modifications to and use of this software must adhere to one of these licenses. Changes to the code should be noted as such and this notification (as well as the above copyright information) must remain intact on all copies of the code.
Additionally, while the author is actively developing this code, notification of any intended changes or extensions would be most helpful in avoiding repeated work for all parties involved. Please contact the author with any such development plans.
CAD::Drawing
Performs extents and scaling to fit entire drawing within a bound. Returns the scale which is required to create the fit.
$scale = $drw->fit_to_bound(\@bound, \@border, \%opts);
NOTE:
@bound arg is a rectangle ([0,0],[11,8.5]) @border is ([$left_sp, $bottom_sp], [$right_sp, $top_sp]) %opts are weird
Returns a polyline in terms of image pixels. If a rectangle was stored in the image, translates this to a polyline that will be clockwise from lower-left after being switched to world coordinates.
If there are no clip points, the image boundary will be returned.
$drw->get_clip_points($addr);
$drw->get_world_clip_points($addr);
$drw->get_image_rectangle($addr);
$drw->get_world_image_rectangle();
These allow you to translate between drawing space and image space.
Returns the ($i,$j) pixel in (left-handed (typical)) image coordinates corresponding to the [$x,$y] value of @point.
Floating point values will be returned. Do your own rounding!
$drw->drw_to_img(\@point, $addr);
Returns the world ($x, $y) location corresponding to the image pixels in @pixel.
$drw->img_to_drw(\@pixel, $addr);
To install CAD::Drawing, copy and paste the appropriate command in to your terminal.
cpanm
cpanm CAD::Drawing
CPAN shell
perl -MCPAN -e shell install CAD::Drawing
For more information on module installation, please visit the detailed CPAN module installation guide.