« first day (235 days earlier)      last day (4250 days later) » 

J. M.
J. M.
12:44 AM
@R.M Hmm, I haven't seen ColorData["Heat"] before. It's not listed in ColorData["Gradients"]; how'd you find it? :)
 
R.M
R.M
@J.M. Oh, I just used what Chris used :) I didn't know about it either, but it is the same as "SunsetColors"
 
J. M.
J. M.
1:00 AM
@R.M Yeah, I found out quickly upon trying it... dang.
 
 
6 hours later…
chris
chris
7:09 AM
@R.M nice!
 
 
6 hours later…
chris
chris
1:33 PM
@R.M I wrapped your solution as follows
LegendContourPlot[exp_, rangex_, rangey_, opts___]::usage =
"LegendContourPlot[exp,rangex,rangey,opts] Does a contour Plot with \
a colour bar a la IDL";
LegendContourPlot[exp_, rangex_, rangey_, opts___] :=
With[{func = extractPureFunction[exp], size = 300,
cf = ColorFunction /. FilterRules[{opts}, Options[ContourPlot]] /.
ColorFunction -> Automatic},
Row[Show[#, ImageSize -> {Automatic, 300},
ImagePadding -> 20] & /@ {#1,
colorbar[Through[{Min, Max}[#2]], cf]} & @@
Reap[ContourPlot[
func[x, y], {x, rangex[[2]], rangex[[3]]}, {y, rangey[[2]],
 

« first day (235 days earlier)      last day (4250 days later) »