colorbar[colorFunction_: Automatic, divs_: 20] :=
DensityPlot[y, {x, 0, .1}, {y, 0, 1}, AspectRatio -> Automatic,
PlotRangePadding -> 0, PlotPoints -> {2, divs},
FrameTicks -> {None, Automatic, None, None}, MaxRecursion -> 0,
ColorFunction -> colorFunction]