Как нарисовать до полного окна в rgl?

Question

Я рисую 4 подфигуры в rgl для окна, и я хотел бы, чтобы они заполнили доступное пространство:

library(rgl);
rgl::open3d(windowRect = c(0,50, 1200, 1200));
rgl::mfrow3d(2, 2);


rgl::next3d(reuse=FALSE);
rgl::bg3d("yellow");

rgl::next3d(reuse=FALSE);
rgl::bg3d("blue");

rgl::next3d(reuse=FALSE);
rgl::bg3d("red");

rgl::next3d(reuse=FALSE);
rgl::bg3d("green");

Однако результат использует только крошечное зелье окна, похоже,это:

Как я могу сделать так, чтобы 4 цветные области охватывали все окно, вместо использования только крошечной части в левом нижнем углу?

Answer 1

Это отнимает у меня часы, но мне наконец-то удалось заставить это работать надежно самостоятельно. Кажется, вам нужно вызывать par3d () после open3d ().

Также обратите внимание на вызов Sys.sleep, как предложено user20650 в комментариях выше. Без него окно отображается в полном размере только после нажатия на него (на моем компьютере?).

Полный рабочий код:

rgloptions = list("windowRect"=c(50,50,1000,1000));

rgl::open3d();
do.call(rgl::par3d, rgloptions);
Sys.sleep(1);
rgl::mfrow3d(2, 2);

rgl::next3d(reuse=FALSE);
rgl::bg3d("yellow");

rgl::next3d(reuse=FALSE);
rgl::bg3d("blue");

rgl::next3d(reuse=FALSE);
rgl::bg3d("red");

rgl::next3d(reuse=FALSE);
rgl::bg3d("green");

Это дает надежный следующий результат:

Answer 2

Я не уверен, что это именно то решение, которое вы ищете, но запуск вашего кода как функции сработал для меня.

make_box <- function(){library(rgl)
 rgl::open3d(windowRect = c(0,50, 1200, 1200))
 rgl::mfrow3d(2, 2)


 rgl::next3d(reuse=FALSE)
 rgl::bg3d("yellow")

 rgl::next3d(reuse=FALSE)
 rgl::bg3d("blue")

 rgl::next3d(reuse=FALSE)
 rgl::bg3d("red")

 rgl::next3d(reuse=FALSE)
 rgl::bg3d("green")}
 make_box()