version 1.0.1

Author: dmurdoch

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: rgl
-Version: 0.111.6
+Version: 1.0.1
 Title: 3D Visualization Using OpenGL
 Authors@R: c(person("Duncan", "Murdoch", role = c("aut", "cre"),
                      email = "murdoch.duncan@gmail.com"),
@@ -53,7 +53,7 @@ VignetteBuilder: knitr, rmarkdown
 Biarch: true
 RoxygenNote: 7.2.2.9000
 NeedsCompilation: yes
-Packaged: 2023-01-06 20:24:39 UTC; murdoch
+Packaged: 2023-01-18 15:52:06 UTC; murdoch
 Author: Duncan Murdoch [aut, cre],
   Daniel Adler [aut],
   Oleg Nenadic [ctb],
@@ -78,4 +78,4 @@ Author: Duncan Murdoch [aut, cre],
   Mike Stein [ctb]
 Maintainer: Duncan Murdoch <murdoch.duncan@gmail.com>
 Repository: CRAN
-Date/Publication: 2023-01-07 15:00:02 UTC
+Date/Publication: 2023-01-18 21:50:02 UTC

MD5

@@ -1,12 +1,13 @@
 export(.check3d, 
   abclines3d, addNormals, addToSubscene3d, arc3d,
   arrow3d, as.mesh3d, as.rglscene, as.tmesh3d, as.triangles3d, asRow,
-  ageSetter, asEuclidean, asEuclidean2, asHomogeneous, asHomogeneous2,
+  asEuclidean, asEuclidean2, asHomogeneous, asHomogeneous2,
   aspect3d, axes3d, axis3d, box3d,
   bbox3d, bg3d, bgplot3d, 
   Buffer,
   checkDeldir,
-  clear3d, clearSubsceneList, clipplanes3d, clipplaneSlider, 
+
+  clear3d, clearSubsceneList, clipplanes3d, 
   clipMesh3d, clipObj3d, close3d, compare_proxy.mesh3d,
   contourLines3d,
   cube3d, cuboctahedron3d, cur3d, 
@@ -17,16 +18,17 @@ export(.check3d,
   gc3d, getBoundary3d,
   getr3dDefaults, getShaders, getWidgetId, gltfTypes,
   GramSchmidt, grid3d, 
+
   highlevel, hook_rgl, hook_webgl,
   icosahedron3d, identify3d, identityMatrix, ids3d,
   in_pkgdown_example,
   layout3d, legend3d, light3d, lines3d, lowlevel, makeDependency, material3d, 
-  matrixSetter, mergeVertices, mesh3d, mfrow3d, movie3d, mtext3d, 
+  mergeVertices, mesh3d, mfrow3d, movie3d, mtext3d, 
   newSubscene3d, next3d, normalize.mesh3d, observer3d, octahedron3d, oh3d, open3d, 
-  par3d, par3dinterp, par3dinterpControl, par3dinterpSetter, 
+  par3d, par3dinterp, par3dinterpControl,  
   particles3d, pch3d, persp3d, planes3d, 
   play3d, plot3d, plotmath3d, points3d, 
-  polygon3d, pop3d, projectDown, propertySetter, propertySlider,
+  polygon3d, pop3d, projectDown, 
   qmesh3d, quads3d, readOBJ, readSTL, rgl.abclines, rgl.bbox, rgl.bg, rgl.bringtotop, rgl.clear,
   rgl.getAxisCallback, rgl.getMouseCallbacks, rgl.getWheelCallback, 
   rgl.close, rgl.cur, rgl.ids, rgl.init, rgl.light, rgl.lines, rgl.linestrips,
@@ -46,17 +48,18 @@ export(.check3d,
   rgl.setAxisCallback, rgl.setMouseCallbacks, rgl.setWheelCallback,
   set3d, setAxisCallbacks, setGraphicsDelay, setupKnitr, 
   setUserCallbacks, setUserShaders, shade3d, shadow3d,
+
   shapelist3d, shinyGetPar3d, shinySetPar3d, shinyResetBrush, 
   show2d, snapshot3d, 
   spheres3d, spin3d, sprites3d, subdivision3d, 
-  subsceneInfo, subsceneList, subsetSetter, subsetSlider, Sweave.snapshot,
+  subsceneInfo, subsceneList, Sweave.snapshot,
   surface3d, tagged3d, terrain3d, 
   tetrahedron3d, text3d, texts3d, 
   thigmophobe3d, title3d, 
   tkpar3dsave, tkspinControl, tkspin3d, 
-  toggleButton, toggleWidget, triangulate, 
+  toggleWidget, triangulate, 
   tmesh3d, transform3d, translate3d, translationMatrix, triangles3d,
-  turn3d, useSubscene3d, vertexSetter, view3d, wire3d, 
+  turn3d, useSubscene3d, view3d, wire3d, 
   writeASY, writeOBJ, writePLY, writeSTL, writeWebGL)
 
  S3method(dot3d, shapelist3d)
@@ -135,7 +138,6 @@ export(.check3d,
  S3method(print, rglscene)
  S3method(print, rglobject)
  S3method(print, rglsubscene)
- S3method(print, indexedSetter)
  S3method(print, rglId)
  S3method(print, rglOpen3d)
  S3method(print, mesh3d)

NAMESPACE

@@ -1,3 +1,34 @@
+# rgl 1.0.1
+
+## Major changes
+
+* The long promised deprecations of the `rgl.*` functions
+have happened.  Now deprecated: `rgl.abclines`,
+`rgl.bbox`, `rgl.bg`, `rgl.clear`, `rgl.clipplanes`,
+`rgl.close`, `rgl.light`, `rgl.lines`,
+`rgl.linestrips`, `rgl.material`,  `rgl.open`,
+`rgl.planes`, `rgl.points`, `rgl.quads`,
+`rgl.select3d`, `rgl.set`, `rgl.setAxisCallback`,
+`rgl.sprites`, `rgl.surface`, `rgl.texts`,
+`rgl.triangles`, and `rgl.viewpoint`.
+* A vignette "Deprecating the `rgl.*` interface"
+has been added.
+* Also deprecated: `elementId2Prefix`, `writeWebGL`
+
+## Minor changes
+
+* Since `rgl.material` is deprecated and no
+longer contains the list of material types in its
+argument list, `rgl.material.names` and `rgl.material.readonly` have been
+added.  
+* Similarly, `rgl.par3d.names` and `rgl.par3d.readonly`
+contain lists of properties that may be set or queried
+in `par3d()`.
+* The flexibility improvements for `surface3d()` in
+0.111.6 were incomplete.
+* Argument `flip` has been added to `surface3d()` to allow
+front and back to be switched.
+
 # rgl 0.111.6
 
 ## Minor changes

NEWS.md

@@ -172,10 +172,10 @@ mtext3d <- function(text, edge, at = NULL, line = 0,
   save <- par3d(ignoreExtent = TRUE)
   on.exit(par3d(save))
 
-  bboxdeco <- rgl.ids("bboxdeco")
+  bboxdeco <- ids3d("bboxdeco")
   if (!is.na(floating) && !nrow(bboxdeco)) {
     dummyBbox()
-    bboxdeco <- rgl.ids("bboxdeco")
+    bboxdeco <- ids3d("bboxdeco")
   }
 
   if (!nrow(bboxdeco) || (missing(floating) && !missing(pos)))

R/axes.R

@@ -14,6 +14,9 @@ rgl.getWheelCallback <- function(dev = cur3d(), subscene = currentSubscene3d(dev
     .Call(rgl_getWheelCallback, as.integer(dev), as.integer(subscene))
 
 rgl.setAxisCallback <- function(axis, draw = NULL, dev = cur3d(), subscene = currentSubscene3d(dev)) {
+  
+  .Deprecated("setAxisCallbacks")
+  
   stopifnot(length(axis) == 1, axis %in% 1:3)
   .Call(rgl_setAxisCallback, draw, as.integer(dev), as.integer(subscene), as.integer(axis - 1))
   invisible(NULL)

R/callbacks.R

@@ -28,6 +28,8 @@ rgl.useNULL <- function() {
 
 rgl.open <- function(useNULL = rgl.useNULL()) {
 
+  .Deprecated("open3d")
+  
   ret <- .C( rgl_dev_open, success=FALSE, useNULL=useNULL )
 
   if (! ret$success)
@@ -43,6 +45,8 @@ rgl.open <- function(useNULL = rgl.useNULL()) {
 
 rgl.close <- function() {
 
+  .Deprecated("close3d")
+  
   if (length(hook <- getHook("on.rgl.close"))) {
     if (is.list(hook)) hook <- hook[[1]]  # test is for compatibility with R < 3.0.0
     hook()
@@ -55,27 +59,13 @@ rgl.close <- function() {
 
 }
 
-## 
-## get current device
-##
-##
-
-rgl.cur <- function() {
-
-  .Call( rgl_dev_getcurrent )
-
-}
-
 ## 
 ## get all devices
 ##
 ##
 
-rgl.dev.list <- function() {
-
+rgl.dev.list <- function() 
   .Call( rgl_dev_list )
-  
-}
 
 
 ##
@@ -84,6 +74,8 @@ rgl.dev.list <- function() {
 ##
 
 rgl.set <- function(which, silent = FALSE) {
+  
+  .Deprecated("set3d")
 
   idata <- c( as.integer(which), as.integer(silent) )
 

R/device.R

@@ -8,7 +8,7 @@
 ## ===[ SECTION: generic appearance function ]================================
 ##
 
-rgl.material <- function(
+rgl.material0 <- function(
   color        = "white",
   alpha        = 1.0,
   lit          = TRUE, 
@@ -138,6 +138,11 @@ rgl.material <- function(
   )
 }
 
+rgl.material <- function(...) {
+  .Deprecated("material3d")
+  rgl.material0(...)
+}
+
 rgl.getcolorcount <- function() .C( rgl_getcolorcount, count=integer(1) )$count
 
 rgl.getmaterial <- function(ncolors, id = NULL) {