From AAD underway facility.
dirty_pal(x, alpha = 1)
vector of hex colours
dirty_pal(seq(-8000, 0, length.out = 10))
#> [1] "#7E0202FF" "#7E0202FF" "#7E0269FF" "#7E0269FF" "#320183FF" "#320183FF"
#> [7] "#012C95FF" "#019AA2FF" "#01B946FF" "#C5CE00FF"