Mercurial > hg > octave-image

changeset 252:1aa0b8bb6183

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved 'MakeShears' into 'imrotate_Fourier' as a private function
author hauberg
date Sat, 05 May 2007 13:57:30 +0000
parents 48675a8afbf8
children aa509c03a056
files INDEX inst/MakeShears.m inst/imrotate_Fourier.m
diffstat 3 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/INDEX
+++ b/INDEX
@@ -21,7 +21,6 @@
  impad
  padarray 
  rotate_scale
- MakeShears
 Analysis and Statistics
  fftconv2
  corr2 
deleted file mode 100644
--- a/inst/MakeShears.m
+++ /dev/null
@@ -1,7 +0,0 @@
-function [S1, S2] = MakeShears(theta)
-
-S1 = eye(2);
-S2 = eye(2);
-
-S1(1,2) = -tan(theta/2);
-S2(2,1) = sin(theta);
--- a/inst/imrotate_Fourier.m
+++ b/inst/imrotate_Fourier.m
@@ -137,7 +137,7 @@
 		endif
 
 		#size(f)
-		[S1 S2] = MakeShears(phi);
+		[S1, S2] = MakeShears(phi);
 
 		tic;
 		f1 = imshear(f, 'x', S1(1,2), 'loose');
@@ -177,3 +177,11 @@
     endif
 
 endfunction
+
+function [S1, S2] = MakeShears(theta)
+    S1 = eye(2);
+    S2 = eye(2);
+
+    S1(1,2) = -tan(theta/2);
+    S2(2,1) = sin(theta);
+endfunction