Subversion Repositories bdplot

### bdopen

### Used to open a graphics driver with BDplot.

### In X11, height  and width are scaled to get a nicer window on the screen.

### This hack is ugly. At least there should be a scaling factor in stead so that all measures are scaled (fonts, etc).

bdopen <- function(file=bdp()$file,paper=bdp()$paper,mfrow=bdp()$mfrow,scale=TRUE,quality=NULL,scaleheight=1)

{

  .bdcalcsizes(paper=paper,mfrow=mfrow,scaleheight=scaleheight)

  prm <- .bdgetpars()

  if(prm$debug)

    print(prm$height)

  if( !is.na(file) )

    {

      ## If figdir is supplied, prepending it to filename.

      if(!is.null(prm$figdir)&!is.na(prm$figdir))

        {

          file <- paste(prm$figdir,file,sep="/")

        }

      ## determining device driver from filename

      nchars <- nchar(file)

      if( any( substr(file,nchars-2,nchars)==".ps",substr(file,nchars-3,nchars)==".eps")){

        m <- {

          cat("B/D plotting writing to postscript file\n")

          postscript(file=file, width=prm$width, height=prm$height, paper="special", family = "Helvetica", horizontal=FALSE)

        }

      } else if ( substr(file,nchars-3,nchars)==".pdf")

        {

          pdf(file=file, width=prm$width, height=prm$height, paper="special",family = "Helvetica")

        } else if (any(substr(file,nchars-3,nchars)==".jpg", substr(file,nchars-4,nchars)==".jpeg")) {

          cat("Writing to jpeg file\n")

          if(is.null(quality))

            quality=prm$jpeg.quality

          jpeg(filename=file,width=prm$width,height=prm$height,units=prm$size.unit,quality=quality,res=prm$jpeg.res,type="cairo")

### bitmap(file=file,type="jpeg",width=prm$width,height=prm$height,units=prm$size.unit,res=prm$jpeg.res,pointsize=.3)

        }

    }

  else {

    if(scale){

      prm$height <- prm$height*2

      prm$width <- prm$width*2

    }

    ## to X. Note that this doesn't work on win and osx.

    X11(height=prm$height,width=prm$width)

  }

  par(mfrow=mfrow)

}