R/open.r.window.R

In zdealveindy/ordijuice: Unconstrained ordinations of vegetation data in JUICE program

open.r.window <-
function (three.dim, resolution)
{
  if (!three.dim)
  {
    windows (xpos = 300, ypos = 10)
    plot.new()
    text (.5,.5, '..................', cex = 3, col = 'red')
    bringToTop (dev.cur(), stay = F)
  } else
  {
    library (rgl)    
    open3d()
    par3d (windowRect = c (300, 100, resolution[1]-100, resolution[2]-100), userMatrix =  matrix (c(1,0,0,0,0,0.9659258, -0.2588190, 0, 0, 0.2588190, 0.9659258, 0, 0, 0, 0, 1), ncol  = 4, byrow = T))
    rgl.points (seq(-5,5, len = 50),0,0, col = 'red', cex = 4)
    rgl.bringtotop (stay = F)
  }
}