Use col.regions
wireframe(volcano, drape = TRUE,
aspect = c(61/87, 0.4),
light.source = c(10,0,10),
col.regions = colorRampPalette(c("blue", "pink"))(100))

According to your agreement and with the inspiration from @DWin, which I'm sure will work better here, perhaps with the help ?perspyou can get closer to what you want.
> persp(x, y, z, theta = 135, phi = 30, col = colorRampPalette(c("blue", "pink"))(9500), scale = FALSE,
+ ltheta = -120, shade = 0.75, border = NA, box = FALSE)

source
share