plot.hclust with lots of objects

TP> x <- matrix(rnorm(3000), nrow=1000)
TP> hc <- hclust(dist(x))
TP> pdf("tree.pdf", width=150)
TP> plot(hc)
TP> dev.off()

http://www.mail-archive.com/r-help@r-project.org/msg36918.html