scale caption on levelplot

hi peter and david,

thanks for the excellent suggestions. here is something like what i am
finally using (those fancy fonts were really tempting, but i chose
something a little more mundane!):

library(lattice)

x <- sort(rnorm(100,50,10))
y <- sort(runif(100,0,20))
d <- expand.grid(x=x, y=y)
d$z <- x + y
plot.new()
p = levelplot(z ~ x*y, d,
               par.settings=list(
                 layout.widths=list(right.padding=4)),
               colorkey = TRUE)
print(p)

mtext("CAPTION", 4, 1)

your help really appreciated!

best regards,
andrew.

Andrew B. Collier

Physicist
Waves and Space Plasmas Group
Hermanus Magnetic Observatory

Honorary Senior Lecturer                             tel: +27 31 2601157
Space Physics Research Institute                     fax: +27 31 2607795
University of KwaZulu-Natal, Durban, South Africa    gsm: +27 83 3813655