ListContourPlot[dat, ContourShading -> None,
InterpolationOrder -> 3,
Contours -> Delete[CNTRFT[dat], Length[CNTRFT[dat]]/2 + 1/2],
ContourStyle -> CLRFT[dat], PlotRange -> {Ran[[1]], Ran[[2]], All},
DataRange -> Ran, ColorFunctionScaling -> False, Axes -> False]

ListDensityPlot[dat, PlotRange -> {Ran[[1]], Ran[[2]], All},
ColorFunction -> (Hue[.45 - #] &), ColorFunctionScaling -> False,
DataRange -> Ran, InterpolationOrder -> 3, Axes -> False]

(Hue[.45 - #, 0 - #, 1] &)

(Hue[.45 - #, 0 + #, 1] &)