[Meshdb-cvs] src/geo/alt main.c,1.3.2.4,1.3.2.5

[<le...@pr...>]

Update of /cvsroot/meshdb/src/geo/alt
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13226

Modified Files:
      Tag: leonard-dev
	main.c 
Log Message:
oops. didnt update d

Index: main.c
===================================================================
RCS file: /cvsroot/meshdb/src/geo/alt/main.c,v
retrieving revision 1.3.2.4
retrieving revision 1.3.2.5
diff -u -d -r1.3.2.4 -r1.3.2.5
--- main.c	21 Jan 2005 23:12:45 -0000	1.3.2.4
+++ main.c	22 Jan 2005 03:15:03 -0000	1.3.2.5
@@ -297,7 +297,7 @@
 #define LOS(x,y,xp,yp,xq,yq) \
 		  if (-w2<(x) && (x)<w2 && -h2<(y) && (y)<h2) {	\
 		      float az, azprev, azmaxprev;		\
-		      az = (H(x,y) - h0) / d;		\
+		      az = (H(x,y) - h0) / d;			\
 		      if (isnanf(az)) az = ZENITH;		\
 		      azprev = AZ(xp,yp)*(p/n) +		\
 			       AZ(xq,yq)*(1-p/n);		\
@@ -314,12 +314,14 @@
 		  }
 
 		  for (p = 1; p <= n; p++) {
+		      d = sqrt(n*n + p*p);
 		      LOS(n,p,n-1,p-1,n-1,p)		    /* ESE */
 		      LOS(-p,n,-(p-1),n-1,-(p-1),n)	    /* SSW */
 		      LOS(-n,-p,-(n-1),-(p-1),-(n-1),-p)    /* WNW */
 		      LOS(p,-n,p-1,-(n-1),p-1,-n)	    /* NNE */
 		  }
 		  for (p = 0; p < n; p++) {
+		      d = sqrt(n*n + p*p);
 		      LOS(n,-p,n-1,-(p-1),n-1,-p)	    /* ENE */
 		      LOS(p,n,p-1,n-1,p-1,n)		    /* SSE */
 		      LOS(-n,p,-(n-1),p-1,-(n-1),p)	    /* WSW */