Merge pull request #434 from dmurdoch/writeSTL

Write "endsolid" at the end of writeSTL().

DESCRIPTION

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

NEWS.md

@@ -1,4 +1,4 @@
-# rgl 1.3.10
+# rgl 1.3.11
 
 ## Minor changes
 
@@ -20,6 +20,7 @@ mouse mode set to "selecting".
 which makes WebGL mimic the `rgl` device when drawing transparent
 objects.  The default value is `TRUE` unless option
 `rgl.fastTransparency` is set to `FALSE`.
+* `writeSTL()` now writes `endsolid`, which is required by some apps.
 
 # rgl 1.3.1
 

R/stl.R

@@ -16,6 +16,14 @@ writeSTL <- function(con, ascii=FALSE, pointRadius=0.005,
       writeBin(0L, con, size=4, endian="little")
     }
   }
+
+  finish  <- function()
+  {  if (!ascii) {
+      seek(con, 80)
+      writeBin(as.integer(triangles), con, size=4, endian="little")
+     } else
+       cat("endsolid\n", file = con)
+  }
 
   triangles <- 0
 
@@ -186,10 +194,7 @@ writeSTL <- function(con, ascii=FALSE, pointRadius=0.005,
       linestrip = writeLines(ids[i])
     )
 
-  if (!ascii) {
-    seek(con, 80)
-    writeBin(as.integer(triangles), con, size=4, endian="little")
-  }
+  finish()
 
   invisible(filename)
 }