Mercurial > forge

changeset 6690:c8ed5091ab20 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do orientations mod pi
author hauberg
date Fri, 12 Feb 2010 22:52:54 +0000
parents 6381dfad5aa7
children 1a404c6aba1c
files main/image/inst/edge.m
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/main/image/inst/edge.m	Fri Feb 12 20:40:23 2010 +0000
+++ b/main/image/inst/edge.m	Fri Feb 12 22:52:54 2010 +0000
@@ -353,14 +353,17 @@
       else
         sigma = 2;
       endif
+
       ## Change scale
       J = imsmooth(double(im), "Gaussian", sigma);
+
       ## Canny enhancer
       p = [1 0 -1]/2;
       Jx = conv2(J, p,  "same");
       Jy = conv2(J, p', "same");
       Es = sqrt( Jx.^2 + Jy.^2 );
-      Eo = atan2(Jy,Jx);
+      Eo = pi - mod (atan2 (Jy, Jx) - pi, pi);
+
       ## Get thresholds
       if (nargin > 2 && isscalar(varargin{1}))
         thresh = [0.4*varargin{1}, varargin{1}];