library(DescribeDisplay) # Note that this needs ggplot, not ggplot2
                         # for now.

Orange = "#FF7F00"
DefaultGray = "#777777"  # what should the gray be?Orange = "#FF7F00"

# Figure 1, a comparison of three methods of producing the same
#   picture for the paper.

d = dd_load("fig.R")

pdf(file="fig-DD.pdf", width=1.5, height=1.5, pointsize=8)
plot(d, size=1)
dev.off()

pdf(file="fig-ggplot.pdf", width=1.5, height=1.5, pointsize=8)
p = ggplot(d)
#p$title = NULL
print(p)
grid.rect(width=1, height=1, gp=gpar(col="grey80"))
dev.off()

# Final figure reproduced by code, in plots.R