Subversion Repositories bdplot

Rev

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

Rev 66 Rev 67
Line 2... Line 2...
2 
### Used to open a graphics driver with BDplot.
 2 
### Used to open a graphics driver with BDplot.
3 
 
 3 
 
4 
### In X11, height  and width are scaled to get a nicer window on the screen.
 4 
### In X11, height  and width are scaled to get a nicer window on the screen.
5 
### This hack is ugly. At least there should be a scaling factor in stead so that all measures are scaled (fonts, etc).
 5 
### This hack is ugly. At least there should be a scaling factor in stead so that all measures are scaled (fonts, etc).
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,height=bdp()$height)
8 
{
 8 
{
9 
  .bdcalcsizes(paper=paper,mfrow=mfrow,scaleheight=scaleheight)
 9 
  .bdcalcsizes(paper=paper,mfrow=mfrow,scaleheight=scaleheight,height=height)
10 
  prm <- .bdgetpars()
 10 
  prm <- .bdgetpars()
11 
  if(prm$debug)
 11 
  if(prm$debug)
12 
    print(prm$height)
 12 
    print(prm$height)
13 
  if( !is.na(file) )
 13 
  if( !is.na(file) )
14 
    {
 14 
    {