| 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,height=bdp()$height)
|
7 |
bdopen <- function(file=bdp()$file,paper=bdp()$paper,mfrow=bdp()$mfrow,scale=TRUE,quality=NULL,scaleheight=1,height=NULL)
|
| 8 |
{
|
8 |
{
|
| 9 |
.bdcalcsizes(paper=paper,mfrow=mfrow,scaleheight=scaleheight,height=height)
|
9 |
.bdcalcsizes(paper=paper,mfrow=mfrow,scaleheight=scaleheight,height=height)
|
| 10 |
prm <- .bdgetpars()
|
10 |
prm <- .bdgetpars()
|
| - |
|
11 |
if(!is.null(height)){
|
| - |
|
12 |
prm$height <- height
|
| - |
|
13 |
}
|
| 11 |
if(prm$debug)
|
14 |
if(prm$debug)
|
| 12 |
print(prm$height)
|
15 |
print(prm$height)
|
| 13 |
if( !is.na(file) )
|
16 |
if( !is.na(file) )
|
| 14 |
{
|
17 |
{
|
| 15 |
## If figdir is supplied, prepending it to filename.
|
18 |
## If figdir is supplied, prepending it to filename.
|