observe3d: auto = TRUE fails when zoomed inside the scene

[discoleo]

Issue with observer3d( auto = TRUE )

Function observer3d fails after zooming into a scene:

• Setting auto = TRUE does NOT make the entire bounding box visible;

I would like to make the (x,y)-bounding box visible. Presumably, the computed dimensions are not scaled based on the zoom-factor (just a guess).

How to reproduce:

• Tested with Rpdb development version: https://github.com/discoleo/Rpdb;
• Download pdb file from https://www.rcsb.org/structure/3Q0L;
• Download files -> Legacy pdb -> "3Q0L.pdb";

# Oped file: 3Q0L.pdb
x = read.pdb(file.choose())
visualize(x, type="l")

# Zoom & Rotate so that molecule is partly outside window

translate = function(x, y = 0, z = 0, auto = FALSE) {
	old = observer3d();
	observer3d(old + c(x, y, z), auto=auto);
	invisible(old);
}

translate(-20, -5, 0) # Values may need to be adapted
# Now with auto = TRUE
translate(-20, -5, 0, auto = TRUE)

[dmurdoch]

One simple way to do this is to run

  par3d(zoom=1); observer3d(auto=TRUE)

If that's not what you had in mind, could you put together an rgl-only example?