[Archetypes-commits] r65 - pkg/R

[noreply at r-forge.r-project.org]

Author: manuel
Date: 2012-10-05 16:23:48 +0200 (Fri, 05 Oct 2012)
New Revision: 65

Modified:
   pkg/R/archetypes-map.R
Log:
another bug ...

Modified: pkg/R/archetypes-map.R
===================================================================
--- pkg/R/archetypes-map.R	2012-09-19 06:45:54 UTC (rev 64)
+++ pkg/R/archetypes-map.R	2012-10-05 14:23:48 UTC (rev 65)
@@ -136,8 +136,9 @@
   } else {
     d <- as.matrix(d)
     phi <- mapply(function(i, j) d[i, j], xo, c(tail(xo, -1), xo[1]))
-    phi <- (phi - min(phi)) / (max(phi) - min(phi))
-    phi <- phi * 2 * pi - pi
+    phi <- cumsum((phi / sum(phi)) * 360)
+    phi <- c(0, head(phi, -1))
+    phi <- ((phi * 2 * pi) / 360) - pi
   }
 
   cbind(x = r * cos(phi),