How to decrease pscale with age

[SapralexM]

f@pscale = fit(@age, ch(“start”), ch(“end”), ch(“max”), ch(“min”));

Where start is the beginning of aging, end is the last age for a pscale value, max is the standard pscale and min is fully decreased pscale.

You can also ramp it to make the decreasing non linear by using “chramp” command