# $Id: Local.pm,v 1.6 2003/12/23 12:55:24 dk Exp $ package IPA::Local; use strict; use IPA; require Exporter; require DynaLoader; sub dl_load_flags { 0x01 }; use constant sobelColumn => 1; use constant sobelRow => 2; use constant sobelNWSE => 4; use constant sobelNESW => 8; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); @ISA = qw(Exporter DynaLoader); $VERSION = '0.01'; @EXPORT = qw(); @EXPORT_OK = qw(crispening sobel GEF SDEF deriche filter3x3 median unionFind hysteresis gaussian laplacian gradients canny nms scale ridge convolution zerocross ); %EXPORT_TAGS = (enhancement => [qw(crispening)], edgedetect => [qw(sobel GEF SDEF deriche hysteresis canny)]); bootstrap IPA::Local $VERSION; 1;