Surface plot of multivariate time series

Hi, I have following multivariate time series :
start = as.Date("01/01/05", format="%m/%d/%y")
end = as.Date("12/31/05", format="%m/%d/%y")
dates = seq(start, end, by=1)

dat = matrix(rnorm(length(dates)*4), length(dates))
dat1 = t(apply(dat, 1, function(x) x+t(c(100, 110, 120, 130))))

library(zoo)
dat2 = zoo(dat1, dates); head(dat2)

Now I want to get "surface plot" wherein x-axis is time, y-axis represents
1,2,3,4, and z-axis is for values of "dat2". Is there any R drawing device
to do that?

tfpersp in package tramePlus does this.

Regards,

====================================================================================

La version fran?aise suit le texte anglais.

------------------------------------------------------------------------------------

This email may contain privileged and/or confidential information, and the Bank of
Canada does not waive any related rights. Any distribution, use, or copying of this
email or the information it contains by other than the intended recipient is
unauthorized. If you received this email in error please delete it immediately from
your system and notify the sender promptly by email that you have done so. 

------------------------------------------------------------------------------------

Le pr?sent courriel peut contenir de l'information privil?gi?e ou confidentielle.
La Banque du Canada ne renonce pas aux droits qui s'y rapportent. Toute diffusion,
utilisation ou copie de ce courriel ou des renseignements qu'il contient par une
personne autre que le ou les destinataires d?sign?s est interdite. Si vous recevez
ce courriel par erreur, veuillez le supprimer imm?diatement et envoyer sans d?lai ?
l'exp?diteur un message ?lectronique pour l'aviser que vous avez ?limin? de votre
ordinateur toute copie du courriel re?u.