Merge pull request #487 from dmurdoch/arrowbug

Fix arrow3d:  extrude3d no longer accepts repeated vertices.

Author: dmurdoch

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: rgl
-Version: 1.3.28
+Version: 1.3.29
 Title: 3D Visualization Using OpenGL
 Authors@R: c(person("Duncan", "Murdoch", role = c("aut", "cre"),
                      email = "[email protected]"),

NEWS.md

@@ -1,11 +1,12 @@
-# rgl 1.3.28
+# rgl 1.3.29
 
 * Support for classes defined in the `tripack` package
 has been dropped at the request of CRAN.
 * Added the `latex3d()` function to draw LaTeX text using the
 `xdvir` package.
 * Both `plotmath3d()` and `latex3d()` now use default
 `cex = par3d("cex")`, and have new argument `polygon_offset`.
+* `arrow3d(type = "extrusion")` was broken by the changes to triangulation in version 1.3.16.
 
 # rgl 1.3.24
 

R/arrow3d.R

@@ -81,7 +81,8 @@ arrow3d <- function(p0=c(1,1,1), p1=c(0,0,0), barblen, s=1/3, theta=pi/12,
    xyz <- xyz %*% t(gs)
    if (type == "extrusion") {
      thickness <- thickness*sqrt(sum((xyz[2,]-xyz[8,])^2))
-     ext <- extrude3d(xyz[,c(1,3)], thickness = thickness)
+     # extrude3d no longer accepts repeated vertices
+     ext <- extrude3d(xyz[-1,c(1,3)], thickness = thickness)
    } else {
      mid <- xyz[1,3]
      xyz[,3] <- abs(xyz[,3] - mid)