Subversion Repositories bdplot

Rev

Rev 47 | Rev 53 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 47 Rev 51
Line 6... Line 6...
6 
 
 6 
 
7 
bdopen <- function(file=bdp()$file,paper=bdp()$paper,mfrow=bdp()$mfrow,scale=TRUE,quality=NULL,scaleheight=1)
 7 
bdopen <- function(file=bdp()$file,paper=bdp()$paper,mfrow=bdp()$mfrow,scale=TRUE,quality=NULL,scaleheight=1)
8 
{
 8 
{
9 
  .bdcalcsizes(paper=paper,mfrow=mfrow,scaleheight=scaleheight)
 9 
  .bdcalcsizes(paper=paper,mfrow=mfrow,scaleheight=scaleheight)
10 
  prm <- .bdgetpars()
 10 
  prm <- .bdgetpars()
- 
 
 11 
  print(prm$height)
11 
  if( !is.na(file) )
 12 
  if( !is.na(file) )
12 
    {
 13 
    {
13 
      ## If figdir is supplied, prepending it to filename.
 14 
      ## If figdir is supplied, prepending it to filename.
14 
      if(!is.null(prm$figdir)&!is.na(prm$figdir))
 15 
      if(!is.null(prm$figdir)&!is.na(prm$figdir))
15 
        {
 16 
        {