Mercurial > hg > octave-nkf

comparison scripts/geometry/rectint.m @ 8664:e07e93c04080

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Wed, 04 Feb 2009 10:56:23 -0500
parents 836618fee9d6
children eb63fbe60fab
comparison
equal deleted inserted replaced
8663:4238f2600a17 8664:e07e93c04080
42 elseif (columns (a) != 4) 42 elseif (columns (a) != 4)
43 error ("rectint: a must have 4 columns"); 43 error ("rectint: a must have 4 columns");
44 elseif (columns (b) != 4) 44 elseif (columns (b) != 4)
45 error ("rectint: b must have 4 columns"); 45 error ("rectint: b must have 4 columns");
46 elseif any ([a(:,3:4);b(:,3:4)](:) < 0) 46 elseif any ([a(:,3:4);b(:,3:4)](:) < 0)
47 error ("rectint: all widths and heights must be > 0") 47 error ("rectint: all widths and heights must be > 0");
48 endif 48 endif
49 49
50 ## This runs faster if the number of rows of a is greater than the 50 ## This runs faster if the number of rows of a is greater than the
51 ## number of rows of b. Swap them and transpose to make it run 51 ## number of rows of b. Swap them and transpose to make it run
52 ## faster. 52 ## faster.