Ametrine color table wave

function CreateAmetrineCTAB()
    //Makes a color table wave called "ametrineCTAB" that can be used for a colorblind-friendly color scale in Igor 7.
    //Based on M. Geissbuehler and T. Lasser, "How to display data by color schemes compatible with red-green color perception deficiencies," Opt. Express 21, 9862-9874 (2013)
    make/O/N=(256,3) ametrineCTAB
    ametrineCTAB[][0]=(7740.2+455.31*p)*(p<85)+(33541+151.77*p)*(p>=85)*(p<=169)+(64502-30.354*p)*(p>169)
    ametrineCTAB[][1]=(15480+91.063*p)*(p<85)+(24511-15.178*p)*(p>=85)*(p<=169)+(-47732+409.78*p)*(p>169)
    ametrineCTAB[][2]=(38701+15.177*p)*(p<85)+(63212-273.18*p)*(p>=85)*(p<=169)+(50311-197.29*p)*(p>169)
end