Subversion Repositories bdplot

## hvad hvis mfrow er NA?  hvad er columns? den kan kun saettes til 1,
## det virker maerkeligt... Er det til artikler, hvor man ofte skriver
## i to spalter? Hvad saa med en "a4.2col" paper?

## What about a beamer mode?


.bdconf.default <- function(mfrow=c(1,1), columns=1, half=FALSE, quadratic=FALSE)
  {
    ##Global and control parameters
    .BDPars <- list()
    ## This will be put in front of filenames. Set to NA, NULL or "" to omit.
    .BDPars$figdir <- "figs/"
    ## Choose paper size for automatic figure sizing. Only "b5" implemented
    .BDPars$paper <- "a4.word"
    ## This should probably not have a default value different from NA
    .BDPars$file <- NA
    ## Default plotting method, i.e. type of plot. One of
    ## "xy", "histogram", "image.plot", "barplot" and "acf".
    ## This part is likely to be changed in the future.
    ## "xy" is like plot(x), plot(x,y). Don't confuse with xyplot from
    ## lattice.
    .BDPars$method <- "xy"
    
    ## When plotting in xy mode, this is type in plot(). The possibilities are "n", "o", "l" (at least, see ?plot). for plot(), default is "p". 
    .BDPars$xytype <- "l"
    
    ## Nice to put to something default you (almost) always use x
    ## and y labels and you want to substitute them with psfrag
    ## anyway.
    .BDPars$xlab <- "longxlabel"
    .BDPars$ylab <- "longylabel"
      
    .BDPars$toplab <- NA
    .BDPars$rightlab <- NA        
    
    ## You probably don't want a default here. 
    .BDPars$xlim <- NULL
    .BDPars$ylim <- NULL
    
    .BDPars$draw.xaxis <- TRUE
    .BDPars$draw.yaxis <- TRUE

    .BDPars$grid <- FALSE
    .BDPars$grid.lwd <- 0.3
    ## what are these? NA/TRUE/"Def"? 
    .BDPars$grid.h <- NA
    .BDPars$grid.v <- NA
    
    .BDPars$grid.col <- "grey50"
    

    ## controls - at least - size of point characters
    .BDPars$cex.plot <- 0.4
    
    ## See ?par
    .BDPars$cex.main <- .7
    ##
    ## This has no effect on the axis label sizes if they are
    ## substituted with psfrag.
    .BDPars$cex.lab <- .6
    ## font size on the axis indexing
    .BDPars$cex.axis <- .5
    ## line width
    .BDPars$lwd <- 0.5
    ## length of tick marks. positive values put the ticks inside the
    ## plots.
    .BDPars$tcl <- -.2
    
    ## cex for legends. Legends are not written by pbp. But you
    ## may want to save your default anyway. It's used by bd.legend()
    .BDPars$cex.legend <- .4
    ## a default position
    .BDPars$pos.legend <- "topright"
    ## And a default background color: Is NA transparancy?
    ## This is not a background for the whole frame, it is for shapes.
    .BDPars$bg.legend <- "white"
    
    ## col controls the color of the plot.
    .BDPars$col <- "black"

    ## box around the plot.
    .BDPars$bty <- "o"
    
    ## the default plotting character for points
    .BDPars$pch <- 21
    
### Margins
    ## It may be tempting to omit a top margin or make it very small
    ## when there is no top label. But remember that sometimes numbers
    ## on the x axis exceed the plot region. If you make it very small,
    ## remember to check that for each plot, you may have to do some
    ## exceptions then.
    
    ##c(bottom, left, top, right)
    .BDPars$mar.nolab <- c(1.5, 1, 0.4, 0.3)
    .BDPars$mar.lab <-  c(2.1, 2.1, 1.9, 1.9)
    ## This one can not be set with commands since it is used in this
    ## function.
    mar.lab.half <- c(2.1, 1.9, 1.9, 1.9)
    ##c(2,  2, 1.5, 1.35)
    
  
    ## What exactly do these do?
    ## some control of distances from axis to text?
    ## mgp for axis commands.
    ## Only used if .BDPars$draw.xaxis=TRUE
    ## (?,,)
    .BDPars$mgp.xaxis <- c(1, -.1, 0)
    ## Only used if .BDPars$draw.yaxis=TRUE
    .BDPars$mgp.yaxis <- c(1, 0.15, 0)
    ## This (only first element?) has effect if axis labels are written
    ## by the plot command. It can also be written by the mtext
    ## command. Only one of these methods should be used in the
    ## future. I think the mtext way is more flexible, but then the
    ## distance should be calculated from the mgp.axis in stead of from
    ## the ?labLine. If not, these use different units which is
    ## confusing.
    ## (plotbox to labs, axis to axislabs,plotbox to axis)
    .BDPars$mgp.global <- c(.8, .15, 0)
    
    
  ## Bruges det?
  .BDPars$xlabLine <- 0.9
  .BDPars$ylabLine <- 1.1

  ## A color map. This could be implemented for lattice/trellis plots?
  ## should at least be implemented as standard in image.plot
  ## .BDPars$color.palette <- colorRampPalette(c("#4d2a00","#eee7a7"))
  .BDPars$color.palette <- colorRampPalette(c("#3c1900","#fef7b7")) 
  .BDPars$color.palette2 <- colorRampPalette(c("#3c1900","#ffffff"))
  .BDPars$colpal.heat <- colorRampPalette(c("#ff0000","#0000ff"))
  ## the matlab red-green-blue
  .BDPars$colpal.ml <- colorRampPalette(c("#ff0000","#00ff00","#0000ff"))
  ## white-yellow-red
  ## may be good for the screen, but white and yellow are too close for paper.
  .BDPars$colpal.wyr <- colorRampPalette(c("#ffffff",7,"#ff0000"))
  ## white-green-red
  .BDPars$colpal.wgr <- colorRampPalette(c("#ffffff","#00ff00","#ff0000"))
  ## may be good for the screen, but white and yellow are too close for paper.
  ## you have a favourite?
    .BDPars$colpal <- .BDPars$colpal.wgr

### the first of these is only needed if using jpeg() in bdopen(). But that doesn't work...
    .BDPars$jpeg.quality <- 100  
    .BDPars$jpeg.res <- 800
       
    .BDPars
  }